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SHARP 



■本体 + キーポード+マウス•トラック y ボ • 
CZ -611 C - GY (グレー） • - BK (ブラック)標準価格399,800円 


■本体+キーボード+マウス•トラックホ—ル' 

CZr 60 W-GY (グレー) -BK (ブラック)標準価格3.19,800円 t 

• *' ’ . \，《く‘声 i , キ } • f てン、、レノ 〆 、 

;ンぐ，，.ぜ顏娜分 




ゲゾルハ. 


• ■ . 

〈 X 68000 ACE シリーズの主な特長〉❿実装密度をさらに追求じ T 信頼性を高めたマンハッタンシエイブ • 68000搭載❿辛キスト、ケラ 


1 


フィック、スプライト、独立3画面設計、最大 12 M バイトの大容量メモリ（標準1 M バイト)•フレンドリ ー6 s、Human 68 k 搭載 • 連文節 
変換、マルチフォントをサポートした強力日本語処理 •1024 X 1024 ドット（最大表示エリア 768 X 512 ドット）ゐ実画_土リ T を装備した 
高解像度表示能力 ♦ 512 x 512 ドット、6 5 , 536 色同時発色•水平 32 、 1 画面 128 のパワフルなスブライト機能•オーバースキャン機 
能を採用した512 X 512ドットレベルのスーパーインポーズ•テキストビットマップ方式採用黌8重相音ステレオ FM 音源搭載•育声ぺ 
デジタイズ記録 AD PCM ※採用•マウス.トラックボール標準装備 • 5インチ 1 M バイト FDD 2 基搭載•「乂-ぉ厶310」ン「辞書ディスク」 

と各種ユーティリティ、「日本語ワードプロセッサ」をバンドル • ZOM バイトハードテ V スク内蔵 （ CZ -61 1 C ) ^A^p.ivc.DIffer^nt.al PCM , 


1、、、 

。/?美二'、 


r 15型カラーディスブレイテレビ（ドットビッチ 0.39 mm ) GZ -601 D - GY (グレー) • -BK (ブラック) 標準确格119,800円 
115型カラ--ディスプレイテレビ（ドットビッチ 0.31_) CZ -611 D - GY (グレー )‘一 BK (ブラッタ）標準価格:145；000円 
■チルトスタンド CZ -6 ST 卜 E (グレこ) • -B (ブラッ.ク)標準価格5,800円 


































.までぉ問ぃ合せ〈ださけ 


札桉 (0 il )642-8 川.仙台 （022)288-8705 .東京 （03)26( jH . 16卜横浜 (045).201-6525 .名古/辛 （0 ⑵ 332-261 卜大販 

淡知—龙 維二 f 心•針•お問し、合わせは…シャ，ブ ㈱ 霣子機器事•本部•ゲステム機器食業部〒 545 大阪市阿倍野区*怖® 122*22 号®(大代表：)、 
電子雌事業本部テレビ事業部第4商品企画部 =pW 東京都新宿区市谷 A 梅町8番地 a ⑽扣0-心 6 你.代表).，, 


豊富な周辺機器がクリエイティブワークをサボ- 


-トツールと呼びたい 「 PRO-68K 」 シリーズソフト。 


• 15型カラーデ<スフレイ 
參カラーイメージスキヤナ* 1 
• カラ— T メージユニット* 2 
鲁カラービデオプリンタ 
參24ビン漢字プリンタ （80 桁） 

• 24 ビン漢字ブリンタ （136 桁） 

• 24ビン漢字プリンタ （ 80桁） 

• 熱転写カラー漢字フリンタ 

• ノ、ー ドディスク ユニッ ト （20MB) 
•モデム ュニット * 3 

• RS-232C ケーブル（平行接続型） 


CZ-6VT1 


CZ-6PV1 


CZ-8PK7 


CZ-8PK8 


CZ-8PK9 


CZ-8PC2 


CZ-620H 


CZ-8TM2 


CZ-8LM1 


► RS-232C ケーフVレ（クロス接続型） CZ-8LM2 


►拡張 I / O ボックス （ 4 スロット） 

• 1 MB 增設 RAM ボード（内蔵用） 

• 2 MB 增設 RAM ボード * 4 
參 4 MB 增言殳 K * 4 

► FAX ボード 

► GP - 旧ポード 

• ユニバーサル I / O ボード 

►增設用 RS-232C ボード (2 チャンネル） 

► 数値演算プロセッサボード 
• スキャナ用パラレルボード 
參システムラック 
►アンフ内蔵スヒ_カーシステム （ 2 本 I 組） AN - 160 SP 
►トラックボール CZ - 8 NT 1 

►ジョイカード CZ - 8 NJ 1 


CU-15M1-E 標準価格99,800円 / 
CZ-8NS1 標準価格188,000円 ， 

標準価格69,800円 . 

標準価格〗98,000円厂 
標準価格122,000円’. 
標準価格〗52,000円. 
標準価格89,800円，， 
標準価格69,800円 
標準価格178,000円.， 
標準価格49,800円く 
標準価格 7,200円.： 
標準価格 7,200円.. 
標準価格88,000円 
標準価格38,000円 
標準価格79,800円ン 
棵準価格138,000円 
標準価格79,800円 
標準価格59,800円 • 
標準価格39,800円 
標準価格49,800円 
標準価格79,800円 
標準価格29,800円 
標準価格44,800円 
棵準価格59,800円 


イージーオペレーションの統合型表計算ソフト 

BUSINESS E3EE3 CZ-212BS 標準価格68,000円 


コマンド型リレーシヨナルデータべース 

DATAE2E3 CZ-220BS 


標準価格58,000円 


ワープロ機能を備えたカード型リレーショナルデータベース 

CARDE5E3 CZ-226BS 標準価格29,800円 


FM 音源をフルサポートするサウンドエディタ 

S0UNDESE3 CZ-214MS 


標準価格15,800円 


マウスを使った簡単操作の楽譜ワープロ 

MUSICE5E3 CZ-213MS 


CZ-6EB1 

CZ-6BE1A 

CZ-6BE2 

CZ-6BE4 

CZ-6BC1 

CZ-6BG1 

CZ-6BU1 

CZ-6BF1 

CZ-6BP1 

CZ-6BN1 

CZ-6SD1 


AD PCM 檄能をサポートしたサンプリングエディタ 

Sampling GSES3 CZ-215MS 標準価格 


• 於 ::I 

オリ ジナ ”ティを活かせるポップアートツール 

NEW Print ShopGS3S3 CZ-221HS 


標準価格19,800円 


フルスクリーンエディタ内蔵の通信ソフト 

Communication CZ-223CS 


標準価格19,800円 


ソフトウェア開発に役立つ C コンパイラ 

C compiler CZ-211LS 


標準価格39,800円 


ソフトウェア開発 ツール 

THE 福袋 V2.0 


9月発売予定 f 
標準価格 1,700円ぐ' 


マルチタスク、リアルタイムオペレーティングシステム 

0S-9/X 68000 


10月発売予定 


CZ-217AS 

CZ-222AS 


くゲームソフト〉♦ツインビー 
籲アノレカノイド 

* 沙羅曼蛇 

參熱血高校ドッジボール部 
•フノレスロットノレ 


標準価格7,800円 
標準価格7,800円 
9月発売予定 
10月発売予定 
8月発売予定 

'口 ⑻ 




卜 f 


CZ-224LS 


* 1使用に際じ T は、カラーイメージスキャナ CZ -8 NS 1 に同梱の FS -232 C ケーブルで接絞する 
か、より高速のパラレルデータ転送を行う場合、別売のスキャナ用パラレルボード CZ -6 BN 1で接 
統じ T ください。 *2 使用に際じ T はコンピュータ本体と専用15型カラーディスフレイテレビ （ CZ - 
601 D 、 CZ -611 D など)が必要です。※3モデムユニット CZ -8 TM 2 に同梱のソフトは X 1/ X 1 turbo 
シリーズ用です,※4使用に際しては、あらかじめ、別売の1 MB 增設 RAM ホード CZ -6 BE 1 A を 


明設じ C ください,, 


17,800円 


9,980円 


クォリティを維持しつづけることは、ある意味では創造することより困難な：;ととも言われていま亨。出会いが印象的であれ 
ばあるほど、その後が大変でず。このことは、そのまま X 68000 の步みを.言い得てい令かも知れ考せベ。確かに技術は日進 
月歩です。 L かしそれだけでコンビュータがもつべき創造性を論ずる二と.は T きないのも、また事実で,す。私た，ちはテ♦クノ q 
ジーとクリ土イティブマインド、いわば人とタシン，とのソフトウェアインターフェイスで応えます。ホリゾ>：タルなマシンとしての 
熟成。そこからはいくつもの分野が見えてく句ネずで1•。そじ t どんな分野にしち X 6 : 8 G 00 の仕事は•アートであ香/^きです# ' 
ますます洗練されて信頼性を高めた ACE . シ y — ズの登場で、あなたは ま/こ 新たな可能性{こ出会えそ’うでザ。 














表紙絵 ： Matsubaguchi Tadao 


UNIXUAT&T BELL LABORATORIES の OS 名です 

CP/M.P-CP/M.CP/M Plus. CP/M-86.CP/M-68K. 

CP/M- 800 0. C-DOS は DIGITAL RESEARCH 

XENIX, MS-DOS. Macro 80. OS/2 は MICROSOFT 

SONY FilerUSONY 

MSX-OOSU アスキー 

SI-OSI1 MULTISOLUTIONS 

OS-9. OS-9/68000UMICROWARE 

UCSD p-system は力 1 丨 •■， プルニア 大学理事会 

FLEXUTSC 

Word Star, Word MasterUMICRO PRO 

fURBO PASCAL SidekickUBORLAND INTERNATIO 

NAL 

LSI CWLSI JAPAN 
HuBASIC はハドソンソフト 
SUPER BASE. WICS はキ V りーラポ 
の登 H 商襦てすその他フ a グラム名 . CPU 名は 
一的に各メーカーの商檝てす木文中では， 
TM" マークは明 紀していません . 

本 15 に阳 tt されたすべてのフログラムは著作？*;去 
上，個人で使用す 6 (J かは無师 ?5 製する . ： , 1 : を S? 
しられていよす 


■広告目次 

アイピーエル .186*187 

アイピノト電子 . 182.183 

アクセス . 192 


-f —ス h . 9 

AVC フタバ電機 . 178 

エス•ピー•エス . 10 


計測技研 . 

サムシンググッド 

J&P . 

ンャープ . 

ソフトクリエイト 
九十九電機 . 


. 176 

. 174 

…表 3.188-191 
'表2•表 4* I -4-7 

. 177 

. 13 


日本ファルコム . II 

パシフィックコンピュータバンク...184.185 


パソコンショップハドソン . 8 

ピー.アンド，エー . 180，181 


マイクロネット . 12 

満開製作所 . 174 

メディアショップ•ハイランド..…179 
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•特集 1 

28 

真夏の夜の数値演算 



28 

コンピュータにおける数値表現 


村田敏幸 

34 

連立方程式は行列でいころ 


相馬英智 

42 

/があるからむずかしい 


向原あゆむ 

47 

とんでもなくデタラメな話 


華門真人 

51 

そこに; r があるから 


丹明彦 

61 

超応用グラフィック歪められた光 


粂 野雅彦 

64 

超応用 AD PCM 音の数学 


加藤 賢哉 

72 

数値演算プロセッサの活用 FLOA 丁 3+.X 

長井清/平野照比古/中野修一 

•特集 2 

100 

MIDI サウンドプログラミング 


100 

短期集中講座 MIDI 活用テクニック 

MIDI の基礎とボードの製作 


三沢和彦 

106 

MIDI 対応シーケンサ 


金子俊一 

•シリーズ全機種共通システム 

137 

THE SENTINEL 



138 

マルチウィンドウエディタ WINER 


近 藤環 

くスタッフ〉 

參編集長/前田徹 籲副 編集長/永野仁•編集/植木章夫石塚康世高野庸一•協力/有田隆也 
中森章清水和人後藤贵行林一樹浅野恵造山村一井本泰堀内保秀获窪圭藤原和 
典岡本浩一郎毛内俊行野中俊一郎吉田 K 司彩山裕昭相馬英智古村聡村田敏幸倉持亮一 
•カメラ/杉山和美•イラスト/永沢しげる山田 日爾 久小栗由香•アートディレクター/島村勝頼 
•レイアウト/元木昌子 AD GREEN •校正/手塚軎美子千野延明 










































1988 AUG . 


ENTS 

•THE SOFTOUCH 

U 

SOFTWARE INFORMATION 
話題のソフトウェア/新作ソフト情報 


16 

GAME REVIEW 

ヘルツォーク/プロフェッシヨナル麻雀悟空/ノ V- レッシュ 


IB 

20 

22 

SPECIAL REVIEW 
イース n (第 1 話） 

ソーサリアン(その 2) 

第 4 の ユニッ ト 2 

華門真人 

西川蕃司 

長沢淳博 

24 

われら電脳遊戯民 （1) 

ゲームは僕らのキャンバスだ 

倉持亮一 

• 連載 / 紹介/システム 

26 

猫とコンピュータ第26回 

ぼくはかぐや姫 7 

高沢恭子 

80 

組曲「くるみ割り人形」よりシナの踊り (Xl/Xl turbo) 
マリオネット (Xl/Xl turbo) 

ささやきのステップ (MZ- 250 0) 

伊藤圭一 

佐々木孝司 

岡上圭作 

85 

C 調言語講座 P 闩 0-6 BK 第2回 

ほいほいファイル 術 

柷一平 

89 

特別調義 

C とアセンブリ言語をリンクして使う 

中森章 

96 

X 680 Q 0 あなたの知らない世界 

CONCERTO-X6BK 

DATA PRQ-68K/CARD P 闩 CD-68K 


117 

Z 80 マシン語ゲームエ房第1回 

目指せシューティング 

村田敏幸 

125 

実用 (7) オブジェクト指向のゲームプログラミング最終回 

オブジェクト指向のゆくえ 

浜口勇 

129 

X 6 B 00 D 曰 ASIC 入門最終回 

必殺サンプリング戦法 

中森章 


Oh ! X 質問箱……156 

FILES OhIX ……158 

八ックナン八一案内……160 

ペンギン情報コーナー / Again Watch ……161 

STUDIO X ……164 
愛読者プレゼント……168 

編集室から / DRIVE ON / ごめんなさいのコーナー/ SHIFT 日 REAK / micraOdyssay … 

…170 



特集 1 歪められた光 




第4のユニット2 



X 68000 あなたの知らない世界 



マルチウィンドウエディタ WINER 













































SHARP 


4 良 

'ew-Life People 


パソコンフリ-クたちへ 




XI アミューズメントステーシヨン 


パソコンとじ C の確かな伝統 

ンパチプル設計マルチビジ•端子 


XI シリーズの高機能を継承したコンパチブ 
ル設計、蓄積された豊富なソフトウ I ア資 

産ルが利用できます。 * ヵセットテ-フ ソフトは利用できません 
•伝統を受け継いだ多彩なグ 
ラフィック 機能 やスーバーインポ 
ーズ機能、 サウンド 機能籲 J IS 第 
1水準準拠漢字 ROM 内蔵(漢字 
ユーティリティソフト付〉參 5 下 DD 
1基内蔵、別売の CZ -53 F (棵 
準価格19.800円)の増設で テ h 
アルドライブも可能鲁ユーザー 
定義の キャラクタゼネレータ 機能 



コンピュータ画面をビデオ録画できる ——〇 
ビデオやビデオ入力端子つきテレビとダイ 
レクトに接続、マルチビジュアル端子がパソ 
コンシーンを鮮やかに彩ります。たとえば 
ゲーム、プレイしながらその過程をそのまま 
録画、後で再生すれば攻略法も研究でき 
るし、隠.れキャラクタやウラ技も確認、できる。 
またベストスコアの達成や最終面をクリアし 
た決定的瞬間もバッチリ残せます。 


どちらから始めるか。ニューエンター 


HE システム搭載 

リアルなキャラクタで迫力あふれるゲームが 
楽しめるホームエンターテイメントシステムを 
XI に搭載しました。 HE システム専用カスタ 
ム CPU や高機能多色化スプライ HC 、 6重 
和音のサウンド機能、さらにマルチビジュア 
ル端子接続による鮮明画像、ソフトはコン 
パクトな専用 1 C カード。この新しさがオモシ 
口さ、もう遊び心はトッフギア…。次世代ゲ 
-ムが思いっきり楽しめます。 


■鮮やかな画像/マルチビジュアル端子に 
よる鮮明画像。ゲームプレイをビデオに録 
画も 0 K 。 

■リアルなキャラクタ/最大 32 X 64 ドットの大 
迫カキャラクタで、よりリアルなゲームプレイ。 
■多彩なカラー表現/表示色は512色中 
256色同時表示、キメ細かな色彩で表現力 
がさらにアップ > 

■迫るサウンド/6オクターブ6重和音のサウ 
ンド機能でさらにひろがる臨場感。 

■ 1 C カード/ソフトは手のひらに入る専用 
1 C カード、遊び心が一気に加速する新しさ。 


ゲ-ムフリ-クたちへ 


次世代ゲームマシンの高感度 
















システムアップも 




サウンド、アート、通信も…。これは成長する 
楽しみ。テレビやビデオの映像をカラー静 
止画で瞬時に取り込めるカラーイメージボ 
ード* 1 、ステレオタイプの FM 音源※ 2 、話題 
のネットワークにアクセスしたり、仲間同士で 
データやメッセージを交換できる ハ。 ソコン 
通信※ 3 もサポートします。 

•1 カラーイメージポー HI CZ-8BV2 摞準価格39,800円 
熱転写カラー*字ブリンタ CZ-8PC2 禰单価格69,800円 
潦2ステレオタイプ FM 音源ボード(スピーカー2本1組摞準装備•ミュージックツール同梱） 
CZ-8BS1 襟*価格23,800円 

*3 モデムユニット （300 ポー） CZ-8TM1 樺準価格29,800円•モデムユニット 
(300 ボー'〗200ポー自動切換） CZ-8TM2 播畢価格49,800円 


テイメントマシン登場。 


■専用パッド/ HE システム専用のパッドを 
同栖、思いっきりゲームに熱中。 





このマークはホームエンター 
テイメントシステムの意味です C 
XI iwm の HE システム用ソフト 
には、このマークのついている 
1C カードをご使用ください. 




これが XI 誕生 

5年目の 

解答です。 



•パーソナルコンヒュー タ + キーボード CZ - 8300巳 K (ブラック）標準価格 99,800円 
• 14型カラーディスフレイテレビ CZ -830 D-BK (ブラック）標準価格 98.000円 

メ •チルトスタンド CZ -6 ST 1- 巳 （ブラック）標準価格 5.800円 


逆 tr - 万。株式会《 


•お問い合わせは…シャーフ ㈱ 電子機器事業本部システム機器営業部〒545大阪市阿倍野区畏池町22番22号 0(06)621-1221( 大代表） 
電子機器事業本部テレビ事業部第4商品企画部〒162東京都新宿区市谷八幡町8番地 0(03)260-1161( 大代表)へ. 


































SHARP 


ハードの余裕がフレンドリーなオペレーションを生みだしている。インテリジ^ントな機能に 


イージーオペレーションの統合型表計算ソフト 



■ CZ -212 BS 標準価格68,000円 

スプレッドシート(表計算)、データベース、 
ダラフ作成機能を緊密に一体化させた 
統合ビジネスツールです。マウス対応の 
やさしいオペレーション、最大16個のマ V レ 
チウインドウ、高度なエデ: f 夕機能、豊富な 
関数群など、初心者からプロフエッショナル 
まで幅広くお使いいただけるソフト。定型 
業務、各シミュレーションにも対応できるよ 
う集計、再計算もスピーデ f です。 



コマンド 型 リレーショナルデータベース 


DATA PIRO- 60 K 


■ CZ -220 BS 標準価格58,000円 

コマンド入力を軽減するヒストリー機能、鄴 
線ドライバー付レポートライター機能、10進 
31桁の高度な演算精度。またコマンド型 
RDB としては初のイメージ表示機能を装 
備、イメー ジスキャナ等で取り込んだ絵や 
写真のデータも管理できます。強力な ADL 
(専用言語)も装備。高度なアプリケーショ 
ンの構築が可能。さらにサウンドデータの 
処理もできます。 



AD PCM 機能をサポートしたサンプリングェデ f 夕 


Sampling PIP: 60 K 


■ CZ -215 MS 標準価格17,800円 

X 68000 の AD PCM 機能を活かすエデ f 
夕。録音した音声を波形表示し、それをエ 
デ：(ツトできる WAVE EDITOR 、 録音した 
50音データで X 68000 がしゃべる SPEACH 
EDITOR などをサポート。また短いサンプ 
リング音を長く伸ばして持続音が作れる 
ループ処理機能も装備。サンプリングした 
データは BASIC プログラムでも 使用可能。 
効果音やおしゃべりを多彩に活かせます。 



カード型リレーショナルデータベース 


CARD PRO- 60 K 


■ CZ -226 BS 標準価格29,800円 



スクリーンエデ^内蔵の高機能通信ソフト 



マウスを使った簡単操作の楽譜ワープロ 

■ CZ -213 MS 標準価格18,800円 

メロデ f 譜、ピアノ譜、最大8パートのスコア 
(総譜）を自由なレイアウトで書き込んだ 
譜面を、内蔵の FM 音源で演奏できる楽 
譜ワープロ &演奏用ミュージック ツール 
です。吉符データの入力/編集(複写•削 
除•挿入）はマウスでとても簡単0プルダウ 
ンメニューから音符や記号を選んで五線 
譜に置いてい〈だけで楽譜が入力できます。 
「SOUND PRO -68 K 」 との連動も可能。 



FMff 源をフルサポートするサウンドェデ f 夕 


SOUND P 1 RO- 60 K 


■ CZ -214 MS 標準価格15,800円 

まるでスタジオのコンソールパネルを操作 
する感覚で音作りが楽しめるサウンドエ 
デ(ティングツール。マウスを使って FM 音源 
のパラメータを直接指定したり、エンべ口 
ープやビブラートを音のイメージ、たとえば 
明る c 、/暗い、銳 t ゾやわらか t 、など、言葉に 
よる指定で思いどぉりの音色が作成でき 
ます。サンプリングシンセサイザでおなじみ 
の3次元表示するモードも装備。 









































































さらに密な環境へ 

クリエイテイブマインドあふれる 
ソフトウェアが XB 8000 をサポート0 



シャープオリジナルソフトウェア 

XI68000 


厂 PRO 」 と称される理由カヰわかる。 


オリジナリティを活力せるポップアートツール 


NEW Print Shop mo- 60 K 


■ CZ -221 HS 標準価格19，？00円 

オリジナリティあふれるはがき、便せん、グリ 
ーティングカード等を簡単に作成、印刷で 
きる ホーム プロダクティビティ ツール 〇ほとん 
どの処理をアイコンで表示し、マウスで選ぶ 
フレンドリーなビジュアルコント ロール。 高 
機能グラフィックエテ^/夕も内蔵、データの 
加工 • 修正も OK。X_B ASIC (img_save) 
で作成したグラフィックデータや Z’ s STAFF 
PRO-68K で作成したデータも活用できま1； 



ソフトウェア開発ツールセット 


THE 福袋 V 2.0 


■ CZ -224 LS 標準価格9,980円 



マル チタスク、リアルタイムオペ レー テ イング システム 


OS -9/ X 68000 


10月発売予定 

X68000 の持つ高度なグラフィック環境は 
もちろん、 AD PCM、FM 音源とグラフィッ 
クスの 同時再生処理と いった マルチ メデ f 
アに対応。.本格的なオーバーラッピング 
マルチウインドウがサポートされ、 プログラ 
ミン グレベルカ >ら アプリケーションレベルま 
で使いやす〈機能的な環境を提供します。 

※〇 S -9 はマイクロウェア社の登録商標です。 


ソフトウヱア開発に役立つ C コンパイラ 



■ CZ -211 し S 標準価格39,800円 

X68000 のソフトウェア開発に役立つ C コ 
ンノ M ラ （XC) 、 BASIC-C コンパ、ータ （X 
B AS to C)、 アセンブラ（X Assembler)、 
リンカ （ X Linker )、デバッガ ( X Debugger) 、 
アーカイバは Archiver)、 コンバニ タ（X 
Converter) からなる ツール 〇 H uman68K 
上におけるプログラム開発を効率良くサ 
ポートします。 

♦ X-BASIC のソースプ.ログラムを XC の 
ソースプログラムに変換する BASIC-C 
コンバータで、 X-BASIC によるマシン語 
開発をサポート。 

• XC は C 言語の最も基本的な仕様 (K & 
R)( こ準拠し、 ANS I仕様も取り入れた最 
新バージョン。また標準ライブラリ、 fcl 本語 
ライブ'ラリ、 IOCS ライブ'ラリ、 DOS ライブ'ラ 
リ、 BASIC ライブラリなど、ハードウェアを 
サポートした豊富なライブラリ(約700種） 
力す用意されています。 




熱血高校ドッジボール部 


フルスロットル 


ドライブ ゲーム 

8月発売予定 


各システムハウスのアプリケーションも鯓々登場 


籲日本語ワープロ 

EW (ィー•ダブリュー). 

參表集計*データベース 
ビジレス AD 68 K 
籲統合化ソフト 
Kamikaze (神風) 
•グラフィック ツール 
Z， s STAFF PRO ；68 K 
Hyper UD 

Hyper UD Com-Vi リンク 

籲通イ言ソフト 

X Link PRO : 68 K 

• OS 

CONCERT - X 68 K 
CP / M -68 K エミュレータ 
CP / M ：68 K 

. CP / M -68 f <： i ； ミュレータ 
•システムユーティリティ 
BASIQ 拡張関数パッケーギ 
ァィ□ンェディタ- 
テ V スクキャッシャー * 
WINDEX PRO -68 K ' 

ファイルコンバータ 
アプリケーショシソフト 
PS-HDD MAKE ver 2.0 

籲ゲーム 

ノヽウメ ニ•口; T 、 ツト 

魔神宮 

グランド マスター 

• DOME 
上海 

スベースハリヤー 

T . D.F 
源平討魔伝 
ザ•.ラスベガス 
，レリクス 

マン八ッタン•レクイエム 
桃太郎伝説 


38,000円イニスト ㈱ 

98,000円 MASH SYSTEMS 

68,000円 ㈱ サムシンググッド 

58,000円梅 V ツァイト 
16,800円イースト ㈱ 
35,000円 ㈱ C&B 

19,800円シスポート ㈱ 

99,800円申)アク¥ス 
19,800円 ㈱ 計測技研 
110,000円ニューウ I イプ 
30,000円ニューウヱイブ 

9,800尸啤計測技研 
4,800円 ㈱ 計測技研 
6,800円 ㈱ 計測技研 
28,000円 ㈱ ジ; t ~ r •イー. U レ 
20,0 bo 円ニューウヱイブ 

9,800円ハツコ'，ンョップハト:ソン 

9,500円 ㈱ アードデインク 
7,800円 ㈱ ザイン•ソフト 
9,800円 ㈱ ザイン•ソフト 
9,800円システムサコム 
6,500円 ㈱ システムソフト 
6,800円電波新聞社 

6,800円デー タウ;！: スト ㈱ 

7,800円電波新聞社 
9,800円日本デクスタ ㈱ 
. 7,200円ボーステック ㈱ 
7,800円 ㈱ リハ•ーヒルソフト 
• 7, 800円 ㈱ ハドソン 


«(この他、既発売、発売予定のソフトが約110本》詳しくは X68000 シ 
リーズ用 1 " SOFTWARE FIELDj をご参照下さい。 







ダ妙-系株式会《 •お問い合わせは…シャープ ㈱ 電子機器事業本部テレビ事業部第4商品企画部〒162東京都新宿区市谷八幡町8番地》(03)260-1161(大代表）へ。 
























































IYi 

專用 


68000 


PS-HD 68020 


リアルタイム処理と、高い信頼性を実現する 
X 昍000専用のオリジナル八-ドディスク。 

特に高機能グラフイクスや、ビジネスデーターを扱 
うためには、どうしても高水準。ハードデVスタが必要 
となります。リアルタイム处理と、高い信頼性を実現 
する X68000 専用のオリジナルハードデ^スクです。 


はじめての人でもセッティング 
可能なアプリケーションソフト 
在同梱しました 0 (HDD MAKE Ver£0) 

どなたにも HDD が簡単にセットできるようにしました。 
専用インターフェイスケーブルもついています。 

更に、今回 X68000 上で起動するアプリケーション 
ソフトをハードディスクから起動させるためのソフト 

「HDD MAKE Ver 2.0」(定価9,800円）を同梱 
しました。 


X _ 6 B 000 本体と同色。 

X- 68000の人気の秘密に、すぐれたデザインもあり 
ます。本 HDD は、その美的感覚をそこなうことなぐあ 


W / F ヶーブル•アプリヶー 
シヨン HDD . MAKE ソフト#ニュー福袋ソ 
フト ♦保証書 

•お問 L 、合わせ•お申し込み/ 

バソコンシヨツ プノ\|<ソン 


ご存知ですか。 XSSOOO は 1台目 
40 メガまで使用で吾ることを。 




(40 MHDD • 高速タイプー 40 M / ms ) 


定価 198,000 


丨円 


定価 138,000円 


PS - HD 68020 


獅 ssr ぷぴ以乂刪定価 


9,800 


1 円 


お申し込み方法一全国通信販売_ 


ご注文の際は、在庫の確認の上、現金窨留または 
銀行振込でお申し込み下さい。 

送料は、ご注文の際にお問い合わせ下さい。 

商品はすべて新品、保証書付きです。 


赖 梅で 


SVA がり 


す二め户 




オリジナルソフト、ニュー福袋が、 
バージョン•アップしました 0 


① Z’s STAFF の|■像ファイルを LOAD&SAVE 
できる Z-LOAD( )， Z-SAVE () 等の拡 

張 Basic コマンド 0 

② プリンターコントロール LPOUT () コマンド0 

③ DOS のフアンクシヨン命令 DOS () コマンド。 

④ カラーハードコピープリンタードライバー、 PRN 

DRVCL. SYS コマンド。 ⑤その他。 ( 


mm 


安 


ま方 


び せ 






がハ 




なたの X68000 をシステムアップします0 


札幌市中央区南1条西2丁目丸井今井 3 f a ( oii )241-5367 


S * S # H システムシヨツブノ \ドソン 


札幌市豊平区平岸 3-5 a ( oii )841-5155 































二 ㈣ 

パソコンが持つグラフィック機能、ミュージック機能、 
サウンド機能など、これらの独立したマルチ機能を統 
__合した八イパー UDo プログラミングすることなぐ絵 
や音が自由にエディットできるクリエイティブソフトで 
す>パソコン紙芝居、アニメーション、パーソナルゲー 
厶、デスクトッププレゼンテ-ション、各種教材、さら 
— にビデオ編集に有効に利用できます 5 


SHARP X 68000 対応 
¥21，的 0( E 1 付) 




REEHAND Editor 

マウスを使ってタイトル文字を 


鋼 


機能の数を重視する現在の日本語ワープロ 
の中にあっては、 EW は非常に個性的です》 | A 

当たり前のことですが、ワープロ本来の機能 
と操作性を重視し、シンプルで使いやすいワ 

ープロを目指しました。ですから、スクロールなども早いですし、印刷も、 
わざわざメニューに戻らなくても瞬時に印刷モードに入れる使いやすさで 
す。また、索引や目次の自動作成など、まさに文書作りに徹した個性が光 
ります。 


■EW の主な特長►強力な印刷機能►ドキュメント作成に便利な目次、索 
引の自動作成 ► エディタ モードの 標準 サポート ►独自のカナ澳字変換プロ 
セ ッサ E1 標準搭載 ► 他文密 参照 や カット& ペーストが 行なえる マルチウイン 
ド 処理►編集画面からの 0S コマンド 及び ユーザープログラム 実行►表を含 
む文章での強力なブロック操作 ►MULTIPLAN に準拠した コマンドメニュ 
一方式 ► WORD MASTER に準拠した コントロール コマンド も 容易 ►ファ 
イ ルの 大きさに制限のない仮想 メモリー 方式採用►バックアップ ファイルを 自 
動作成する安全設計 ►OS 上で稼働し標準 テキストファイルを 生成し ま 



































































































r - PC -2 B 6 シリーズ動作可 ill 字 ROM 必要。 


★各機種用好評発売中 


時代が求めた通信ソフト 


7月中旬発売 


綾 p ? 焚譯を半腕名に変 


<" だ〜みのる」は、 X 68000 用に開発されだ通信ソフトです。 

どなたにでも簡单に操作ができパソコン通信を楽しんでいだだ<だめに 
開発されましだ。 


1. パック ロ グ 機能 バックログとは、 iifif.i- 
の 内招を バッファに, hi 鉍しておきい つで 
も讪 u の内界を参照し内容の一部または 
全部を送 f,i したり ファイルに 記録した*) 
できます。 バッファの 界 w ； は, 没 a により 
ri 山に変 m することができます。初期設 
a は32 K バイ トです。 

2. ハングアップ回避機能モデムに誤って 
as などを送ってしまい今までは電源を 
切るしかか法がありませんでしたが、か 
なりの確中-で m 避します。 

3. 画面モード純粋な 80 X 25 彳/•モードを ㈣ 
而制御でつくりだしました。 

4. センター登録今までのようにび鉢でき 
るセンターの制限がありません。デイス 
クの界 M ; が打る限りひ鉍 " J 能です。 

5. KEY ヒストリー機能 llfW 前までのキー 
人力を党えており M じキー人力をする場 
合など簡叭に人力できます。 


6 . Human 68 K の呼出 ilfife •中に Human 
68 K を呼び出して別の作龙をすることが 
できます。 

7. ESC シーケンスをサポートしています 
ハード的に M 応できないもの以外はサボ 
-卜しました。 

8. XMODEM 対応 SUM , CRC 128/ 
1024をサポートし送佔時は SUM/CRC 
を自勒判別します。 

9. モデム登録モデムの設定がなくなり U 
VJ •線をコントロールする機器以外のモデ 
ムすぺてに対応します。 

10. ファイル内容の#照通以中にファイル 
の内界を参照できアッブロー ドする時な 
どの内界確迖が綷姑にできます。 

11. 仮名変換半角カタカナ文字を半角ひら 
かなに变換して衣/ J ' くすることができます。 


コンティニュー機能付 
2プレイ ロール プレイング ゲーム 


ザ . U 夕切プイシタ_ 


イシ ターの 復活 

黄金の騎士ギルは数々の危険を乗り越え見事ドルアーガ打倒を果し 
た囚われていた恋人カィもドルアーガの魔力が解(彳、人間の姿に戻 
ることができた， 

ドル アーガ の魔力によリ修復されていた搭は、魔力を失なうと再び 
元の廃虚へと化した，モンスター•たちはより狂暴になり、二人は出口 
さえもわからなくなってしまった。だが、この暗国の世界を救うため 
カイとギルは、女神イシターの力の源 1 •ブルー•クリスタル.ロッド j 
を手に、何としても挤を脱出しなければならない。 


GS -151 

PC -8801 s R 以降 
(V A を除く） 

5 FD 

V 6.800 

GS -152 

PC —9801シリース 
(旧 PC —9801を除く） 

5 DD 

V 6.800 

GS -153 

PC — 9801 U シリーズ 

3.5 DD 

Y 6.800 

I GS -154 

PC —9801シリース 
(旧 PC — 9801を除く） 

5 HD 

V 6.800 


K ) ラインカラーモニター| 
を_使用下さい 
フ〇ッビーティスクト 
ライブ品を鲫使1 
用下さいノモリー256 ■ 
KB 以上必饔 
FM 音*対応 
シ3イスティック対 



学習機能タイプ 対局将棋膚 


全シリーズ発売中 

PC -980 I 

シリーズ 

¥ 7,000 

FMR シリ-ズ 

¥ 7,000 

好評発売中" 



戦慄のアドベンチヤー 

テンキーとスペースキー又はジョイ 
スティックだけでゲームがでさます> 


HIGH QUALITY ADVENTURE GAME 

，讀輔鹽#^ 


リ•バース 

本当にこの 城な のか T 5 
そして確かにそれは鮮明に脳典に焼赛付いているもの 
と同一のものだった。失われた W 世の中.ただ 一つ残っ 
ているその城(ジムを悩ませてやまなかった。今その城 
が目の前にある。その緒び付いた大きな間を1=で押し 
た。門は大きな音を響かせながら冊いた。さながら辺り 
に侵人者を知らせるように。 

失われた扔愤を取り戻すために謎の城に足を踏み人れ 
た主人公が兑たものは …… C 


IliK 


¥7,800 


FM 音源対応 


V 3■市 

___ /ijomcri . 一 L jti 


ードをご存知ですか。 


(MODEL10«Mi<) 



1 « 取 fl 


オートダイヤル、オートログイン、 
アツプロード.ダウンロードパラメ 
一夕の投定、 エスケープシーケンス 
対応、ファイル管理橢能フルスクリ 
ーンエディタ搭載。 


E5B 


日本語入力は 
文節変換で 


10回線"2400 /1800/300 bPS 自動識別 /32 bit 


(登録料 ¥3. 000 会*無料） 


ビ Dlt 

I ホストコンピューター使闬 1 


フロントプ□セツサに 

JET-CORE， 

採用して、ラクラク通慝。 

150〜9,600 bps 対応 

¥9,800 




SPS-NET 


SPS - NET 入会方法 

* メモ紙に次の項目を蜃いて下さい。 

住所 氏名 璀 IS 番号 年齡 《藥 希望パスワード 

ペンネーム 自己紹介 システム«成 

* 60円切手を添えて SPS までメモ紙をお送り下さい。折り返し驀内をお 
送り致しますのでそれにしたがって御入金下さい。入金確認後正式会 H 
として登録致します。 

• GUEST アクセスは無料ですので一度覗いて見てはいかがでしようか7 

TEL (0245)46-1167( 代表)24時間運営 (N 日 1 XN ) ゲスト ID ( GUEST ) 


m 额抑？努I鄉 30(0243)45-3777 
FAX(0245)45- 1804 (GII.GIII) 


当社の製品は全国の有名デバー K パソコンシヨッフでお求めになれます.尚、お求めになれない場合、 Mflt 局 
にてお申し込みください暑口座番号郡山 5-12298 ♦加入者名呔エス七一.エス•金額代金含れ • ufifg 
懺（裏面）ご希 a ゲームソフト名、数置.代金含射.年齡.氏名、名、テーフかディスクの«« (— aw 以上 
かかりますので.お急ぎの方は現金窬留をご利用ください-その塌含'おつりのいらないようにお》いします.） 





































ム世界の幕あけ。新システム登場/ 

_ 発 


ソーサリアン追加シナリオ 

88 VA シリーズ 

5 2 DD 

3.800 

•8 B -7-29 

ソ_サリアン•ユーテイリテイ- DISK 

9 BF VM VX 

5 2 DD 

3.800 

•昍.7.22 

ソーサリアン•ユーテイリテイ- DISK 

9 BU UV UX 

3.5 8 DD 

3.800 

'8 B -7-22 

ソーサリアン•ユーテイリテイ -D 旧 K 

的 SR シリーズ 

5 2 D 

3.800 

'8 B -7-29 

ソ-廿 II アン•ユーテイ U テイ - DlSK 

XI turbo 

BbMI 

3,讎他•謹 

ソーサリアン•ユーテイリテイ- DISK 

88 VA シリーズ 

5 2 DD 

3.800 

B 8-7-29 | 


今後も«々と髡売される『ソーサリアン』の追加シナリオてシナリオディスク voi . i これで I ソーサリアン j のシナ」才は全部で2〇本になります，，同一檝 . メディアの r ソーサリアン. I か必饔です,, 


君はまたクリアしていない待望の追加シナリオ創刊。 


SOCERIAN SYSTEM 


SCENARIO 


Vol.1 



1 . 魔性の應 

沖合いのとある名も顔き雇て 
な華柃が起きて いた。 

* のす く そばを«る鴕か 次々 と涡 
肩 I を絶って いる0 

かつて. 澜賊の任； たった その 鹿 
にいったいとのような链か秘めら 
れているのた ろラか 7 



2 . いけにえの神殿 

とある杓の近くの s 代 ■醚 に，一 
人の女裨 K かモンスター奄從えて 
明れた ,. f 斯圬の痏に若い？9奄い 
けにえとレてさしたさねば m 押を 
通*においやる j と a ラのたか 



3. 慝魇に魅いられた 
花 

败多くの _ 金罐を出す«山の打て. 
ft 痛かはや9たしたといラ負相か 
:麻れてきた0 H のそはにあるカル 
テラの山の W 池に S <効く聶雄か 
卞 jtr いるというのたか， 亡こへ 
の通は a * のため圚さされていた 



4. ああ、ジョセフィ 
ーヌは今何処に 

ケメ ケメ王 B のブリンセス マー 
へう，の司 費 かっていたへ ッ トの 
' it ? フィーヌか， W の ttlTM こ 広 
かるタン シンに 迷い込み行方不 
明に なっ r しまったのた！7 
AJt ». ス* た ソーサ リアン 1 :- » 
”フィ ーヌを漕し出せ* 

5. アマゾンの剣 
(つるぎ） 

女たけの町，ウァネルハの®*か 
ヘン タづァへやってきた， 

王か行方不明にな 0. 颶筏か ibt 
悚しているとい亡のた丨さ ■: ，f く. 
m 人かのソーサ u アンかウアネル 
八へと旅立って行った 


ケーム性アップ&エンターテイメント羨望のユーテイリテイ発表。 

SOCERIAN SYSTEM UTILITY von 


穿^ y 穿^=。穿^忍锣 


(■ユーティリティ.ティスク j はソーサ リアン. システムの 目由*を*め w ユー サ ーのニースに*えたり*フアルコム r ソーサリアン J のスタッフか蠹*ユーサーヘメツセー シを伝える一種の 〆 ティアてす。 同一**. メテイ:？の r ソーサリアン j か必 ir す n 




1. 通具の売两 

r ソーサリアン j は目分の■つ 18 H ■している 
武«や防興か問し《てキャラクターとラしの* 
辑の交*か出来ませんでしたかここ r « «や 
防!!を売两出来ますの r . キャラクター簡の K 
器の交*や自分の Wo ている《»や防 H を一時 
的に充って保存しておくことも司踱 r す。 



2. 魔法をかける 

r ノーサリアン j で自分の®い*〇の雇法をかけるには相当大 sr したか 
ここでは〗20橹》 の* 法を一《でかけて興え*す。 

3. 名前の変更 

r ソーサリアン j はキヤラクターに名的をつけ*ときにアルファぺットし 
か®えなかったのてすが，ひらがなやカタカナの名的か付けら n 持って 
いるアイテムの名的 も かえられます。 

4. ユーザーディスク•ツール 

r ソーサリアン j に付属のユーサーティスクのバックアップや_しい 
ユーサーティスク蓍作ったり•別々の tz —フデーターのキャラクターの 
入れ* えが可躕てす0 

5. BGM 

r ソーサリアン j r は微獼毎に収謙され r いる bgm か若干胃な〇ます* 
ユーティリティー•ティスクには未収®の bgm の一部か収 a されてお 
〇圚くことか出来るようになっています。 


「イース 
%好評発売中乙 

イ - Sii は、スの校 さてす 


す" ，-7 t 7 U *> io ひ. 



_層 ■ nyffWTrBypnffiJi 

H ■n ' !!iWTTnr m 


6. 「ソーサリアン J クイズ 

f ソー サリ 7 ン J にちなんたクイズを当«の*年少スタ 
ッフ f タッチャン J の司会てお楽しみ下さい „ 

7. お便り コーナー 

f ソーサ リアン J のユーサー. アン ケート8•をお送り 覦 
いた方のこ雇髡やスタッフのメッセージを当 n の e き シ 
ナリオライター f いかちやん j の DJ てお送り败し ます， 


日.ドラゴンと戰う 

r ソーサリアン j では一定の条件を*たすとトラコン蕈団と載えるモートか出*しますか.厢条件て 
トラコンと w えるよ〇になつ こいます〇(« いと»けますか •） 

9. r ミニミニ•ソーサリアン j 

r ソーサリアン j の is 本のシナリオ 奄颶扔 にした 
ゲームです。 r ソーサリアン j のキャラクターが 
罄加する形式で4人まで一纏に#ぺます。 龌 初に 
ゴールしたキャラクターには 貢 a として 《釀備 
( exp ) か爾 えます* r ソーサリアン j « プレイ 
したユーザーには大受けのゲームです 〇 


國 


Falcom 


圓酿棚銳幾靴 


Personal Computer Software 

〒190欒 mw 立川市柴《町？-卜4トミオービル 


通信阪売(送料無料） 

•現金 •« の壩合- 

ftfVWH * 名•任明 • ft 名 • 山 ,, A » *_.! を明 id レで ， WS 痛 WC お申し込みくた〇い* 

•代金引灌の塌合- 

； l .* A ^ FAX や八力 4 て.祕名 • Wrt f , Mi 畊 • 氏 ft . 味«•ホ iAMW 会明 JU5 し f . 

わ印し込みくたさい„胙 iiUite け M に曲品 11 •金令わ* I ムい< たい.， 






































/Burmtco 


mmu nwarArCo” Lfd 身 

仁ん 


*|^fu ばが 


ゲ-4>にすふる? V 








3 旧は棚卸しの為、 
6時閉店となります, 

I . iiW 



半期に一度/ 




nmowimi! 


•' 


「ツクモ X 68000 クラブ」会員募集 


ツウモは EXE Shop 中勿 EXE 

r 7 v — パーシ srv ブ 」 T す0 


スペシャル会員 


レギュラー会員 


參資格 

•会費 


当社にて 本谇 ご 謂 入の方 
^年閡無料 


參«格 左纪以外の万 
參会费 年間 3.500 円 


XY 6 B 000 age シソース好評発売中 

CZ -611 C 20 MB 八ードディスク内蔵 • ••定価¥399,800 岭月 々¥12,000 x 36 回払右 


/ 


rJBBOOO rL 

M£!4DEHS 


■うれしい特典たち ■ 

參ホビー、ビジネスソフトの割引。 

•シャープ製品(ソフト S 八ード)の割弓|〇 
•各檑イベント、セ5ナーなどの優待及び R 引。 
•会員証(テレホンカード)の発行。 

そして、 情報 ITX 68000 つ〜しん j の配布。 
その他数々の特典がわんさか、わんさか。 

詳しし^上^^ 广 03-253-4199 はが井) 

入: rs 希望の方は * 入会の手 Ht # は、照的に7号店店頭にて受付と 
なりますのでご承了〈ださい.、 


m 


CZ -601 C 

CZ - B 01 D 

CZ -611 D 

CZ -6 ST 1 


ィスク内蔵 • ••定価¥399,800 ■►月々 ¥12,000 x 36 回払など 

標準タイプ . 定価 ¥297,000 _ 月々¥ 9,700 X 36 回払など 

15 型カラーディスプレイテレビ (0.39 mm ビッチ) . 定価 ¥119,800 

15 型カラーディスプレイテレビ (0.31 mm ビッチ) . 定価 ¥145,000 


1等10万円/ 

Milling 

8/7 まで開催 

賞金総額 
7000万円 


★ 5000円お買い上の方に 
抽選券進呈。（東京のみ) 


チルト台.. 


定価¥ 5,800 




XX 68000 周辺機器もツクモで/ 


CZ -6 VT 1 


X ^ BBOOO 用ソフトウェア 


Kamikaze (神風) 

Z’s STAFF PRO 68K 
EW 

SAMPLING PRO 68K 


カラーイメージ ユニッ ト . 定価¥ 69,800 

CZ -8 NS 1 A 4 サイズフルカラーイメージスキャナ…定価 ¥188,000 

CZ - 阳N 1 スキャナ用パラレルボード . 定価¥ 29,800 

外- CZ -6 BE 1 増設 1 MBRAM ボード ( CZ - B 00 C 専用) . 定価¥ 35,000 

統合型スプレッドシ- 卜 •.… 特価 ¥57， S 00 CZ -6 BE 1 A 増設 1 MB RAM ボ-ド (ACE シリ-ズ専用)……定価¥ 38,000 

グラフィックッール . 特価 ¥49,500 CZ -6 BP 1 数値演算プロセッサ . 定価¥ 79,800 

日本語ワープロ . 特価¥32,500 

ad PCM 活用ソフト…… 標準価格 ¥17,800 


特別につくってもらいました。 

CZ -52 F ( e ) 


X1F モデル20又は)0ターボ 
モデル20の方へ 
5インチ内蔵型ドライブ 

限定特 ffl ¥2 わ000 


COMMUNICATION PRO 68K 通信ソフト . 標準価格 ¥19,800 

スウィング PRO 68K リレーショナルデータベース 特価 ¥49,300 
C-TRACE 68 レ仆レーシングソフト…… 特価¥59,800 


AY 甜〇00用ハ-ドテイスク 


IT - H 540 HX 

J ウィ、/;■ク 

CONCERTO-X68K MS-DOS エミュレータソフト 特価¥99,0£)0 HD -202 

その他、ビジネスソフト • ホビーソフトも多数発売中ですので • 

お気軽にお訪ね < ださい。 


40M 日タイプ 28ms. 


^m¥133f000 


20MB タイプ 85ms. 


特酒 ¥ 72,000 


ボケコンコーナーへどラぞ 

シャープ PC - E 200 定価¥22,000 
Z-80CPU、RAM 容量 32KB 

ソクモ特価 ¥ f 7 ぶ00 
PC - E 500 定価 ¥28.800 
32KB 標準装備 

ツクモ特緬¥2ル SOO 


• I 


本当にこのお値段でいいんです。 





モデル30 


セット 


モテル10 


• CZ -822 CB .¥118.000 

• CZ -820 DB .¥109.800 

•ディスケット (10 枚)+ゲームパック 


合計定価¥197.800 

ツクモ特価 

¥99 f 800 

★月々 ¥8,900 x 12 回払いなど 


分割も OK ， 


信頼と安心から生まれだツクモオ 1 J ジナル 

5インチ2□ドライブ 

TS-FDmkiiXI 




• CZ -880 CB .¥218.000 

• CZ -880 DBK .¥109.800 

•デイスケット （10 枚)+ゲームパック 
サービス 


CZ -820 C ¥69,800 

6種類のソフトがノ、•ックされた r 横網 j が 


合計定価 ¥327.800 

ツクモ特価 

¥188,000 

月々 ¥8,900 x 24 回払いなど 
分割も OK // 


ついています。 

ツクモびつく D 特価 

¥ 19,800 


モテム 

関西電機 


オムロン 


參 TS-FDMKII にケーブル及び特製 I F をセットしたもので、 
これだけでディスクシステムが使用できます 
參 1 ドライプは CZ-503F 、 2 ドライブは CZ-502F 相当品です . 

1ドライブ 特 ffl ¥3 么 SOO 
2ドライブ 特価¥4^800 


KDM -3012 L 3001200 ボー 

ツクモ特価 ¥ f 6〃 000 

MD -2400 B 300/1200/2400ボー 

ツクモ特価 ¥42^80© 


5 インチ 2 HRTS-FDDi 


(<5イラ. ■ OTUUMKI 1 X 1 (ターボモデル10を途く) 

XI ターボ用 2 HD /2 □□自動切替 

1ドライブ 特僅¥3乐800 
2ドライブ 特酒¥59,800 


XI ターボ/ MZ - 2500用 

マウス 

TS - MX 1 

特価¥^000 



■便利なマウスパッドあります。 

¥1，280より 


ぬ®織!:： 


フリノター 

CZ - BPC 2 カラー漢字熱転写プリンタ 

ツクモ特価販売中 

CZ -8 PK 5 24ピン漢字ドットプリンタ (10 インチ） 

ツクモ特領¥69,800 

CZ - BPK 6 24ピン漢字ドットプリンタ05インチ） 

ツクモ特価 ¥ S 9 jfl 00 


きます . 


時 〜 Pl 


M7 時 物川、 2 U 8/4 


一福 sn 


PRO STAFF 

^電換 (株 )〒⑻- 9 , 



K け、〖8,25 


成■遠 


0 ；/ 


•シフモ5号 

:ど?き 7 号店 ^03-251-0531 

トセ本店 


ツクモ 














































THE SOFTOUCH 


SOFTWARE 



スペース八リアー 

M . U . L . E . 

ラスト•八ルマゲドン 
エグザイル • 破戒の偶像 
ARCUS 

ヘルツオーク 

ザ•リターン•オブ•イシター 
R-TYPE 

アドベンチャーゲームインターブリター電脳作家 
Toys S Tools Human 68 k 



話題のソフミる睡 

今月の SPECIAL REVIEW ， もう言売んでく 
れたかな。いま注目のイース II がちゃんと載っ 
てたでしょ。6月24日発売の最新ソフト情報 
をどうしてもこの8月号でお伝えしたくて， 
一也懸命ガンバッたんだよ。また7月には T 
& E からハイドライド3が発売される予定だし， 
RPG フアンはとっても忙しい夏を迎えそう。 
でも，これらの RPG を見ていると，それまで’ 
本格派 RPG の世界を目指していた基本路線か 
ら，最近では新た（こ冒険活劇 RPG と呼んでも 
いいようなひとつのジャンルが完成されつつ 
あるような気がするね。 

そのジャンル分けはともカパとして，欲張 
りなゲームフアンのひとりとしては，いまの 
うちからこのイースやソーサリアン，そして 


ハイドライドの次に来るものにぜひ期待して 
おきたいものだね。 

さて，皆さんお待ちかねの今片の父68000敁 
新ゲーム情報からいってみましょう0まずは 
SPS からザ•リターン.オブ.イシターカ％ 
そしてテクノソフトからはサンダーフォース 
n ， さらにはリバーヒルソフトの琥珀色の遗 
言と JDS の名監督，そして先月 A 列車 II の発 
売を伝えたばかりのアートデインクからはア 
ークテイックが発売される予定だって。上の 
写真を見てもわかるようにやや発売の遅れて 
いるドラゴン.スピリットや8月発売予定の 
R-TYPE も順調に仕上がっているようだ I ， 
都内某所ではアフターバーナープロジヱクト 
がスタートしたらしいし，コリャ，ますます 
楽しくなりそうだ。ところで，先月号で7月 
発売予定だとお伝えした熱血高校ドッジボー 
ル部は，ちょっと遅れて秋頃になるみたい。 
もう少し侍っててね。 



読者が選ぶ今月のゲームベスト10 

ゲームベスト丨〇 係です。 

発売されたとたんに上位に入ったのがソーサ 丨.源平討魔伝 

リアン。ゃっばりね t 3位以下を大きく引き離 2.ソーサリアン 
して源平討魔伝とトッブ争いを繰り広げていま 3. SUPER 大戦略 

す。パソコンゲームで初めて「剣と魔法」の世 4 .三国志 
界を知ったという人が，以来「アーサー王」を 5.スペースハリアー 
座右に置いてる，なあんて言ってましたっけ。 6.イース D 

ゲーム大好きでよかったね。 7 .イース 

イース D も見逃せません。次はきっと上位に 8 .スーパーレイドック 
入ってくるでしょう。うん，今度どなたか順位 9 .ぎゅわんぶらあ自己中心派2 

予想をやってみませんか？ 宛先は Oh ! X 編集室 10.上海 


l4 Oh ! X 1988.8. 



























スペースハリァー 


さて，これまで X 68000 関係のソフト情報は， 
ゲームはこの 「SOFTWARE INFORMATION 」 
で，ツール類は 「 X 68000 あなたの知らない世 
界」でと2力所で紹介してたわけだけど，ず 
いぶんと発売されるソフトの数が多くなって 
きそうな気配なので，来月からは一本化して， 
この THE SOFTOUCH のなかに新しく X 68000 
ソフト情報 コーナーを新設したいと思ってい 
るわけ。誰かその コーナーに 付けるいい ネー 
ミングがあったらハガキに書いて送ってくだ 
さいな。採用された方には1988年型锻新モデ 
ルの Oh ! X ロゴ入りオリジナル シャープ ペンを 
ドーンと豪華に1本差し上げちゃいましよう0 
いや 一， 本当に太っ腹の Oh ! X 編集室ですこ 
と。そいじゃ，よろしくね。 


辦ソフト默 


☆…7月2日現在発売中★…近日発売予定 

★スペースハリアー 

スぺハリと聞けば， X 68000 版のことだと思って 
いた XI ユーザーのために XI 版がついに発売される 
ことになった。ゲームの内容なんてもう説明する 
までもないが，意外とそのシナリオについては知 
らない場合が多いので，あえてここで簡単に紹介 
しておくと，超自然現象と凶悪な魔生物に侵略さ 
れたドラゴンランドを救うべく，超能力戦士ハリ 
アーはオートロック式ランチャーを手に単身戦い 
を挑むのだった……，というもの。さあ，あとは 
ドムやアイダなどお馴染みの敵キャラ相手に，3 
D シューテイングアクションを存分に楽しもう。 

Xl / X 1 turbo 用 5〃2 D 版2枚組7,800円 

(2 ドライブ専用） 
電波新聞社 003(445)6111 

★ M . U . L . E . 

シミュレーションとひと言で表現するには，あ 
まりに毛色の違ったゲーム 「 M . U 丄 . E . j が XI に登 
場だ。このゲーム，簡単に説明すると遠い惑星で 
資源調査と開拓を進めていくわけだが，その間， 
自分の土地を確保したり食料を生産し，オークシ 
ョン会場にも足を運び，そこで儲ければ多目的口 
ポット•ミュールを買付け，自分の土地に設置して 
いくというもの。一見地味だが，4人プレイで遊 
ベば，プレイヤーの個性が出てしまって，とって 
も熱くプレイできそう。 

X 1/ XUurbo 用 5〃2 D 版7,800円 

ビー.ビー.エス S 045(93 I )58 I 5 

★ ラスト.ハルマゲドン 

この RPG の舞台は，いまから何万年も先の未来。 
人類は滅亡し，地球を支配するものはいなかった。 
そこに現れたのが，かつて人類によって滅ぼされ 
たはずのモンスターたち。地球を我々のものに， 

と奮い立つ彼らの未来は順風満帆のように思えた。 
が，そんなとき彼らの前に立ちはだかる生物が。 
人間？ いや，そんなはずはない。彼らは滅びた 
はずだ。その生物は モン スターたちと同じく，地 
球を支配しようと宇宙からやってきたエイ リアン 
たちであった。そしていま，地球をめぐってモン 
スターとエイ リアンの 戦いが始まる。このラスト. 
ハルマゲドンの 主役は人類ではない。そう， モン 
スターたちなの だ。 


X 1/ X 1 turbo 用 5 # 2 D 版5枚組7,800円 

(2 ドライブ専用） 
ブレイングレイ 003 (264) 3534 

★エグザイル • 破戒の偶像 

このエグザイルは，アクションシーンと RPG シ 
ーンの2つで構成され，アクションシーンは源平 
討魔伝のデカキヤラモード， RPG シーンはドラク 
エタイプの画面構成となっている。そしてこのゲ 
一厶は12世紀という時代設定からスタートして， 

9つあるシナリオを，丨つひとつ解いていくうち 
に，このゲームの最終目的を知ることとなり，舞 
台も20世紀へと移っていくようだ。アラビア半島 
を中心に展開される古代の神秘な世界。はたまた 
現代の中東情勢がゲームに取り込まれていて楽し 
めそう。また，発売日より2週間以内にこのソフ 
卜に付いている応募用紙を送ると，もれなく日本 
テレネットのオリジナルミュージック CD が当たる 
オマケも付いている。 

Xlturbo 用 5 # 2 D 版3枚組8,800円 

(2 ドライブ専用） 
日本テレネット 003 (268)1159 

★ARCUS 

「 RPG には様々なタイプがあるわけだが，すぺて 
の RPG において共通点がある。それは経験値であ 
る。（中略）このことについては最近，経験値稼ぎ 
という言葉が生まれた。シナリオやグラフィック 
が変わっただけで基本的なシステムは変わってい 
なかった。そこでわがウルフチームは，考えたの 
である。これまでのパワープレイを中心とした R 
PG を第一世代の RPG と例えるなら，第二世代の R 
PG はテーブルトークタイプと考えたわけである。 
レベル，経験値はなく，会話を中心とし，キャラ 
の成長はデジタル的ではなくアナログ的にする。 
いま， RPG が新しくなる j (「 RPG における ARCUS 概 
括論」より一部抜粋)。ここからもわかるように， 
あの，ウルフチームの意欲作が XI に初登場だ。88版 
のものにかなりの変更が加えられる予定らしく， 
ウルクチームの実力に期待したい。 

Xl / X 1 turbo 用 5 # 2 D 版5枚組9,800円 

ウルフチーム 1503 (269) 8650 

☆ヘルツオーク 

2人同時プレイもできるリアルタイム•シミュ 
レーションゲームが登場だ。あなたの使命は機動 
歩兵と破壊工作兵器を使って，敵本拠地を攻める 
ベく前線基地で戦い抜くこと。2人同時プレイの 
場合には，同じ画面のなかを動き回るのではなく， 
画面を縦に2分割し，プレイヤー丨とプレイヤー 
2が別々の スクロールを してしまったりと，いま 
までのシミュレーションとは毛色の違うものに仕 
上がっている。このあとの GAME REVIEW でも紹介 
しているので，そちらのほうも参考に。 



M.U.L.E. 


Xl / X 1 turbo 用 5 # 2 D 版6,800円 

(要 G - RAM , turbo 以外はジヨイスティック専用） 
テクノソフト 00956 (33) 5555 

★ザ•リターン • オブ • イシター 

この ゲームは あのド ルアー ガの塔の続編で，ギ 
ルがド ルアー ガを倒し，その魔力を封じ込め，恋 
人のカイとともにこの塔から脱出するところから 
始まる。しかし，ド ルアー ガの魔力が解けたため 
にその魔力によって修復されていた塔は廃墟と化 
し，出口への道も迷路となってしまった。さらに 
ド ルアー ガの呪縛が解けてしまったため，モンス 
ターたち は 以前にもまして狂暴になっていた。果 
たして，ギルとカイは世界を救うことができるか， 
それはあなたの腕次第。 

X 68000 用 5〃2 HD 版7,800円 

エス•ピー•エス S 0245(45)5777 

★ R-TYPE 

昨年，ゲームセンターで好評を博した R - TYPE が 
各機種に移植されているのは皆さんご存じのとお 
り。首を長くして待っていた方，お待たせしまし 
た。いよいよ X 68000 にも登場だ。次々に現れるグ 
ロテスクな敵キャラを相手に，あなたは単身 R - 9 
に乗り込み，戦わなければならない。果たして，バ 
イド帝国の支配者バイドを倒すことができるだろ 
うか。どこまでアーケード版の迫力に迫れるか。 
X 68000 用 5"2 HD 版7,800円 

アイレム販売 006(535)4480 

☆ア ドベンチ ヤーゲー ムイン ター プリ ター 
電脳 作家（サイバーライター） 

ついに， X 68000 ユーザー念願のアドべンチャー 
ゲーム用のコンストラクシヨンキットが登場した。 
Human 68 k のコマンドとして扱うことができ，この 
ツール 専用のグラフ ィ ック ツール も付いている。 
なお，このアドベンチャー ツールを 使ったアドべ 
ンチャーゲームシナリオコンテストも予定されて 
おり，入選作品の一部は，商品化が行われるほか， 
それ以外の作品は各応募作品ごとに得点順位，偏 
差値，審査員のコメント付きで返送される。 

X 68000 用 5 # 2 HD 版2枚組4,980円 

日コン連企画 006 (644)6901 

☆ Toys&Tools Human 68 k 

Human 68 k のコマンドモードを使ううえで AC 0 PY 
(複数のファイルを連結する）といった，あれば便 
利！というようなものから， QIX (見ているだけ 
で心がなごむ環境ソフト）といった，こんなのな 
んの役にたつんだと思わせるものまで幅広く各種 
集めたトランジェントコマンド集。なんといって 
も，基本的にマニュアルレスで使える親切設計が 
うれしい。 

X 68000 用 5 # 2 HD 版6,800円 

計測技研 00286 (22)9811 
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GAME 

REVIEW 

今月は，シューティングアクション「へ 
ルツオーク j と，正統派麻雀ソフト「プロ 
フエッショナル麻雀悟空」 0 そして RPG の 
r ハーレッシュ」の 3 本です。うまくすれ 
ば X 68000のドラスピが間に合うかと思 
っていたけど，今月もハズレ〇来月，期 
待していてね。 



へぶ“、‘、泌^^ 

ヘルツオーク 


2 プレイヤーの場合だと，左右に 2 分割され 
た画面が上下別々にスクロールするシュー 
ティングゲーム。熱くなること請け合い。 


►パッケージを見て，ひと昔前のスタロー 
ルシューテイングかと一瞵不安を感じる。 
デモを見て，さすが技術のテクノソフト， 
いい処理してるなあと感心する。そしてゲ 
ームをプレイしてみると，やっぱり ヘルツ 
オークにしてよかった！となる。実際， 
このパッケージは地味だし，なんとなくつ 
まらなそうな表情のゲームである0ところが 
ぎっちょん，真実はさにあらずである。プ 
レーするとわかる力 ? ，このゲームの戦略的 
要素は大戦略を，2分割スクロールはボー 
ルブレイザーを連想させるほどの出来栄え 
なのだ。前評判はないに等しいこのテのゲ 
ームでは，昔の悪夢のような操作性が思い 
出されそうだが，その心酉己もない0リアル 
タイムの要素とストラテジッタな要素が非 
常にうまく調和していて，妙にハマったり 
してしまうソフトだ。とにかくシューテイ 
ングというよりシミュレーションの色合い 
が強いので，その筋がお好きな方は，ぜひ 
2人用モードで実際にプレイしてみてほしい。 



ジャンジャン兵器を作ってやろうじやない 
の0それっ，戦車だ，核ミサイルだ！ 

おっ，こいつは楽しいや，作った戦車や 
ら歩兵やらが，前線基地に向かってトコト 
コと勝手に動いてくれるではないか。おま 
けに，敵と衝突すれば戦闘だってしてくれ 
る。それをコーヒーでも飲みながら，ノン 
ビリ眺めてりやいいのかと思うと，世の中 
そんなに甘くはなかった。自分はといえば 
モ ビルスーツを 操縦して，兵器の輸送やら， 
敵の攻撃やらで，コセコセと画面を動き回 
って大忙し0このゲーム，人間と戦うこと 
もできるので，コンピュータ相手に ムッツ 
リするよりは，友達相手にギャーギャー騷 
ぎながら遊ぶほうが健康的でしょう。 

熱中度 ►►►►>!>!> ( H . K .) 


熱中度 ►►►►!>!>[> ( A . N .) 

► まずはなにも見ないでゲームをやってみ 
る。1分たった。しえ一，なんじゃこれは。 
訳がわからん。今度はマニュアル片手にや 
ってみる。なになに，破壊工作兵器を作っ 
て，敵の前線基地を破壊すればいいのだと。 
こりゃ単純なゲームだこと。それならば， 



I 

•*' . 


ゲーム 要素 
左右分割画面 




アクシヨ 


サウンド 

シミユ 
レー シヨ： 

ビジュアルアイデア 


Xl / XIturbo 用 5’2 D 版6,800円 

(要 G - RAM , turbo 以外はジョイスティック専用） 
テクノソフト 00956(33)5555 

ブロフェッシヨナル麻雀悟空 

24人の対戦相手のなかから雀士を選び，段 
位戦，勝抜戦，段位の3つのモードで対戦 
できる正統派4人打ち麻雀ゲームです。 


►う一ん，凄い。なにが凄いって，この麻 
雀 f 吾空，4人打ち麻雀で結構強いんですよ 
一（例によって私が弱いだけかもしれない 
が，そんなことは気にしない）。で，麻雀 f 吾 
空という名前からもわかるように，麻雀に 
出てくるキャラが悟空だったり，八戒だっ 
たりするわけで，1人ひとりのキャラの癖 
が（そうそう，1回1间対戦する相手が違う 
んですよ）平均和了点25000点とか，立直率 
.250 とか，数字で見られるんですよ 一， う一 
ん恐ろしい。でもこれだけキヤラをリアル 
(っていうのはなんか変な感じだけど）にす 
るんだったら，なんで,上がったときの「ち 
やい」とか「これで勝ったと思うなよ一っ！」 
と力*，リア クシ ョンを付けてくれなかった 
んだろう？ 


lb Oh! X 1988.8. 



















































はっきり•言って，3人のゴルゴ13にかこ 
まれて麻雀やってるみたいでいまいち，落 
ち矜けないんだよね 一。 黙々と麻雀やる人 
にはいいのかもしれないけど……。あと 0.5 
歩で Vi : •璧なのにな一。 

熱中度 ►►►►>[>[> (で) 

► Yf 手人差し指を日に，中指 1 を日に，對旨 
を m に添え，歴戦の雀土を前に,牛魔王， 
三藏，敵は多く，ルールはこちらで決めら 
れるが，あまり ローカル なのも氕が引け， 
违刻くらいはいれてもらうがカンウラは 
なく，ぼんやりしていると嗚き拟ね，うっ 
かり捨てると振り込み，時折数秒の長そに 
入るかと思えばおもむろにリーチをかけら 
れたりして，それでも早朝，まだ明けやら 
ぬ乍のド，これから1丨丨が始まろうという 
すっきりした頭で挑めば，愤爪に愤： i : を取 
ね，無理をせず，报り込まずして勝てぬこ 
ともなしとはいえ，半驻も3度丨丨を数える 
と朝刊も配達され，多少計算機相手に「こ 
のやろう」などと丨1走り始める頃には，あ 
れよあれよと裸にされ，それで’も コーヒー 
の持つカフェインの力で持ち敗し，前半の 
貯金にものをいわせ，なんとか“悟浄”は初 



段へと昇進した。 

実戦並みの緊張感と頭脳を要求される， 
久々のまっとうな麻雀遊戯であった。 

熱中度 ►►►►►►> ( K ) 

XI Xlturbo 用 5” 2 D 版6,800円 

シャ ノアー ル 003(702)0598 


八ーレッシュ 

過去に封印されたはずの影の神が，突如復 
活した。そこで光の戦士が失われた光を求 
めて立ち上がるという， RPG なのです。 



►このハーレッシュは，いわゆる普 M のア 
クション RPG となっております。町の ft {民 
から情報を集め敵と戦って経験値やお金を 
稼ぐ。そいでもって，剣や防具を H ったり 
修理をしたり，ときにはデカキャラも登場 
したりするアレです 0 スクロール は波•つ 
し，画面消去ほ遲いし， BGM は変化に乏し 
いし， マニュアルは不親切だし， Oh ! 父の 
編!}4者はオタクしてるようだし（失礼，こ 
れは関係ない）と，欠点は多いのですが， 
ところがどっこい。プレイを続けていると 
fijj 単に解けていく謎，そして次々と変化し 
ながら広がっていくマップなど，なかなか 
心地よいのです。過去に，あのザナドウを 
5時間で飽きたこの私が，18時間もの間， 
すっかり夢中になってしまいました。 

いま話題のイース11やソーサリアンは， 

) iV ] 知の とおり，すっかり turbo 雄 用になって 
いま すので， RPG ファンの XI ューザーの 
力•は，ぜひこちらを“し上がってみてはい 
かがでしょうか0 

熱中度 ►►►►[>!>!> (お） 

►リアルタイムのアクション RPG である。 
最近は，戦闘が起こるといちいち戦闘画面 
とかに切り換わったりするのが多いが，こ 
のゲームは，敵のいる力•向に押しつけると， 
勝手にボカスカと殴り介ってくれるという， 
実に安的:な方式でなかなかよろしい。傷直 
しをしなくてもどんどん傷が胙っていくの 

も いい。 

グラフイックはなかなかきれいである.。 
人に会って詁を叫くとき，クローズアップ 



ゲーム 要素 バランス 


手軽さ 



が出てくるのはなかなかよい。また，宮殿 
にはいかにもという感じの BGM が流れ，衛 
R •が行進をしていたりしてなかなか雰囲気 
がよい。お姫様に会いに行くところもそれ 
っぽくて かっこいい。 

難を付ければ，ファミコンなんかのゲー 
ムに比べて，詰めが11•いというか，いまい 
ちのかったるさがあるのが|1!1题といえる。 
しかし， パソコン RPG にありがちな，ごて 
ごてとしたところを晩した，パ、ランスのい 
いゲームである。 

熱中度 ►►►►►!>(> ( M . Y .) 

XI / XI turbo 用 5" 2 D 版3枚組7,800円 

ザイン•ソフト 00794(31)7453 


ゲーム 要素 バランス 

々ィ k JlvISTrffi 



私はもっと自由に空を飛びたいのだっ！ 

ちわ一す，オタツキーの（で）で一す。違うって 
ば。ところでこの私は， X 68000 というと「ザ • 
コツクピツト」でばかり遊んでいます（もちろん 
XI ではまじ や べんち や 一だけど）。このコツクビ 
ツトは，これはこれでとっても満足してるんだ 
けど，やっぱりセスナ機や戦闘機みたいにキリ 
モミ飛行はできないし，急上昇なんかもできな 
いんですよね 一,， それに私は夕焼けに染まる空 


港を飛び立ちたいし，昼の景色も見てみたい。 
ほかにもマッハ2でほかの飛行機とも競争した 
い。したいっっ！ そう，もっと私は自由に空 
を飛びたいのだぁ。最近，この私が遊べたフラ 
イトシミュレーションって，どうもコックピッ 
卜のほかには，ずいぶん前の投稿の MZ - 1500用 
r SKYHOLYDAYj しかないじゃないですか。これ 
ではいけないっ！ ね 一， 誰か X 68000 にもっと 
凄いフライトシミュレーションを作ってよ。 

(すつかり他力本願の（で）） 
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♦イース i ( 第 i 話） 



少年アドルの 
新たなる旅立ち 

Kamon Masato 

華門真人 

6冊のイースの本に秘められた新たなる 
謎に立ち向かうため，少年アドルは壮大 
な冒険の旅へと旅立つ0音楽，デザイン 
などは言うに及ばず，なかでも今回のイ 
ースでは，完成されたストーリーにぜ 
ひ注目していただきたい。 



XI turbo 用 5 W 2D 版 4 枚組 7.800 円 

(Model 10 では要 CZ- 阳 GR2, CZ- 阳 F1 
2 ドライブ専用） 

日本ファルコ厶 00425 (27)6501 


第 J 章 ランスの村 ■■■■■■■ 

「大丈夫？」 

かわいいその声で，ようやく俺は意識を取 
り戻した。 

「ここは？」 

どうやら，またも見知らぬ土地に来てしま 
ったようだ。故郷が妙に懐かしい。 

しかし，そんな感傷に浸っていられたの 
もバノアの家を訪れるまでのことだった。 
そう，俺は助けてくれたリリアなる娘に連 
れられランスの村へ向かったのだ。ランス 
の村では，まずリリアの母バノアを訪ねた。 

そこで俺は悲しい事実を聞かされた。あ 
のリリアは実は重い病いに侵されていると 
いう。なんとかしてあげなければ。そう思 
うと，俺は再び胸のうちに熱いものが燃え 
さかるのを感じた。そう，俺は行かなけれ 
ばならない。リリアのために。 

第2章 廃虚 . 

パ、ノアの話によると，医者のフレアなら 
ばリリアのための薬を作れるという。とり 
あえずフレアを探そう0そう思ってバノア 
の家を出て村を歩きまわっていると，フレ 
アの弟なる人物に出会った。 

彼の話によると，フレアはいまは廃虚と 
化している廃坑のなかで生き埋めになって 
いるらしい。俺の新たな目的は決まった。 
手元にはバノアにもらった 300 G がある。俺 
はそれで剣と楣，そして薬草を買い求めた。 
村人たちの話を聞くだけ聞いたらいよいよ 
廃坑へと出発だ。 

廃虚のなかに入ると，さっそくモンスタ 
一どものお出迎えだ。久々の戦いに最初は 
戸惑う俺だったが，カンさえ取り戻せばこ 
っちのもの。俺は次々とモンスターどもを 
なぎ倒し，体力の充実に努めた。 

廃虚のなかで俺は奇妙な老人と出会った。 
その老人は俺にモンスターの守っている宝 
箱のなかの物を持って米てくれるように頼 
むの AT 。 よしきた，とばかりにそのモンス 
ターに 戦いを挑んだのはよかったが，相手 
が強すぎた。 

やっとのことで逃げ出した俺は，さらに 
体力を充実させ，装備もふやして再び戦い 
を挑んだ。1回相手を切りつけては離れる 
というヒット•アンド•アウエイ戦法をと 
った俺の前に， モンスター はなすすべもな 
く消滅した。 

こうして俺は神界の杖を手にした。先ほ 
どの奇妙な老人の教えに従い，女神像の前 
に立った俺に奇妙な変化が起こった。そう 
俺の体に魔力が備わったのだ。 


俺はさらに廃虚の探索を続け，ロダの実 
などを手にした。そして十分に力をつけた 
俺は，いよいよ目的地である廃坑へと向か 
うことを決意した。 

第3章廃 坑 — ' 

俺が村に戻ると，村長に出会った。村長 
は廃坑に入ることを快く許してくれた。こ 
うして俺は廃坑へと向かった。 

廃坑に入ってしばらく行くと，奇妙な部 
屋を見つけた。静まり返ったその部屋の奥 
には神官の像が立っていた。その像の前に 
立ったとき，たたずんでいる俺を驚かせる 
ようなことが起きた〇イ ースの 本が1冊， 

音もなくその像へと吸い込まれていったの 
だ。そしてあの声が聞こえてきた。 

声の主は行方不明と伝えられていた神官 
のひとりであった。彼の口からことの次第 
が語られた。 

俺は廃坑をさらに奥へと進んだ。そして 
イ ースの 本を次々と神官に返していった。 
こうして5册のイースの本を返した俺は， 
ランスの村で起きていた不可思議な出来事 
の全容を理解した。そしていまや，この天 
上国イースも魔物の危機にさらされている 
のだ。そこで地上を救った俺がイースを救 
うべく呼び寄せられたのだ。 

もちろん俺は本来の使命も忘れてはいな 
かった。俺はフレアを助け出さなければな 
らないのだ。強力な敵になんどかくじけそ 
うになった俺だが，その度に神官の部屋で 
休息をとり，冒険を続けた。そしてついに 
それらしき場所を見つけることがで'きた。 

俺は渾身の力を込めてマトックを振り下 
ろした。そして壁が崩れ，そのなかにいた 
フレアを発見することができた。しかしフ 
レアの話によるとリリアを助けるためには， 
セル セタの花が必要だという。 

俺は廃坑を突き進んだ。その途中で俺は 
フアイヤーの魔法なるものを手にすること 
力すできた。フアイヤーの魔法を装備し礎坑 
を進む俺の前に奴が立ちはだ力> った。 

そう，親玉の登場だ。奴は手強かった。 



こうしてアドルは魔法が使えるようになったのです 
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口から弾を吐き出すのだ。しかし俺はファ 
イヤーの魔法で果敢に戦った。狙うは奴の 
口だ。そして危ういところで俺は奴を倒す 
ことができた。 

こうして俺は廃坑の第2層へと突入した。 
第2層ともなるとモンスターどもはさすが 
に手強い。それでも俺はなんとかセルセタ 
の花とライトの魔法を手に入れることがで 
きた。廃坑はこれで終わりであるかのよう 
に思えた。力、しかし，ふと思いたってラ 
イトの魔法を使ってみると，見えなかった 
2つのゲートが輝きを放ったのだ。俺はそ 
こで邪悪な鈴と鉄鉱石を見つけ出すことが 
できた。 

こうして，廃坑の探索は終わった。そう 
確信した俺はウイングを使ってランスの村 
へと戻ることにした。 

第4章 地下室- . 

村に戻った俺はさっそくフレアを訪ね， 
リリアの薬を調合してもらった。これでリ 
リアは助かる。俺は安堵した。 

しかし俺はそうそう休んでいるわけにも 
いかなかった。俺にはイースを救うという 
重大な使命があるのだ'。どこに行けばよい 
のだろう。廃坑にひとつ開かない扉があっ 
た以外，思いつく場所がない。 

そんな俺の耳に，ジラの家の地下室に魔 
物の気配がする，という情報が飛び込んで 
きた。俺はさっそくジラの家へと向かった。 
ジラの地下室に入った俺は，なにか i 圣しい 
気配を感じた。 

「なにかが，いる！」 

俺はそう確信した。 

「来るなら米い！」 

邪悪な鈴の音が地下室に響きわたると同時 
に壁がすさまじい勢いで崩れ落ち，そして 
モンスターどもが現れた。 

モンスターをファイヤーの魔法でけ散ら 
し，壁の向こうに入った俺は，すぐに神官 
ファクトを見つけることができた。 

ついに6册目のイースの本が音もなくネ中 
官の像へと吸い込まれていった。そして俺 
は新たな使命を与えられた。神殿に行って 
2人の女神を助けねばならない。イースの 
平和のために。 

導きの巻物を手に，俺は例の「開かずの 
扉」へと向かった。扉をくぐった俺の目の 
前に，極寒の世界が広がっていた。本当の 
冒険はいまここから始まったのだ。 

やっぱりイ•"スってい-す 

さて，イース II のレビューはいかがでし 
たか。なになに，まだ全然終わっていない 



じやないかって。それは当然ですよ。こん 
なに大きなストーリーを1回で紹介するな 
んてとてもじやないけど無理ですからね。 
というわけで冒険物語イースはさらに来月 
•へと続くのです。 

しかし，このストーリー，本当に長いで 
すよ。なにしろマップの大きさは前作の3 
〜4倍だそうですからね。さらにここから 
話は地下室から氷の国，火の国を経て，よ 
うやく神殿へと行き着くのです。 

それにしてもイースの操作性の良さは今 
回も健在です。スクロールは極めて滑らか 
ですし，キーのレスポンスは抜群です。た 
だ，敵のキャラが非常に多〈なると一時的 
にスピードが落ちるという現象がジラの家 
の地下室で見られたのですが，ほかのとこ 
ろでは一切ありませんし，それもほとんど 
支障のないような程度なので許しましょう。 

こうした快適な操作性と相まって，イー 
スの魅力となっているのは，その綿密なま 
でに計算し完成されているバックボーンと 
なるストーリーです。プレイヤーはまさに， 
ゲームの進行とともに物語の主人公になり 
きることができるわけです。ですから ， RP 
G といってもつまらないだけの経験値稼ぎ 
や，金集めをする必要がないのです（もちろ 
んやろうと思えばいくらでもやれますが)。 

すなわち，物語を進めようと努力すれば 
経験値にしろ金，レベルにしろ自然にあと 
から付いてくるのです。イースではアイテ 
ムでさえ敵に勝つためのものではなく，物 
語を進行させるためのものに過ぎないので 


す 。 

最近はこういった種類の RPG も増えて 
はきましたが（これもすベてイースのヒツ 
卜によるものであると私は思っている），や 
はり本家本元だけあってその完成度の高さ 
は目を見張るものがあります。そもそもゲ 
—ムっていうのは，楽しむためにあるもの 
ですからね。だからこのイースの，とこと 
ん最後までプレイヤーを楽しませようとい 
う姿勢には感心させられます。 

イースといえば BGM の魅力も忘れられ 
ませんが，今回は FM 音源を使い，曲もた 
いへん豊富になっています。神官の部屋で 
は落ち着いた感じの，村では明るい感じの， 
廃坑では暗い感じのといった曲の使い分け 
もしっかりしており，雰囲気を盛り上げて 
くれます。 

それに付け加えるならば， XI 版ではセー 
ブが7力所もできますから（これは XI 版 
だけですよ ！） ，かなり解きやすくなってい 
ます（でも，やさしいだけというわけでは 
決してありません)。致命的なハマリこそな 
いといっても，たくさんセーブできるにこ 
したことはないですからね。 

とまあ，操作性，画面，スケール，そし 
てストーリー， BGM とどれもが前作のよさ 
を引き継ぎながらも，このイース II はより 
向上しているのです。これはやらないわけ 
にはいきませんよね。というわけで「やっ 
ぱりイースはい一す」，など使い古されたシ 
ヤレを残しつつ，広大なマップの征願を目 
指•してまた来月。 


THE SOFTOUCH 
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_ ソーサ リアン(その 2) 



クイーン 7 U —号 

Nishikawa Zenji 

西川善司 


ソーサリアンは RPG としても AVG と 
しても楽しめる要素をたくさん持ってい 
ます。そこで今月は，スグレもののシナ 
リオとして西川善司氏ご推薦の「呪われ 
たクイーンマリー号」にスポットを当て 
て，その徹底解剖をお届けしましょう。 



Xlturbo 用 5 M 2 D 版5枚組 9. 800円 

( modellO では要 CZ - 阳 GR 2, CZ -8 BF 1) 
日本ファルコム 00425 (27)6501 


こんにちは，西川善司です。 

まず初めに，光月のレビューの訂正をし 
ておきます。24ページの「暗き沼の魔法使 
い」のシナリオ紹介で，「バシバシ2段ジ 
ャンプを使って〜」というところで，その 
文の前に「魔女の鍋はゾンビの出るところ 
で」という文章が抜けているんです。これ 
はミスプリントでした，ごめんなさい。 

それと「音楽は11和音」と:, 1 !:いてしまい 
ましたが，前回出没した吉用賢司君によれ 
ば 「4 MHz の Z 80 には11和音は重荷だよ 0 P 
S G 3声は いつも 使って いるみたい だけど 
FM 音源は5〜6声しか使って いないみたい 
だよ」だそうです。 

シナ U 才徹底研究ナノダ ■ _ 一一 

さて，今月は私の大好きな「呪われたク 
イーンマリー号」を徹底レビューしてしま 
いましよう。このシナリオは RPG としては 
珍しく，1隻の船が舞台であります。船内 
で起きた殺人事件の犯人を搜したりするィ 
ベントなんかもあって，「推理アドベンチャ 
一」の要素をも持っています。少し練り直 
せば，これ単体で売っても恥ずかしくない 
ような出来のシナリオで，難易度もかなり 
のものです。そして推理はアドベンチャー 
の大御所， J . B . ハレルヤ氏にご協力いた 
だくことにしましよう。 

それでは，はじまり，はじまり〜。 

ACT 1 セントエルモ 1 藥 

J . B . は，潮風にしばしの別れを告げ，事件 
現場の「クイーンマリー号」に乗り込んだ。 
暗い階段を上って船上に出ると，そこには 
杖をついた見るからに船長という人物がマ 
ストに寄りかかっていた。 

「ハレルヤ さんです ね。 わざわざ， 米てい 
ただいたのに申し訳ないのですが，この船 
に乗るのはやめたほうがいいと思います」 

J . B . は，船長に事件について尋ねた。 
「はい，以前ある岛に立ち寄ってから，お 
かしなことばかり起こるんです。船 H のデ 
ビッドが殺されたのもその敗後でした。船 
員たちは船倉になに.か居るらしいと门々に 
言っていますし，本当はこんな船に息子を 
乗せておきたくはないのですが，总イ•はぺ 
ットのイ ンコに 逃げられてしまってからと 
いうもの，すっかりふさぎこんでしまいま 
して……」 

J . B . は船長と別れ，船員の部屋へと向か 
った〇 

アンドリューという船員の部屋のドアを 
軽く ノックしたあと，部屋に入った。 

「誰だい，あんたは」 


J . B . は事情を説明したあと，取件につい 
て聞いた。 

「し，知らんそんなこと …… j (これはマン 
ハッタン•レクイエムでよく みられる 台詞 
のひとつですね） 

J . B •はなにか情報はないかと再び尋ねた。 

「そういえば，ネズ、ミが インコの 能を 引い 
ていったぜ」 

J . B •はアンドリューの部/室を出てボブの 
部屋を訪ねた。 

「デビッドは，船倉で殺されていた。最近， 
船倉がどうも騒がしい」 

そこで机のリ I き出しになにかあるかと恐 
って 調べた 力' : ， 鍵-が掛 かっていて 開かな か 
った。仕方なくボブの部屋を出た。 

J . B •は，もう1階下の船室を訪ねようと 
階段をドりた。この船は船 fr も穴めると3 
層構造になっているらしい。そして今度は 
殺されたデビッドの部 W に入った。きれい 
に片付けられていたが，なにか嫌な雰[用気 
を J . B . は肌に感じながら部屋のなかを捜し 
てみた。するとデビッドの日記が見つかっ 
た。さらに捜してみると机の引き出しに船 
倉の鍵を見つけた。 
j . b . は，キリーの部 m を訪れた。 

部屋のなかには赤いヒゲをやした，年- 
配の船乘り がいた。 

「ハレルヤさん， 船長の息子を元のセント 
エルモの ような明るい广に戻してあげてく 
ださい」 

J . B . は，この 「セントエルモ」 という厂； 
葉に聞き覚えがあった。そう，確か昔，船 
乗りの友人から船の マスト に夜になる と 青 
白い炎のようなものが兄えるという話を聞 
いたことがある。 J . B . は，船上に上がると 
マス トに登り，夜を待った。 

ACTS 船長の息子 胃 

樽が沢山ある部屋を抜けるとひとつのド 
アがあった。この部 M は暗く，湿っぽかっ 
た。 J . B •は部尾の奥で船にぶつかる波をじ 
っと兄ている少年に向かって話しかけた。 

「おじさんは誰？そう，パパに頼まれて 



デビッドの部屋で日記と鍵を発見 
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米た探侦さんなの。でもパパは僕のことを 
嫌いみたいだよ。だって突然，わけも言わ 
ずにを降りろなんて H うんだ」 

傷ついた少年の心を癒す術を): n らなかっ 
た J . B . は， 少年に別れを告げ，船倉のいち 
ばん奥へと向かった。 

ACT 3 船倉 ■ 關 

船貪の奥にもやはり多くの樽が茜いてあ 
った。ここにある樽はすべて空のようだ。 
J . B . はなにか凶器らしいものが見つからな 
いかと樽を念入りに調べた。ひとつだけほ 
かの傅よりも兩:い樽があったほかは，特に 
なにもなかった。しかしそこでドアがある 
のを兄つけた。鍵が掛かっているようだっ 
た。先ほど手に入れた鍵を使うと，ドアは 
重い音をたてて開いた。 

なかは真っ暗だった。しかし， J . B . はな 
ぜかなかを非常によ〈兄ることができた。 

船 ft を歩き進んで t / •くと，にわかに，太 
陽の光が見えてきた。 J . B . は II の光がさし 
てくるほうに hi をやった。そのとき，烏に 
似たシルエットを見たような鉍がした〇あ 
れは！？ 

ACT 4 疑惑 . . ■ … 

J . B •は，船 M の息广を説得寸ることにな 
んとか成功し，彼を船から降ろした。 

J . B . はもう•度アンドリューの部綃を訪 
れた。鍵が掛かっている。彼は n 分の部屋 
にはいないようだ。今度はボブの部 M を訪 
れた。アンドリューはボブの部 W の前にい 
た。どうもボブの様/•をうかがっていたら 
しい。 J . B . に铽がつくと，落ち精きのない 
様子を兄せてこう宫った。 

「な，なんでもな。 . 」 

ボ/の部屋を出て再びキリーの部屋に向 
かった。 

「ハレルヤさん， 私の愛用している斧が 兄 
つからないんです。ご存じありません力*」 
もしかしたら，誰かがキリーの斧を持ち 
出してデビッドを段し，その即をキリーに 
かぶせようとしているのかもしれない，と 
J . B . は思ったが，証拠はなにひとつない。 

J . B . は雖員の 部屋を行き来し情報を集め 
た0キリーとアンドリューの姿が見えない。 
船内を探してみるとマス トの上に キリーは 
いた。なにか悄報はないかと聞くと， 

「ええ，そういえば，今日はボブが兄張り 
役なんですけど，金の壺がどうかしたとか 
いって，見張り役を今 H だけ代わってくれ 
というんです」 

丄 B . は，ボブがデビッドの部屋でなにか 
行動を起こすのではないかと思い，デビッ 
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ふさぎ込んでいる船長の 
息子を慰めるため，パー 
ティはインコを求めて船 
内を東奔西走(写真左下)。 
そして結果はご覧のとお 
り (写真左)。心を開いた 
少年は，パーティの説得 
を受けて船を降りるので 
す。右下の写真は，これ 
が曝のセント エルモな の 
です 



ドの部屋に向かった。部屋のドアを開ける 
とボブがいた。しかし，話しかけると， 

「お，おまえには閱係のないことだ。デビ 
ツドを殺した犯人でも探していろ」 

と，ぞうと，壺のようなものを小脇に抱え， 
ボブは部尾を出ていった。 

ACT 5 第二の殺人 1 - ■ 

J . B . は船長が用意してくれた部屋で，こ 
れまで集めた情報を?綁していた。すると， 
けたたましい物音が聞こえた。船 fr の奥で， 
なにかあったらしい。 J . B . は船倉に急いだ。 
船倉にはキリーがいた。 

「ハレルヤさん，私は阼 Id ボブが金色の壺 
を海に拾てるのを兄ました。なんでそんな 
ことをしたんでしようね」 

J . B . はそんな,话より，さっきの物音のほ 
うが SU こなっていた。人の悲鳴のようにも 
間こえたからだった。しかし，なにもない 
様丫-なので船 fr から元の部屋に戻ることに 
した。ドアを開けて!*ドに出ると，そこに 
はうつぶせになって倒れているボブの死体 
と f 皮の部屋の机の鍵があった。 

犯人はいったい誰なのか。いちばん怪し 
かったボブは消えた。いまとなっては，- 
度捜査線上から消したキリーも#しい。ボ 
ブが殺されたとき，キリーも船旮にいたか 
らだ。また，アンドリューは姿をくらまし 
たままだ。また，依親主の船長だって捜査 
線上から外すことはできない。いったい犯 



人は誰なのか。この事件と「金色の壺 j と 
の閲係は . 。 

最後にインフォメーション ■ 

いかがでしたか，このアドベンチャーミ 
ステリーの世界は。これを読んだだけでも 
ゾクゾクしてくるでしよ。まだソーサリア 
ンのこのシナリオに挑戦していない人は， 
ぜひこの真犯人を見つけ出してくださいね。 
ところで，もうすぐ （7 月29日なのだ）こ 
のソーサリアンの新しいシナリオ5本が追 
加発売されるそうです。 

どうやら今後，ソーサリアンにはこのよ 
うな追加シナリォが引き続き発売される r 
定だそうです。さらに嬉しいことに，オリジ 
ナル シナリオを-般ユーザーから幕集した 
りすることも予定しているそうなので，い 
まからネタを考えるのもいいかもしれませ 
んよ。敁後にもう一度ごめんなさい。先月 
敝せてあった表1の見方に誤りがありまし 
た。表中の〇印は取に順#を伏せてあるの 
ではな〈て，その魔法を使うのには〇のと 
ころの要素が必要だという意味です。 

では，また米月といいたいところだけど， 
ミュージック.モード賴むから誰か見つけ 
てくれ一。また，「シナリオ，ここがわから 
ないコーナー」にもお便りください。 

米月は，皆さんからのハガキを中心に， 

さらに傾向と対策を考えてみることにしま 
しよ？。 
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THE 

癱第 4 のユニット 2 



サイコパワーで 
野望を砕け 

Nagasawa Atsuhiro 

長沢淳博 


WWWF が日本に乱入して来たって，そり 
ゃ大変0なんとしてもこのチャンピオン 
ベルトは渡すものか。と，ちょっと違う 
ような気もするが，とにかくプロレス大 
ファンが作ったとしか考えられない楽し 
いアドベンチャーが再び登場したのです。 



Xl / Xlturbo 用 

データ ウェスト 


5”2□版3枚組7,600円 
(2 ドライブ専用） 
006(968)1236 


エッ？ なんですって0このゲームをこ 
の私が解くの。ど一れ，なになに，「第4の 
ユニット2」。ツーってえからには前作の続 
きものですな。アレッ，女の子が出てきた 
けど，まさかあの筋のアドベンチヤーじゃ 
ないでしょうね。大丈夫だから1作目から 
試しに解いてみろって。ふ一ん，そいじゃ， 
チョチョイのチョイっと。 

いや 一， この1作目はなかなかアニメぽ 
くって，プロレスっぽいアドベンチヤーで 
楽しめますな。それじゃこの勢いで，「第4 
のユニ ット 2」 もいってみ ましよう か。 

と，思ったらいきなりオープニングモー 
ドがありますね。ちょっと視いてみましょ 
うか（これはアドベンチヤーの基本です)。 

わたしゃ，本当いうと学園モノって好 
きなんです。前作は学校が舞台だったから 
今度もそうかと思っていたら，どうしてな 
かなか難しい話みたいじゃないですか。才 
マケニカタカナバカリノモジヲヨメッテイ 
ウノハトッテモツライ（そうでしよ）。要す 
るに高級官僚が誘拐された事件を解決すり 
ゃあいいんでがしょ。ようがす，この私が立 
派に解決してあげましょう。 

待ってし、たよブ〇ンウイン 

この私は，ブロンウインよ（いかん，ち 
ょっと無理があるよな，これは。まっ，い 
いか )0 こしなか博士，ストーリーの説明は 
いいから話を早くすませてちょ一だい。え 
っ， エージェント？ なんだかよくわから 
ないけど，さあ，行きましよ，セス0 

一今回のアッシュの出番はここだけであ 
る。 

ここで侍ち合わせね。さっそく，あたり 
を調べてみましょ。アラ，いい車じゃない。 
ねえ，セスもそう思うでしょ。えっ，車じ 
ゃなくてあの人を見ろって。まあ，男のク 
セにだらしないのね。バシバシ（兵士をた 
たいている音)。 

—このブロン ウインは，“たたく” コマ 
ンドで平気で兵士でも壁でもバシバシたた 
く。なかには「ポムッ」っ という音ととも 
に，なにも起こらない場合もある。 

あなたが，たきざわさん。サイボーグ計 
画って，なあに。 BS ってブリヂストン，じ 
ゃなかったサイボーグのことじゃないの。 

「ワツノ、 、ソノ、 ツノ、ツノ 、 j 

あ，その高らかな笑い声は黄金バット， 
もといダージリンにオレンジペコ 0 紅茶と 
いえばアスリート。本当は全然関係ないダ 
ノレジイちゃん。 

「ふっふっ，そのとおり。あんたなんか目じ 
やないほど強いのよ」 


アラ，いきなりドッカーン。「セスー，た 
きざわ中尉ぃ一」 

一それにしても，サイコブラストとはア 
ニメアニメ している。 

やってくれるじやない，ダルジイ〇こっ 
ちも必殺のサイコパワーッ！ 「スカッ J な 
にも起こらない。これじゃまるで紫醜罹じ 
やないの0ウッソー，なにその機械。そり 
や，捉破りの反則よ0レフリー呼んでやる 
からね。なんであなたのサイコブラストが 
通用して，この私のができないのよ。もう， 
プンプン。しようがないわね，こうなりや 
肉弾戦しかないって。や一ね 一， 私は嫁入 
り前の娘よ。 

一というわけで，前作からお馴染みの戦 
關モード。関.節技やコブラッイストと，そ 
の技は決してほかのアクションゲームでは 
類を見ない。それにここでダルジイはブロ 
ンウインのことを No .4 と呼んで'いる。これ 
で前作を知らない人でも，このゲームの夕 
イトルの謎が少しは理解できる。 

ハーハー， やっと勝ったわ，これで事件 
も万事解決っと，アレッ，なんで私が倒れ 
なきゃならないの。なによ，勝っても負け 
ても同じじゃない。結局はハンガーで UF 
0がどうしたっていうのよ。ちょっと，答 
えなさいよ。牢屋に入れたからって，この 
私がくじけるわけないでしょ。悲しいから 
って，マットレスなんて使わない。眠くた 
って，じっと耐えて考えるのよ。いつかは 
助けが米ることを祈って。 

海のまん中無人島 I 

この俺がたきざわ中尉だ。さっきはまっ 
たく，いきなりドカーンだもんな。なんて 
やつらだ。きっとこの手で必ず成敗して〈 
れる。おっとそうだ，まずは地下2階の調 
査からだ。まずはカギを探して，う一んと 
次は……。ヤバッ，ダルジイだ。逃げろや 
逃げろ，スタコラさっさ。 

ここはトイレか。そういえば最近便秘ぎ 
みだし，ちょっとお借りしてと。ゴーッ， 

あ 一， スッキリした。そういえば，さっき 



出た あ， 必殺の関接技攻撃 
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誰か米たような。まあ，いいや。結局ここ 
は2力所た^ナか。じゃあ，地下1階へと行 
ってみるか。 

とにか〈調べまくろうぜ。ホラ，思った 
とおりここにあるだ'ろ。人の話はよく聞け 

よ。ついでにコンピュータも 。う一ん， 

ほかに行けるところはないかいな。よしも 
う一度捜査続行だ。 

なんと，ロスナンバーのレストア。女の 
ことなら俺の出番じゃないか。中尉じゃ無 
埋だって。てやんでえ，こちとら江戸っ子 
でえ，とにかくセーブでぇ。勝った勝った， 
おおっ，ここは収獲が多いなあ。ここでこ 
うなら次はあそこじゃない力、，行〈ぞ。よ 
しよし使えるぞ。ところで，これでなにを 
調べるんだ。ほうほう，ちゃんと照合装置 
まで付いてるじゃねえか。よし，これで俺 
が……，なんでえ，どうしてブロンウイン 
はいいんでえ。 

おおっとここで大尉の乱入か。俺は中尉 
だ文句あっか。 

「カードのありかを教えろ」 

セス，横から口をはさむんじゃねえ。ほら， 
行っちまったじゃないか。今度はなにを調 
ベるんだ？ サイボーグ計画と要人誘拐の 
関係か。う一ん。 

—実際，このゲームのストーリー展開は 
よ〈練られていて，重要なファクターであ 
る。 

俺には関係ないね。それより，またあそ 
こへ戻るんだ。それっ，あんな奴やっつけ 
ちまえ。ボカツ！ ほ一ら，これで新しい 
展開になっただろ。ハッハッ，俺の読みは 
ズバズバ当たるなあ。 

ここ，地下3階にはあれとこれがあるん 
だよなあ。そしたらあのカギだってことは 
この俺様にかかれば簡単。さて，戻ってみ 
れば変な奴がいる。トヒニー•ユリト曹長 
か0なんだトイレ野郎だな。よろしい，こ 
こは物々交換といくか。どうせまたここに 
は戻って来るわけだからな。 

オー，なんてこったい。ブロンウイン， 
君の秘密はこれだったのか。ロッカーのな 
かからとんでもないものを見つけてしまっ 
た。気にするな，ブロンウイン。人生，山 
あり谷ありだ。向こうの部屋ではサイボー 
グ計画の真相までわかってしまったぜい。 

しかし，俺は いつから こんなに コンピュ 
ータに詳しくなったんだろ。ええい，まま 
よ。最後に残ったあの部屋に突進だあ！ 

と，いう前に彼女に電話しとかなきゃ。こ 
れで準備 0 K 。 ュニットとコードを忘れな 
いように。 えっ， 俺は ムーバン •デ ルーゴ 
中尉なんかじやないぜ。とにかく積年の怨 


み，一気にここで晴らすんでえ。 

あれがデイフェンス システム^— 

どうも，おっちょこちょいのたきざわ中 
尉なんかには任せておけないわ。ここでは 
このカードを使うのよ。ほら，当たった。 
えっ，カウントダウン継続中？ いきなり 
なによ，これじゃあまるでストームじゃな 
いの0 

一どうやらこれには XI のタイマを使っ 
ているらしい。 

0 • C ルームってなんか嫌な雰囲気ね。 

一応，これとあれともらっていきましょ。 
やっとこれですベてのアイテムが揃ったわ0 
ちょっと，たきざわ中尉，なに驚いてんの 
よ。ェーッ，ウソー，この悪い連中ってこ 
んなこと考えてたの。サイテ ー。 なんてこ 
とでしょ。ポムッ。ああら，あんたなんか 
親でも兄弟でもないんだから，こっちを 
見ないで。私はこれから要人を助けに出か 
けるんだから。 

さあ， C & C って，どこかキャッチコピ 
一みたいな部屋に行ってみましょ。ここは 
照合装置が クセ ものなのよ。 セス， あとは 
たきざわ中剧■が取り戻してくれるはずだけ 
ど，とにかく入りましよ。へえ，ここでコ 
ント ロールして たわけ。あら， セス 勝手に 
ドタバタやってるわね。 

—このあたりから，アニメが中心でスト 
ーリーが進む。そのうえ情報を全部集める 
までは「いく」コマンドを実行してくれな 
い親切設計になっている。 

これだけ聞き出せばもう十分。要するに. 
WWWF は世界を相手に自分だけチャンピ 
オンべルトを手に入れようとしていたわけ 
ね0さあ，行きましょう0アレッ，なぜか 
この私がもうひとりいる……。そう思った 
瞵問，ドッカーン，ドッカーンの大，爆発。 
そしてゲームオーバー，となってたまるも 
んですか。もう一度たきざわ中尉に活躍し 
てもらうわよ。そうすれば要人も救出でき 
たし，いよいよ潜水艦で脱出よ。 

そ 5 は問屋が卸さない — III 

さて，大混乱の様相を呈してきたドック 
からは実況中継でお届けします。なんとダ 
ルジイ が突如リングに乱入してまいりまし 
た。おおっと，セスの声でブロンウインが 
逃げようとした一。でもダメです。ど一や 
ら敵に後ろは見せられないと判断したよう 
です。ましてや「人間としてのプライドを 
かけても負けるわけにはいかない」とブロ 
ンウインは叫んでいる 一。 か，感動です。 
過去に No .4 と呼ばれたこともあったブロン 



どうです，しっかりアニメしてるでしよ 



果たして炎の海を無事脱出できるか 


ウィンが，いまは人間として敵に立ち向か 
おうとしています。 

ついにダルジィと最後の決着を着けるた 
め，両者が燃えるような闘志をみなぎらせ， 
リングで向かい合っています。どうやらブ 
ロンウイ ンのセコン ドにはこしなか博士が 
付いている模様です。これは百人力の味方 
を得たようなものです。ブロンウィン，い 
け一，倒せ一，やっつけろ一。おおっ倒れ 
すこ 一， ついにダルジィが倒れました0息詰 
まるような熱戦にもようやくいま終止符が 
打たれようとしています。レフリーのカウ 
ントが入る。 

「ワン，ツー，スリー」 

やりました。さすがです，ブロンウィン。 
ついに勝利しました一。 

クーロンの謎は第3弾へと 続く— 

いや 一， それにしてもこの ゲーム。 なか 
なか面白いじゃないですか。アドベンチャ 
一といっても操作はコマンド選択方式で， 
ストーリーを重視しているようだし。おま 
けにイヤミのないギャグは随所に見られる 
わで，ほんとに素直に遊べるアドベンチャ 
ーゲーム です。 

しかもこのあと，さらに続編も予定され 
ているようなので，ブロンウィンの謎も徐 
徐に解明されていくことでしょう。ですか 
ら，ちょっと地味だけど，主流に流^されな 
いオリジナリティを持ったアドベンチャー 
ゲームとして，この 「第 4の ユニット」 シ 
リーズはこれからも成長して いって ほしい 
ものです。 
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尿ら電脳遊戯民⑴ 


ゲームは 僕らの 
キャンバスだ 

Kuramochi Ryoichi 

倉持亮一 


X 68000 の登場によりにわかに活気づいて 
きた最近のゲーム環境。これだけ我々を 
熱くするその要因はいったいどこにある 
のか。機種の壁を越えその本質に深く潜 
入する「われら電脳遊戯民 j が，いまこ 
こに スター トした 0 



ゲームは 回る 

去る昭和63年4月11日， ゲームメー カ ー 
であるセガ•エンタープライゼスカ ? ，体感 
ゲームシリー ズ第8弾として「ギャ ラクシ 
—• フォース」 を発表した 0 

この体感 ゲームシ リーズには大きく分け 
て2種類あり， ハングオンやへビー ウェイ 
卜-チャンプなどのように操作を手元で行 
うのではなく体全体を使う“体が資本”夕 
イプと，映画「トップ.ガン」の話題性に 
伴ってマスコミにも取り上げられたアフタ 
一 •バーナーの ように，実際に マシン （筐 
体）に乗り込み自機を操作すると，その方 
向にマシン自体が傾いたり冋転したりして 
動く “三半規管を刺激する”タイプがあり， 
このとき発表されたギャラクシー•フォー 
スは後者であった。 

このギヤラクシー.フォースを初めて目 
の当たりにしたゲーム雑誌の編集者たちの 
感想は，一様に「こりゃ，恥ずかしい」と 
いうものであった。なにしろこのマシンは， 
下部が很飾ギラギラ，ネオンサインしてる 
のに，上部はフレームと モニタ， 操作系だ 
けでプレイヤーの-挙一！ B 力が丸見え。マシ 
ンが前後に揺れるのはいいとしても，左右 
の移動操作に連動してそれぞれ最大335度 
まで回転するのだ。つまりゲームに熱中し 
てマシンを左右に® J かしていると，自分の 
体がマシンと一緒にグリングリン回転し， 
周囲に群がるギャラリーたちと思いっきり 
目が合ってしまったりするのだから，これ 
は恥ずかしいに決まっている。 

どのアーケードゲームにしても，初めて 
プレイしたときというものはアッという間 
に玉砕してしまって，残るものといえば自 
己嫌悪と羞恥心だけ。しかし，その ゲーム 
の魅力がプレイヤーの血を沸かせたりする 
ともうたいへん。「羞恥心と自己満足を計 
りにかけり ゃ， 金が出ていく ゲーム の世界」 
なのである（古いって，そりゃ失礼)。そし 
てその ゲームに ある程度惯れてきて先に進 
めるようになってくると，“恥”が転じて“快 
惑”となってくる。 

結局，アーケードゲームに限らず自分の 
上手なプレイというのは人に見られたいも 
のなのだ。しかしここで面白いのは，プレ 
イヤーの意識として「見せたい」ではなく， 
「見られたい願望」がフツフツと湧き出てく 
ることなのだ0ゲームセンターの テーブル 
型でプレイしていて，背後に人の視線を感 
じたりすると，次第に感情はェキサイトし 
てくる0しかし，顔面紅潮，指先ブルブル 
となるかというと，さにあらず。外見はま 


すます平静を装ってしまうのである。 

さらに「平静を装う」意識はやがて「芸 
術的プレイ」願望へと成長し，「ここで敵が 
こう攻めて来るからかわしておいて，そこ 
でこう擊 つ」 というように， ゲームの 進行 
を把握して動きに一切無駄がなく，後ろで 
眺めている人間を「うっ……」と，うなら 
せてしまう，そんなプレイを冃指すように 
なる の だ。 

実際，これまで流行ったゼビウス，ダラ 
デイウス，ドラゴン • スピリットなどのよ 
うに，難易度が死ぬほど萵い（少なくとも 
私はそう思っている）シューテイングには 
このような“芸術家”タイプのプレイヤー 
が存在するのだ。 

しかしこうなってくると，もはやゲーム 
センターなるものは，個人がゲームを楽し 
む場だけではない。ゲームの芸術家たちが 
その実力を発揮し披露する場なのである。 

4畳半の東京ドーム ■ 

昭和61年12 J 1 にナムコが発売したファミ 
コン 用ゲームソフト，「プロ野球•ファミリ 
—スタジアム」はその後爆発的な売れ行き 
を見せた。しかもこれは•過性の流行では 
なく，ドラクエシリーズと故んでファ ミコ 
ン ソフト界のロングセラーとなったのだ。 

しかし，なぜこれほどまでに野:^ゲーム 
が売れたのだろうか？ やはり野球に限ら 
ず，誰しも上手にプレイできればスポーッ 
というのは楽しいものなのだ（これはゲー 
ムでも同じ)〇 2人プレイが可能なファミス 
夕の場合だと，自分の行動とそれに対する 
相手のリァクションが加われば，勝¢1結果 
が状況によって毎回変化するので，ことさ 
ら面白くなる。 

それに，実際に本格的な野球をしようと 
すると広い場所と18人の メンバー， そして 
2時間以ヒの時間と道具--式が必要となる。 
まさかタタミ 6® 分のスペースに，18人も 
大の火人がひしめき合ってプレイするわけ 
にはいかないし， 9回裏までを30分で終わ 
らせるなんてことは当然できない。そこで 
野球と ゲームが 好きな人間は，4畳半のス 
ペースで18人分のプレイができ，おまけに 
30分もあればひと試合分〈らいは消化でき 
る， ファミコンゲームと いう“環境”を 利 
用しようということになるのだ。 

ファミ スタ人気のあと， いくつか 野球ゲ 
ームがファミコン 用に発売された。いまも 
まだその傾向は続いているようだ。しかし， 
そのどれを取ってもまだファミスタを越え 
るものは出ていない。これはまたどうした 
ことなのだろうか。先にいいサンプルがあ 
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るのだから，迎撃するのは簡単だろうに， 

と思いつつ私はその理由を「ファミスタの 
適度なデフオルメ (deformer :つまり形 
を崩しちゃうこと）」と「適度な環境設定」 
にあると見た。 

ファミスタ以降の野球ゲームは，ファミ 
スタとのネ目違点を明石萑にするためにいろい 
ろな“付加価値”を与えた。キャラクター 
をリアルにしたり，画面のアングルを変え 
たり，キャラクターの成長要素を加えたり， 
ゲーム中のイベントに凝ってみたりと，こ 
のままでは監督が審判を殴って退場したり， 
選手が起こした不样事によってクビになっ 
たりするようになるかもしれない。まあ， 

これは実際の野球を観戦する側からすれば 
よりエキサイティングでいいのだろう。や 
はり人に見せる試合というものはいくらか 
のショウアップが必要だ。 

しかしこのような要素は，実際にゲーム 
プレイする立場だとあまり有難くはない0 
キャラクターの設定がよりリアルだったり， 
イベントが しつこい ぐらいに凝っていたり 
すると，かえって“自己投影”がしづらくな 
ってしまうのではないか。やはり愛着がわ 
く！：いった点では，リバイバーのような5 
等身キャラよりも，2等身や3等身でタリ 
タリ目玉のキャラのほうが素直（シンプル） 
な分だけ，自己投影がしやすいということ 
だろう。 

結局，ゲームというのは“疑似環境”な 
のである。実際に東京ドームを使うわけに 
はいかないのだから，野球ゲームという疑 
似環境を利用するのだ0もちろんプレイヤ 
一が東京ドームに入場するようにブラウン 
管に入ることなんてできないので（当たり 
前だよ，感電しちゃうよ），自己投影という 
手段を使うのである。 

しかし，この疑似環境にも自己投影しや 
すいものとそうでないものがある。たとえ 
ば遊園地というところはいろいろなアトラ 
クションが用意されていて楽しいところだ 
が，当然，入場料なるものを取られるので, 
遊園地が好きな人しか入らない。しかし， 

これが空き地であれば特になんの設備がな 
い代わりに誰でも好きに遊べる。もしこの 
空き地と野球道具があれば，たちまち野球 
場となるのである。 

つまり，自己投影しやすい疑似環境とは 
この空き地のようなものである。そうして 
選手やダイヤモンド，スコアボードを用意 
してくれたのがファミスタというわけだ。 
やはり単純に野球を楽しみたいといった感 
覚でプレイするのは豪華なグランドよりも， 
質素な空き地が気軽で熱〈プレイできる最 


適の場所なのだ。 

ゲームは 小説より奇な〇 ■■ - ■ 

ここで バソコン ゲームの場合を考えて み 
よう。小説は文字情報しか与えてくれない 
から，読者はその文章からイマジネーショ 
ンを働かせて自分だけの世界を想像する。 
たとえば「そこに美しい女性が歩いて来た J 
と書いてあれば，「ああ，きっと赤い ドレス 
着て優•雅に歩いているのかしらん」と，容 
姿はもちろん，着ている服や歩き方までを 
想像する。しかし，その想像した世界はそ 
の次に来る文字情報から必然的に修正を余 
儀なくされる。もしこのあとに「その女は 
腰ミノを付けて，踊りながら近づいてきた」 

と書かれていれば，ビックリして（そりゃ 
誰でもビックリするわな）自分のイマジネ 
ーションを 根本から変えなければならない。 
しかし，この意外性が楽しさにつながって 
くるのだ。こうして小説は書き手と読み手 
の コミュニケーション のなかに成立してい 
る。 . 

作家は文章を面白くしようと自分の知識 
や能力を最大限に発揮して文章を形成する。 
それに対して読み手は，より一層楽しく読 
もうと行間を読み想像力を働かせ，さらに 
は先を予想し結局は裏切られる。この繰り 
返しは パソコン ゲームでも同じだ。ゲーム 
の作者は，常に楽しいものを作ろうと全身 
全霊を傾ける（そうじゃないのも一部いる 
ようだが，そんな奴のことは知ったこっち 
やない)。そしてプレイヤーはそれを受けて 
自分の思うところでリアクションを与え， 
時には作者の思うツボにはまって，あっさ 
りと死んでしまう0しかし，このようなパ 
ソコンゲームの 面白さは，こういった作者 
とプレイヤーと のぶつ かり合いにあるのだ。 

全二重抑ン /『;? ■ ■ ■■ 

ここまで疑似環境がどうちゃらとか，自 
己投影がうんちゃらなどという話をしてき 
たが，実際「ゲームってなんじゃろ」と考 
えるとキリがない。電動ドリルでも歯が立 
たないかもしれない。ゲー ムの 世界は ショ 
ウの舞台にもなるし，野球場にもなる。ま 
たは戦場や雀荘，歌舞伎町のエッチな街角 
にだってなるわけだから，さまざまな可能 
性を秘めている。しかし，アーケードから 
パソコン，フアミコ ンを問わず存在するゲ 
ームにも大きな共通点がある0それはどれ 
をとっても“自己表現の場”であるという 
ことだ。 

ゲームセンターで芸術的プレイを披露し 
ているときも，そこにはアピールしている 



自分がいる。フアミスタで遊んでいるとき 
は選手の1人ひとりに乗り移って熱中して 
いる自分が，そして パソコン ゲームでは送 
り手が創造した世界の中で自分自身を演出 
してくれる空間をさまよっている。こうし 
て送り手も受け手もゲームという環境のな 
かで自分というものを表現しているのであ 
る。 

ゲームが 自己表現の場で あ るとするなら 
ば， ゲームは 文学界 やスポーツ 界，果ては 
アイドルやバラ エティ 番組をも含めた放送 
の世界などと共通する部分も多いのかもし 
れない。えっ，話が飛躍してきたって？ 
アイドルの場合を考えてごらんなさいな。 
自己の存在をアピールするためには，ルツ 
クス や歌のひどさ（これは逆か）， スツ トン 
キヨーな性格などを前に出して自己表現を 
しないと，有象無象のひとりよがりで終わ 
ってしまうのだよ。 

こうして自己表現を主体にこれまで蓄積 
された遺産，そしてこれから構築されるだ 
ろう新しい世界。これはもうもはや我々だ 
けがかいま見ることのできる“文化”であ 
る0 

ゲームというのは言い換えれば誰でも自 
由に描くことのできるキャンバス（当然， 
画布のことである。断じて大学構内だとか 
コタヨのノートの ことでは ない） みたいな 
ものな の だ。真っ白なキャンバスの上に送 
り 手が面白いと思う下絵を描き，プレイヤ 
一は自分な りのカラー に描き変えていくの 
だ。このとき文化を創造することをどこか 
に考えて描くことをすれば，キャンバスの 
上にはゴッホやピカソも真っ青の芸術作品 
に仕上げることだってできるはずだ。 

その逆にゲームを単なる幼稚な遊びだと 
しか考えていなければ，保母さんから「も 
っとがんばりましよう」のハンコしかもら 
えない子供のお絵描きにしかならない。そ 
してその絵の作品がどちらに転ぶかは，当 
然，送り手と受け手の両方の感性にかかっ 
てくるのである。 
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猫とコンピュータ 

耥ク fi 裳#ぐ瞀钃穿 

Takazawa Kyoko 

高沢恭子 


みなさま，こんにちは。 

そして，もしかして，白猫のホンニヤア 
を覚えていてくださったかた，ごぶさたい 
たしました。 

ホンニヤアはとうとう転勤で東京に引っ 
越してきました。今年のはじめのことです。 
トオルは6年生の3学期でした。もちろん 
転勤したのはホンニヤアではなくて，彼の 
一番信頼しているトオルのパパです。 

丸の内の本社はこれで3度目だし，転勤 
も8回目〈らいですが，今度の引っ越しだ 
けは少しようすが違いました。ホンニヤア 
がいるからです。 

ホンニヤアはふしぎなことに，転勤が内 
定した日の朝早く，夫の電話が〈るよりも 
前に行方をくらましました。 

私たちはそれまでにも，転勤になった場 
合のホンニヤアのことを，何度も真剣に考 
えました。彼は，この家を含めたまわりの 
自然のなかで生き生きとすごしているのだ 
から，ほかの環境に持っていくのはかわい 
そうだと， 3人ともいつも思っていました。 

申し遅れましたが，わが家は私と夫と息 
子のトオルの，3人家族です。 

あのワガママ猫を，誰かに代わって飼っ 
てもらうなんて，とてもあり得ません。で 
も一緒に連れていくことは，ホン ニヤ アが 
ほんとうに喜ぶことなのでしようか。 

考えは いつも ここで行き詰まってしまい， 
結論はそのたびに見送られてきました。 

ホンニヤア，月に帰る？ 

ところが， いざ 「ホン ニヤ アの いる 引っ 
越し」が現実のものになったとき，肝心の 
議題の主が見あたらなくなってしまったわ 
けです。おかげで心配なのもさることなが 
ら，引っ越しの準備はいままでになく混沌 
としてきました。 

引っ越しをするときは，一番はじめに住 
むところを決めます。通勤のこと，通学の 
こと，毎日の生活のことを考えて，できる 
だけ望ましいところを選びます。 

住むところが決まると，通う学校も決ま 
2b Oh! X 1988.8. 


るし，家具や身のまわりのものの要不要も 
予測できるのです。 

ただし，そこに動物が同居するとなれば 
やや話が違ってきます。以前の東京暮らし 
のように， マンション というわけにはいき 
ません。一戸建ての家を見つけるのなら， 

2階もあることだろうし，いまの家具をそ 
のまま運んでも納められそうです。 

というぐあいに，面倒ながらも浮き浮き 
した環境設定が楽しめるはずなのですが， 

8日たっても，9日たっても，ホン ニャ ア 
は戻りません。もしこのまま彼力 ? 現れなけ 
れば住居はマンションでもかまわないこと 
になり，計画は大幅に変わってくるのです。 

こうして，私たち一家は，猫1匹にだい 
じなカギを握られてしまいました。 

ホン ニャ アが消えてしまった話を聞いた 
近所の人たちは，「そりやあ，ほんとにリコ 
ウな猫なんですよ。家族に迷惑がかからな 
いように，身を引いたんですね」と，ほめ 
ちぎりました。 

そのときはもう10日以上たっていました 
し，同じようなことを考えていた私たちに 
とって， こんなつらい「ホン ニヤ ア へのほ 
め言葉」はありませんでした。 

あのキャット フー ドしか食べられない ホ 
ン ニャ アカ?， 自分から家を出ていくなんて 
考えられないのですが，近所の人の言葉で 
なんだか ホン ニャ ア との別れが決まってし 
まったように感じ，急に悲しさが増してき 
ました。 

そうはいっても，引っ越しをいつまでも 
ためらってはいられません。夫は決められ 
た日から新しい任務につくのです。 

「住まい」は都内のマンションということ 
で地下鉄 T 線沿線に探してほしいと，会社 
に手配を依頼しました。 

そうと決まったら，ホンニャアはもう「帰 
らぬ猫」です。私たちもあきらめの気持ち 
をはっきりさせなくてはなりません。 

3人であれこれ話をしました。 

ホン ニャ アが自分で選んだ道なら，それ 
が彼の幸せなんだ。それに，動物は野生の 
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物語はいつも突然始まります。高沢家の白 
猫ホンニヤアも，とうとつに気を変えるの 
が得意です。久し振りに古巣へ戻ってきた 
恭子さん，今回は彼の気まぐれにかなり忙 
しい思いをしたよラす。とはいえ，フルメ 
ンバーが揃うとやっぱり無敵の「猫とコン 
ピュータ」です。 

カン，特に猫は人間にはもうない神秘的で 
ふしぎな能力に恵まれているから，きっと 
飼い猫でなくなっても元気に生きていくだ 
ろう。楽しい日々だったけれど，やはりホ 
ンニヤアと私たちは別の世界に住む者同士 
で，ひとときの出会いはこれで終わりを告 
げたのだ……と。 

こうなってくると，あの，おなかを天井 
に向けて眠り呆けていた姿 u はすっかり忘れ 
られ，ホンニヤアのイメージは月の世界に 
帰っていく 「かぐや姫」みたいに，神々し 
く輝いてくるのでした。 

さて，おおかたの日用品は，ほとんど段 
ボール箱に姿を変えて部屋の中に積み上げ 
られ，残っているものは引っ越し当日に梱 
包してもらうカラのタンスや食器棚，食卓 
やイス，あとはほんの数日ぶんの衣類と食 
器類になりました。汚れた毛皮なんかが決 
して残っているはずはないのです。 

夫も，勤務のために，ひと足さきに仮の 
宿舎である都内のホテルに移っていきまし 
た。 . 

さぁ，だいへん!！ 

汚れた毛皮は，その日食卓の下で発見さ 
れた。 

毛皮は自分で動いて，手や体をなめまわ 
していた。それは汚れた「猫 （！） j だった。 

ホン ニヤ アは一気に月から墜落して，私 
の目の前にぃた。故障した宇宙船の喷煙で 
も浴びたの力、，みすぼらしく黒ずみ，かぐ 
や姫の名残りはどこにもなかった。 

「もしもし，パパ，たいへん！ 帰ってき 
たのよ，ホン ニヤ アカ ? 」 

言っている自分の声が信じられないよう 
なこの現実。でも，やっぱり彼力す私たちを 
もとめて帰ってきたことが満足だった。 

「そう力、ぁ . 」 

夫の声も嬉しいような，とまどったよう 
な響きだ。ただ喜んでいるわけにはいかな 
いから，ほんとは2人ともちょっと動揺し 
ている。 

まず，いそいで住まいをマンションから 










一戸建てに変更するよう頼み直さなければ 
ならない。無理な頼みとは承知しているけ 
れど，マンションで描を飼うことはできな 
いし，ホン ニヤ アだってかわいそうだ。 

当然，引っ越しも少し延期しなければな 
らないことになる。トオルの転校が遅れる 
のが飼い猫のためだなんて，誰に言えるだ 
ろう。たくさんの恥、を我慢して，この際い 
ろんな決断を一度にやらなければならない。 

そうた；ホンニヤアはどうやって運ぶの 
だろう。 

会社の引っ越しはいつも「日通」こと日本 
通運さんがやってくれることになっている。 
「あの，描…なんかいたらどうなるんでし 
ょうか」 

と打ち合わせにみえた日通の担当の方に 
聞いてみたら， 

「どこの日通でも 0 K というわけじやないん 
です。営業所の判断にまかされてるんです 
J：j 


「あの，そういうときに動物も運んでいた 
だけるんでしょうか？」 

「動物っていいますと…なんですか？」 

「あの，描なんですけど j 

「あ…ちょっとお待ちくだサイ……」 

と語尾を上げながら，その人は電話のそ 
ばを離れて30秒ほどすると， 

「あのお，申しわけないんですけど，動物 
は，その，ちょっと……扱わないことにな 
っています……すみません」 

「あ，そうですか。やっぱり自分で運ぶん 
ですね。わかりました」 

続いて8ばかり並んだ電話番号の，「ダツ 
ク引越しセンター」， 

「申しわけありません……わたくしどもの 
会社では，生きものはお受けしないことに 
なっております。はい，万一のときに責任 
が 負えないことになりますので……」 
ついでにもうひとつ，胴のながあ一いワ 
ン君，ダックスフンドがシンボルの「フッ 



「やっぱり，あんまり歓迎じやないんです 
ね？」 

「でも，1匹だけでしよ。なんとかオリに 
入れて，運転台のそばにでも乗せていくよ 
うに言ってみましよう。たいした距離じや 
ありませんしね」 

引っ越しの日取りも決まらないうちに， 
描のほうの相談が先に進んだ。 

後学のためと考えて，いまを盛りの宅配 
便や引っ越し産業のいくつかに，描やぺツ 
卜の運について聞いてみた。 

まずは，黒い親猫が子猫を〈わえて運ん 
でいるマークで大繁盛の「ヤマト運輸 j 。 
「モシモシ， あの，引っ越しも引き受けて 
〈ださるんでしよ？」 

「はい，お受けしています」 

と若い女性の声。 


トワーク Jo 

「動物は何が起きるかわかりかねますので， 
お断りしているんですけど……ほんとにす 
みません」 

もっともな理由だし，商売だからなんで 
も運んでくれるというのは，ちょっと甘い 
考えのようだ。きっとほとんどの人は自家 
用車で運ぶのだろうけれど，大きな動物や 
たくさんいるときはどうするのかな。 

でも，「描」も「ア ヒル」 も「犬」も， みいん 
な動物を運んでくれないのが面白かった。 


白猫便 


それからあまり時間をかけずに，なんと 
か一戸建ての家をみつけてもらえた。小さ 
いけれど，ホンニヤアがホッとできるくら 
いの庭もある。大手町から16分，駅から4 
分のところで，大きな団地群と向 
き合っている。 

ホンニヤ アは唯一の賴りの「日 
通」さんを予定していたが，直前 
になって，研修旅行帰りだという 
私の兄（伯江のアニキです）の車 
で運んでもらえることになった。 

「あのイナイイナイ バーを する猫 2 > 
か？ オ レ， 責任は持たない ヨ」 
「私たちも一緖に乗せてもらうか 
ら，なんとかなると思うの」 

兄は01っ越しの当日，荷を積ん 
だトラックが出ていくのと入れ替 
わりに，約束どおり米てくれた。 

この日は朝から波乱に満ちてい 
た。 


ほかのことはすベて順調でなん 


の心配もなかったのだけれど，ホンニヤア 
を「車に乗せてからの問題 j の前に，「乗せ 
る問題」がなかなか深刻だったのだ。 

出発の予定時刻に，ホンニヤアが遊びや 
散歩に出かけないとも限らない。いや，出 
かけることのほうが多いくらいた^なんと 
力％ちょうどそのころ昼寝の態勢にはいっ 
てくれないものか。 

トオルの転校よりも，パソコンよりも（こ 
のごろでは夫ばかりでなく，私にもだいじ 
なパソコンです），何よりもホン ニヤ アに重 
点の置かれた引っ越しになってしまった。 

ところが，兄の車が来てからのホンニヤ 
アはなんともふしぎだった。 

それまでは外にいたホンニヤアが，部屋 
の中で正座して待つようなかっこうになり， 
あの，お医者さんに連れていかれるときに 
入れられる大キライな金具のオリにも素直 
に入ったのだ。 

車が走り出してからも， いつもの ように 
狂ったように暴れることもなく，2時間半 
を静かに耐えてすごした。平日で道路の流 
れが順調だったことも幸いして，私たちは 
思いがけなく，穏やかにホンニヤアの移動 
を済ませることができた。 

一度は私たちと別れるつもりだったホン 
ニヤアが，考え直して帰ってきたように見 
えるのも，ほんとはただの気まぐれなのか， 
誰にもわからない。 

この， ホン ニヤ アの天性の パントマイム 
に，これからも魅了され，振りまわされな 
がら，私たちは暮らしていくことだろう。 

トオルは，3つ目の小学校も楽しく悠々 
とすごし，友だちにも恵まれて，この4月 
からは無事，中学生になった。徒歩50秒， 
わが家の目の前にある公立中学校で，ます 
ます充実の毎日のようだ。 

住まいが都内になった一番の利益は，夫 
の通勤よりパソコン通信かもしれない。都 
内のネットなら1時間アクセスしても2001リ 
くらいだ。これは最高にありがたい。 

でも，ついでに新宿の実家も近〈なって 
しまったので，おばあちゃんのお説教もひ 
んばんに聞かされなければならない。 

これ AT け力夂ちょっとつらいかな？ 

さて，ホン ニヤ アの新しいナワバリはど 
んなふうに展開するだろうか。 

注 I )これがホンニヤァ得意の寝相です。 

2) わが家では，かつて彼に「イナイイナイ 
バー」を仕込みました。ホントです。 

※この連載は，昨年7月号まで25回にわたり本誌に 
掲載されました。ホンニヤァと高沢家とバソコ 
ンには，ほかにもいろいろなエピソードがありま 
す。詳しくは7月下旬発行予定の•■猫とコンビュ 
—夕』でどうぞ。 （編集子） 
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コンピュータにおける数値表現- 


連立方程式は行列でいこう， 


i があるからむずかしい 


とんでもなくデタラメな話 
そこに 7 T があるから . 


超応用グラフィック——歪められた光 


超応用 AD PCM ——音の数学 


数値演算と聞いて，なにやらドキドキしてくるとい 
•3 人はすでに演算の魔力にとりつかれた人かもしれ 
ません 0 そうでなくとも，数値演算という言葉がこ 
とのほか刺激的なのは，多くのユーザーがその重要 
性を知りながら，同時にうんざりするよろな数式を 
も思い浮かべるからでしよう 0 しかし，数値を _ 
ことは重要です。たとえば，私たちが巳 ASI 
にげなく使っている実数もコンピュータの 内部で 
「浮動小数点」と呼ばれる概念のもとに 扱われ てい 
ます。マシン語の世界に入っていこう f する;^ らコ 
ンピュータが扱うことので吉る 数値® 理解し 
なければならないでしよう 0 さ f に，グラフ イツク 
やサウンドなどの用途でも， その華やかな 舞台の裏 
側に一歩足を踏み入れると 必ず 待ち受けているのが 
一 難しい数学の知識なので i 

42 さて，今回は数値を 扱ろ さまざまなテーマを集めて 

47 みました。コンピュータの 計算能力には人知を超え 

こ解決可能とな〇た問題も 
あります。またパソコン程度では夜を徹して計算し 
なければならないものもありますが，それも時間さ 
えかければ必ず解けるといろことです。夏の夜こそ 
パソコンをフルに稼働させてみてはいかがでしよ 


88 


34 


51 


B 4 


数値演算プロセッサの活用—— FLOAT 3+. X 


72 


コンピュータにおける数値表現 


バソコンで数値演算をやる場合には数学の常識では起こりえないことも往々にして発生し 
ます。その多くは数値表現に関するものですが，なぜそのようなことが起こるのか，どう 
すればそれを避けられるのか，といった数値演算の基礎の基礎から始めてみましよう0 


Murata foshiyuki 

村田敏幸 


計算を考える 


電イ•計算機というほどだから，コンピュ 
ータは計算が得意だと思われがちだ。力す， 
もともとコンピュータは特定範囲での整数 
の加減算，せいぜい乗除算くらいまでの演 
算機能しか持っていない。そのコンピュー 
夕がどうやって大きな整数や複雑な実数の 
演算をしているかという疑問は，我々人間 
が計算するときのことを考えればすぐに氷 
解.する。 

たとえば，人は数十桁もの数の和を即座 
に求めることこそできないが，下の桁から 
1桁ずつ足して，繰り上がって……という 
手順で計算することはできる。また， *8 卜け 
算についても，九九（つまり1桁の整数 M 
土の掛け算）程度を覚えておけば，どんな 
に大きな数だろうと掛けあわせることがで 
きる。さらに小数の演算をするときは，小 
数点の位置を調整する以外は，整数とまっ 
28 Oh! X 1988.8. 


たく同じように計算することができる点を 
指摘しておく。結局，「限られた範囲の盤 
数の四則演算」を知っていれば，大きな整 
数の演算や実数演算を行うことは可能なわ 
けだ。 

以下，かなりシステムよりの視点から， 
パソコンで行われている数値演算の実際を 
紹介し,高級言語で数値演算を行う際の問 
題点を明らかにしていこうと思う。まずは， 
数値の内部表現形式についての話から始め 
よう。 


2進数の基礎 

オセロゲームの 駒を想像してほしい。片 
面が黒で，もう片面が白い円盤状をした例 
のやつだ。この駒が1枚だけあったとする 
と，駒の状態は白が上になっている状態と， 
黒が上の状態の2通りがある。駒が2枚あ 
るとすると，考えられる状態は， 

里里 


黒白 
n 黒 
ti f:i 

の4通りだ。同様に3枚の駒があれば8通 
り，4枚なら16通りの組み合わせがある。 
ここで16通りなら16通りの状態に，順に番 
号を振ることにすれば，0から15の数を表 
现できることになる。 

コンピュータ はちようどこの「オセロの 
駒1枚」にあたる「ビット」という単位を 
データの 最小単位としている。ふつうは8 
ビットをまとめて扱い，これを「1バイト」 
という。1バイトはオセロの駒8枚だから， 
裏表の組み合わせは2 8 = 256通り，単純に 
考えれば〇〜255までの整数を表現できる。 

上の例で，黒が表の状態を〇,白が表の 
状態を1と決めると， N 枚の駒の状態は N 
桁の2進数で表されるようになる。一般に 
コンピュータは0か1しかわからないとい 
いながら，ちゃんと数を扱うことができる 
のは，このようにい〈つかのビットの集ま 



































り（ビット列）を2進数とみなして扱って だから，一1は全ビットを反転して， 


10.01 b (〜 B は2進数を表す) 


いるからにほかならない。 

負を表す4士の方法 

続いて負の数の扱いを考える。もっとも 
理解しやすいのは「絶対値表現」と呼ばれ 
る方法だ。これは数値ビット列のほかに， 
もう1ビット，符号ビットという目印を用 
意し，これが0なら正の数，1なら負の数 
と決めることで負の数を表現する。この方 
法なら8ビット （ 7ビットの絶対値+符号 
ビット）用意すれば一127〜+ 127の数を表 
現できるようになる。ふつうは最上位ビッ 
卜 （2 進数で考えると最上位桁）を符号ビ 
ットとし， 

00000001 
なら+1， 

10000001 

なら一1というように考える。 

絶対値表現はわかりやすいのだが，いく 
つかの欠点があるので，あまり使われるこ 
とはない。まず，下に示すように0の表現 
が+ 0と 一〇の2つできてしまう。 

00000000 

10000000 

また，演算をするときに常に符号を調べ 
て処理を割り振らなければならないので， 
手間がかかるという問題もある。 

負の数を表現する2番目の方法は「ゲタ 
ばき表現」といわれるものだ。この方法は 
任意の数を0とみなして，それより1大き 
い数を1，1小さい数を一1というように決 
めることで負の数を表現する。別のいい方 
をすると，ある定数（この定数をバイアス 
値という）を足すことで負の数を正にして 
扱う方法ともいえる。たとえば， 

10000000 

は正直に読めば128だが，これを0だと決め 
れば，それに1を足した， 

10000001(ほんとは 129) 

を+1，1を引いた+ 

01111111(ほんとは 127) 

を一1と考えることもできるわけだ。 

ゲタばき表現は特殊な用途には使われる 
が，やはり一般的ではない。だいたい， 
00000000 

が0にならないのは不自然に見えるし，正 
の数だけを扱っていた場合と統一がとれて 
いないのも問題だ。 

第3の方法は「1の補数表現」で，ビッ 
卜をすベて反転したものを負の数として扱 
うやり方だ。一例をあげると，+1は， 
00000001 


11111110 

というように表される。この方法はハード 
で行うのが簡単なので，一部の大型コンビ 
ュータでは採用されているようだが，やは 
"が， 

00000000 

11111111 

の2種類できてしまうなどの欠点がある。 

4番目は「2の補数表現」で，これがも 
っとも一般的な方法だといえる。まず， 


は， 

1 X 2 1 + 0 x 2 0 + 0 X 2- 1 +1 X 2一 2 • 

と考えることができるだろう。このように 
2進数では小数点以下の各桁は2のマイナ 
ス「小数点以下の桁数」乗の重みを持って 
いる。具体的には小数点以下1桁目は 0.5 
の重み，2桁目は0.25の重み，以下桁が増 
えるに従って重みは半分になってい〈。結 
局例に挙げた10.0 1 b を10進数に直すと， 

1 X 2 + 1 X 0.25 = 2.25 


00000000 

が0，それに1を足した， 

00000001 

が1となり，ここまでは正の数だけを扱つ 
ていたときと同じだ。で， 一1 は0から1を 
引くことで求める。実際には0から1を引 
くことはできないわけだが，最上位桁のも 
うひとつ上に1があるものとみなして無理 
やり引いてしまう。 一1 が求めたければ， 

(1)00000000 
-) —00000001 

11111111 


となる。 

この方法では期せずして，最上位ビット 
が符号ビットの役割を果たすようになって 
いる。 したがって，8ビットの場合のもっ 
とも大きな数は， 

01111111 

で 127， もっとも小さな数は， 

10000000 


で一128となる。 


いよい 



表現 


となる。 

2進数での小数の表し方がわかれば，簡 
単ながら実数の内部表現を決めることがで 
きる。たとえば，整数部，小数部をそれぞ 
れ8ビットに固定して， 

1101110.11101 lllB 
を， 

011011 10b 111011 11b 

の2バイトに分けて格納するようにすれば 
よい。このような方法を「固定小数点表現」 
という。小数点以下が長くて入りきらない 
場合は切り捨ててしまうか，それがいやな 
ら格納できる範囲のすぐ下の桁を「〇捨1 
入」することになる。 

いま例に挙げた固定小数点表現は，見方 
を変えると実数を256倍して16ビット整数 
に格納したような形式をしている。そのた 
め，加減算は整数の演算とまったく同じ処 
理が使え，手軽に実数を扱うことができる 
という利点がある。 

しかし，実際には固定小数点表現はあま 
り用いられることがない。それというのも， 
場合によっては有効桁数が非常に小さくな 
つてしまうためだ。一例を挙げる。 


今度は実数の表現方法を探ってみる。ま 
ず2進数で小数を表す方法だが，これは次 
のように考える。 

10進数で表された数，仮に123は， 

1 X 100 + 2 X 10 + 3 X 1 


0.000011001 1101b 

という有効数字2進9桁の数を先の固定小 
数点表現に変換することを考える。小数点 
以下が8桁を超えるので9桁目で丸めて （ 0 
捨1入して）， 


の意味だった。この式は， 表1整数の表現 


1 X 10 2 + 2 X 10 1 +3 X 10 0 

10進数 

2の補数 

1の褊数 

ゲタばき 

絶対値 

と書くことができる。これは 

127 

01111111 

01111111 

11111111 

01111111 

各桁がそれぞれ10の「桁数一1」 

126 

01111110 

01111110 

11111110 

01111110 

乗の重みを持っていることを 

2 

00000010 

00000010 

10000010 

00000010 

意味している。これを披張し 

1 

00000001 

eeeeeeei - 

leeeedei 

«««««««V 

て考えると 0.123 は， 

0 

00000000 

00000000 

10000000 

00000000 

1 x 10- 1 + 2 X 10- 2 +3 X 10- 3 

-1 

11111111 

11111110 

01111111 

10000001 

というように表され，小数点 

-2 

11111110 

11111101 

01111110 

10000010 

以下の各桁は10のマイナス「小 

-126 

10000010 

10000001 

00000010 

111111110 

数点以下の桁数」乗の重みを 

-127 

10000001 

10000000 

00000001 

111111111 

持っていることがわかる。 

-128 

10000000 


00000000 



上の考え方をそのまま2進 
数にあてはめてみると， 


注〉ゲタばき表現のバイアス碴は 8 BH ( 10道の128) 
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000000 00. 000011 01b 

となる。見てのとおり，小数点以下が入り 
切らなかったために非常に多くの情報が失 
われてしまっている。 

ここで注目してほしいのは，上のほうの 
桁が余っている点だ。この余っているビツ 
卜をも有効的に活用するためには，小数点 
の位置を固定ではなく左右に動かせるよう 
にすればよい。すると，同じ16ビットの領 
域でも， 


0000.000110011101 b 


というようにゆとりを持って格納できるこ 
とになる。これが「浮動小数点表現」の考 
え方だ。 


浮動小 



正規化 


浮動小数点表视は数を指数部と仮数部に 
分けるところに特徴がある。10進数でいう 
と，ある数を， 


XX 10、. 


の形式で表したときの X を仮数部， Y を指数 
部という。また，実際にコンピュータで使 
われる2進数での浮動小数点表视は， 

Xx 2 y 


の形式で表されることになる。たとえば， 
仮数部16ビットの浮動小数点表视で，10進 
の 0.5 を表してみると， 

.1 000000000000000 bX 2° 


となる。ここで数部を増減することが， 
小数点を i -: 右に動かすことにあたる。 

ところで， 0.5 は上に示したように， 

.1 000000000000000 b X 2° ( 1 ) 

と表す以外にも， 

.0100000000000000 BX2 1 ( 2 ) 

. 0010000000000000 b X 2 2 ( 3 ) 

. 0001000000000000 b X 2 3 ( 4 ) 

などなどの形で表すこともできる。が，有 
効桁数が最大になるのは （1) のとき，すなわ 
ち最上位ビットが1のときだ。そこで最上 
位ビットが1になるように指数部を調:幣す 
る操作が行われ，これを「正規化」という。 
⑵〜⑷は止规化されて （1) の形となる。 

正規化は有効桁数を確保する以外にも面 
臼い効果をもたらす。 

1 ) 正規化された数は最上位ビットが1で 
あることがわかっている 

2) 常に正規化すると決めておけば，最上 
位ビットは常に1になる 

3) 常に1なら省略しても情報は失われな 
い（意味は通じる） 

4) というわけで，1ビット分ケチること 
ができるようになる 

このように最上位ビットを省略して，記 

30 Oh ! X 1988.8. 


憶領域を節約することはよく行われ，これ 
を「ヶチ表現」という。浮いた1ビットは 
別の用途に使うなり，指数部に回すなりし 
てもよいわけだ。 

ヶチ表現を使うときに注意しなければな 
らないのは，0の扱いだ。0は浮動小数点 
表現で表しても全ビットが0になる。どう 
やっても最上位ビットが1にならない唯一 
の例外だ。ある数を正規化した結果，最上 
位ビットだけが1となるような場合に，ヶ 
チ表現を使って最上位ビットを省略すると 
0との区別がつかなくなってしまう。 

これを避けるために，0にだけ特別な目 
印をつけることを考える。具体的には，指 
数部がある特定の値ならば0というように 
決めればよい。これにより，指数部の範囲 
が少し狭くなるわけだが，0を区別するた 
めにはしかたのないこと)^ろう。 

なお，ここでは小数点以下第1位が1に 
なるように正規化する例を示した力 ? ，1の 
位が1になるように正規化する形式もある。 
その場合 0.5 は， 

1. 000000000000000 BX 2- 1 
のように正規化される。 


パソコンの数値表現 

そろそろ理屈っぽい話を I 則いているのに 
も飽•きてきただろうから，実際に身近なパ 
ソコンで使われている数値の内部表現がど 
うなっているかに話題を移そう。図1に X 
1， MZ シリーズの BASIC で使われている 
盩数，単精度実数，倍精度実数，ならびに 
X 68000 で使われる整数と実数の内部表現フ 
オー マットを まとめておいたので，この図 
を兄ながら以下を読んでほしい。 

最初に整数だが， XI ， MZ は16ビット （2 
バイト）， X 68000 は32ビット （4 バイト） 
という違いこそあるものの，どちらも2の 
補数表视による符号付き整数であることに 
変わりはない。ここまで読んでくれた読者 
にはもう説明はいらないだろう。 

ビット数の違いは扱える値の範叫に表れ， 
16ビット輅数は一 32768〜+32767, 32ビット 
表2数値の表現可能範囲 


整数では一 2147483648〜+2147483647まて 
の数を表現できる。また， X-BASIC にある 
char 型変数は無符号8ビット整数で，〇〜25 
5の範囲の値を格納することができる。 

実数はどのマシンでも浮動小数点表現で 
表されている。 XI , MZ では5バイトの 
単精度実数と8バイトの倍精度実数があり， 
X 68000 の X - BASIC では8バイトの倍精度 
実数だけがある。先に XI ， MZ のほうを解 
説してしまおう。 

まず，仮数部は単精度31ビット，倍精度 
55ビットの絶対値表現であり，別に用意さ 
れた1ビットの符号ビットにより正負を決 
めるようになっている。また，仮数部はケ 
チ表現で表されているから実質的な仮数部 
の桁数は上に示したものより1桁ずつ多く 
なっている。さらに，正規化は小数点以下 
第1位に1がくるようにする方式が採用さ 
れている。 

もうおわかりのように，倍精度実数のほ 
うが単精度実数よりも演算精度が高いのは 
仮数部により多くのビット数を割いている 
ので多くの有効桁を得ることができるから 
だ。 

指数部は単/倍精度ともに8ビットゲタば 
き表現となっており， XI ， MZ では 80 H (10 
進で いう と 128) のバイアスがかかってい る。 
ただし，前で話した「0を表す特別な指数 
の値」として0 が 使われているので，有効 
な値は1〜255， バイアス 値を引いて一127 
〜+ 127となる。 

仮数部は絶対値表現なのに指数部ではゲ 
夕ばき表現が用いられているのは「ひとつ 
の数の表現中に2つの符号ビットがあるの 
は好ましくないからだ」というもっともら 
しい説明を聞いたことがあるが， 0の扱い 
との兼ね合いでこうなっているのではない 
かという見方もできる。 

「0を表す特別な指数部の値」は0にする 
のが直感的でわかりやすいのは確かだろう。 
しかし，たとえば 0.5 は浮動小数点形式で 
は， 

•100…… X2 0 

となるように，指数部の0を勝手に使うわ 


◎XI, MZ 

整数 一32768〜+32767 

単精度 土2 • 9387359 X I 〇— 39 土丨 . 7014丨丨8 x 丨〇 38 ,および0 

倍精度 士2 . 9387358770557 19x1 〇~ 39 ±1.701411 834604692X I〇 38 ,および0 

◎X68000 

INT -21 47483648~ + 2147483647 
CHAR 0-255 

FLOAT ±1.11 25369292536 X I 〇~ 308 〜土 3 . 5953862697246 X 丨〇 308 ,および0 







けにもいかない。その点ゲタばき表現にす 
れば，0乗と「0を表す指数部0」とが区 
別できるようになり，めでたしめでたしと 
ぃうわけだ0 

X68000 の2つの数値表現 

続いて X 68000 で使われている倍精度実 
数の フォーマット を見てみよう。 X 68000 に 
は実数の表現方法が2系統ある。ひとつは 
俗にシャープ フォーマット と呼ばれる形式 
であり，もうひとつは IEEE (アメリカ電気 
電子学会0アイ•トリプルイーと読む）の規 


ツトの互換性は「あったほうがいい」程度 
のものかもしれない。が，少なくとも，同 
じ機種上ではどのソフトも同じ形式に統一 
されていたほうが好ましいのは確かだ。こ 
れにより種々のソフト間でデータを共有で 
きるようになる。もちろん，異機種間でも 
互換性があればなおよいわけだ。 

若干あてずっぽうだが，だいたいこんな 
図1浮動小数点表現形式 

◎ XI， MZ 


わけで数値表現の統一化が望まれるように 
なり，数年の歳月をかけて1985年，この世 
界での立法府ともいえる IEEE によって， 
ようやく浮動小数点表現形式の規格が確立 
された。规格ができても，それに従わなけ 
れば意味がないわけだが， IEEE 規格に沿 
った数値演算コプロセッサの普及に伴い I 
EEE 規格は広く受け入れられるようになっ 


整数| 


32 31 30 


格に沿った形式だ。 X-BASIC の最初のバ 

単精度 

指数部 1 仮数部 

ージョンでは実数の表現はシャープ形式だ 


小数点 i 符号ビット 


けだったが，バージョン2.00になった時点 
で数値演算はドライバで行われるようにな 
り，ドライバを差し替えることでシャープ 
形式と IEEE 形式を自由に選べるようにな 
った。 

2つの形式を見比べてみると， フイー ル 
ドの順序が異なるだけで仮数部や指数部の 
ビット数に違いはない。だから，どちらの 
形式を使っても表現できる数値の範關や演 
算精度は変わらない。仮数部は52ビットで 
1の位に1がくるように正規化される。指 
数部は11ビットであり， 3 FFh のゲタばき 
表現となっている。また，やはり0は指*数 
部を0にすることで表す。 

ここで，さきほど話した XI や MZ で使わ 
れている倍精度実数のフォーマットと比較 
してみると，指数部に3ビット多く使って 
いる分，表現できる数値の範囲は広くなっ 
ていることがわかる。逆に仮数部は3ビッ 
卜少ないので精度は劣ることになる 。XI 
や MZ の倍精度実数のほうが X 68000 より 
精度が高いというのはちょっと意外な結果 
だろう。 

ところで，まったく精度の同じ2つの形 
式が用意されているのは不自然に見えるか 
もしれないが，これには初期バージョンと 
の互換性を維持し，同時に標準的な IEEE 
規格も使えるようにすることで他機種との 
互換性をも得，さらに浮動小数点演算プロ 
セッサを使えるようにする狙いがあっての 
ことと思われる。 

IEEE と浮動小数点演算コプロセッサ 

浮動小数点表現のフォーマットには「絶 
対にこうしなければならない」という決ま 
りはない。そのため，これまでは機種や B 
ASIC などのソフトによってバラバラの形 
式が使われてきた。異機種間でのフォーマ 


5655 54 


倍精度 


◎ X 68000 


仮数部 


小数点- 


-符号 ビッ 


INT 


CHAR 


63 62 52 51 0 

FLOAT ||指数部 

仮数部 

t 符号ビット1 

63 62 

匕小数点 （ IEEE フォーマット） 

II 10 0 

仮数部 

1 指数部 1 

符号ビット小数点 

(シャープフォーマット） 


◎ IEEE 基本形式 
31 30 


23 22 


単精度||指数部| 

仮数部 

个 

符号ビット ' 
63 62 

L 小数点 

52 51 0 

倍精度||指数部 

仮数部 

t 符号ビット t 小数点 


図2浮動小数点表現の例 


◎ X 

♦ 1.0 
♦ 0. 5 
-0. 5 
+ 0.1 
1C 

◎ X 


L . M Z 単精度 

10000001 00000000 00000000 00000000 00000000 

10000000 00000000 00000000 00000000 00000000 

10000000 10000000 00000000 00000000 00000000 

01111161 01001 100 11001100 11001100 11001101 

10000010 01001001 0000111111011010 10100010 


M Z 倍稍度 

+1.0 10000001 00000000 00000000 00000000 00000000 00000000 00000000 00000000 

♦0. 510000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 

-0.5 10000000 10000000 00000000 00000000 00000000 00000000 00000000 00000000 

♦0.1 01111101 01001100 11001100 11001100 11001100 丨1001100 11001100 11001101 

n 10000010 01001001 0000111111011010 10100010 00100001 01101000 11000010 

◎ X 68000 倍精度 （ IEEE フォーマット） 

♦1.0 0011111111110000 00000000 00000000 00000000 00000000 00000000 00000000 

+0.5 0011111111100000 00000000 00000000 00000000 00000000 00000000 00000000 

-0.5 1011111111100000 00000000 00000000 00000000 00000000 00008000 00000000 

♦0.1 0011111110111001100110011001100110011001100110011001100110011010 
TC 01000088 00001001 0010000111111011 01010100 01000100 00101101 00100110 
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た。 

数値演算 コプロセ ッサとか浮動小数点演 
算 コプロセッサと いうのは，その名のと お 
り浮動小数点演算をハードで行うものだ。 
CPU の機能をごく自然に拡張するものと 
いえ， インテル 8086/80286/80386用の8087/ 
80287/80387やモト ローラ68020 / 68030用 
の68881/68882が有名だ。多くの機種（たと 
えば 98) では CPU のすぐ隣にソケットが用 
意され， ここ に浮動小数点演算 コプロセッ 
サを差し込むことで実数演算速度を数〜数 
十倍に速めることができる（当然，ソフト 
側で コプロ に対応していなければならない 
が)〇 

さて，コプロセッサに対応するためには， 
数値の表現形式も最初からコプロと同じも 
のを使っていたほうが楽だ。そうすれば， 
いざというときに相互変換などの余分な処 
理をしな〈てすむだろう。上記のコプロセ 
ッサはすべて IEEE 規格を採用しているか 
ら，自然とソフト側の内部フォーマットも 
IEEE 規格に従ったものとなるわけだ。 

このように IEEE 規格の普及は数値演算 
コプロセッサの普及にかなり助けられたと 
いってよいだろう。実際， IEEE 規格はイ 
ンテル社の社内規格を基にして決められた 
そうで， JEEJE 規格制定前に発売されてい 
た8087は規格を先に広めておく役割を果た 
したといえそうだ。 

ところで， X 68000 で使われている（ただ 
しオプション）浮動小数点演算プロセッサ 
は MC 68881だ。上でも述べたように MC 688 


ればならないのは「誤差」の問題だ。特に 
コンピュータで数値演算を行う場合，内部 
で2進浮動小数点表現が用いられているこ 
とからくる誤差が入り込むことがある。 

第 1 に，我々が普段使っている 10 進数を 
コンピュータに入力し，10進数から2進数 
へ変換する過程で誤差が生じる場合がある。 
たとえば， 0.1 を2進数で表してみると 
• 011001]001100…… b 
と無限に続く循環小数になってしまう。内 
部表現では仮数部のビット数に限りがある 
ので，途中でまるめなければならない。通 
常，格納できる範囲のすぐ下の桁を〇捨1 
入し，その時点でどうしても誤差が入り込 
むことになる。 

0.1 は10回足せば1になるのは自明だが， 
このように誤差が入り込んだ 0.1 は10回足し 
ても「1に近い数」にしかならない。信じ 
られない人は次のようなプログラムで実験 
してみるとよい。なにやら汚い数字が並ぶ 
ことだろう。 

10 A = 0.1 ：B = 0 
20 FOR 1 =1 TO 10 
30 B = B + A 

40 NEXT 
50. PRINT B -1.0 

上のように結果を表示するだけならば， 
「あぁ，誤差が入ったんだな」と納得する 
こともできるかもしれない。が，条件判断 
がからむと事態はかなりヤバくなる。50行 
目が， 

50 IF B = 1.0 THEN 100 


として実行してみてほしい。 B は1だと表 
示されるだろう。 B から1を引いたものは 
0にならなかったのに B は1だという不思 
議な結果が得られる。これも内部表現と1〇 
進数との相互交換による誤差のいたずらだ。 

いまの例では，2進数への変換の際の誤 
差を表示するときに補ってくれたわけだか 
ら，ありがたいことともいえる。が，正し 
い値が表示されたとしても，内部での値は 
やはり誤差を含んでいるわけだから，この 
値を引き続き演算に使用すれば，誤差が引 
き継がれていくことになる。 

また， シャープのマシンの 話ではないが， 
マイクロ ソフトの BASIC ではかなり長い間 
(もしかするといまでも ）10 進への変換時の 
四捨五入にバグがあったという恐ろしい話 
もある。コンピュータの出力結果を過信し 
てはならないという， マイクロ ソフトから 
の教訓だろうか。 



演算時においても，さまざまな理由で誤 
差が入り込んだり，精度が下がったり，情 
報が失われたりする場合が考えられる。 
たとえば， 

(A + B)-A 

は B になるはずだが， A に比べて B がずっ 
と小さい場合は，正しい結果が得られない 
ことがある。次のプログラムを実行してみ 
てほしい。 

10 A ! =1234567.8 


81は本来 MC 68020用のものだから， MC 680 
00を MPU とする X 68000 では使えないよう 
に見える。が，68020と68881との間の連絡 
手続きをエミュレートすることで68000で 
も68881を使うことができる。この場合，688 
81は純粋なコプロセッサではなく，どちら 
かといえば外部デバ、イスのような扱いとな 
る。実際 X 68000 用の68881はソケットに差 
し込むといった簡単なものではなく，拡張 
スロットに i | 又めるボードの形式で供給され 


ている。 



誤差 


ここまでの話はなんの役に立つのかと， 
いぶかしむ読者もいるだろう。内部表現な 
んて BASIC などの高級言語を使う分には 
関係ないじやないかと思っているかもしれ 
ない。しかし，高級言語を使って数値演算 
を行うときにこそ，内部表現の知識が要求 


されるのだ。 

数値演算を行うとき，必ず気をつけなけ 
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となっていたらどういうことになるか，考 
えてみてほしい。この場合，正しく分岐さ 
せるためには，多少みっともなくても， 

50 IF ABS ( B - l . O ) < lE -8 
THEN 100 

のように， 「 B と 1.0 の差が無視できるほど 
小さければ分岐する」という処理をしない 
といけない。実際，数値演算によく使われ 
る FORTRAN の世界ではこのような記述 
法は常識になっている。 

第2に，結果を表示するときに行われる 
内部表現から10進数への変換の過程でも誤 
差が生じることがある。 BASIC では実数を 
表示するときは10進で何桁と切って，その 
下の桁を四捨五入して表示している。たと 
えば， MZ - 2500では単精度は10進8桁，倍 
精度は10進16桁で表示する。つまり，内部 
表現ではさらに細かい情報が含まれてい 
たとしても，表示の段階でまるめられてし 
まうことになる。試しに上のプログラムの 
50行目を， 

50 PRINT B 


20 B ! =.12345678 
30 PRINT ( A !+ B !)- A ! 

MZ - 2500で試してみたところ，結果は， 
.12353516 

となった。小数点以下4桁目以降が正しく 
ないことがわかる。これは浮動小数点数の 
加算のアルゴリズムに原因がある。 

話を簡単にするために10進数での浮動小 
数点表現で考えてみる。仮数部は3桁とし, 
123と1.23を足す様子を見てみよう。 

123と1 . 23は浮動小数点表現に直すとそ 
れぞれ， 

123=.123 X 10 3 

1.23=.123 X 10 1 

となる。このままでは足せないので，人間 
が筆算でやるように，2数の小数点の位置 
を揃える（指数部を等しくする）必要があ 
る。すると， 

.123 X 10 3 

. 00123 X 10 3 

のようになるはずだが，仮数部は3桁だか 
ら入りきらない部分をなんとかしなければ 





リスト 2 実数の Pf 部表現を調べるプログラム X 68000 


/* 

** 浮動小数点表現を 調べる ブログラム X 68000 

*/ 

tinclude <stdio.h> 

tinclude <math.h> 

void main( argc, argv ) 
int argc; 
char 拿拿 eirgvi 
( 

char c; 
int i,j ； 
double d ； 
char *pnt; 

if ( argc < 2 ) { 

fprintf( stderr, "no arg¥n ")； 
exit(1 )； 

} 

while ( --argc ) { 

d = atof( <++argv ); 

/* d = PI ； */ 

pnt = ( char * ) &d; 
for ( i = 0; i < 8; i++ ) { 
c = 拿 pnt++; 

for ( j = 0 ； j < 8 ； j++ ) { 

putchar( 1 0 f + ( ( c >> 8 ) &.1)) ； 
c *= 2; 

) 

putchar( 1 * )； 

) 

putchar( '¥n * )； 


EXP ( X ) が等しくならないのはなぜかとか） 
や浮動小数点表現数の四則演算のアルゴリ 
ズム，もう少し「高級」なところでは，多項 
式による関数近似の方法なども紹介したか 
ったのだが，本稿では「誤差に気をつけよ 
うね」という話で押さえておいたほうが無 
難のようだ。最後に，ごく単純な誤差がら 
みの話をして終えることにする。 

いくつかの例で，倍精度演算は単精度に 
比べてずっと誤差が少ないことは確認でき 
た。まともな数値演算をするとなれば，多 
少時間がかかろうとやはり倍精度で行うの 
がよさそうだ。 

しかし，勘違いから，倍精度演算の利点 
を生かせない場合がある。たとえば，なる 
ベく高い精度で1/3を倍精度の変数に代入 
したいときに， 

10 D # =1/3 

としてしまってはいけない。一般に BASIC 
では黙っていれば単精度で演算が行われる 
ので，いくら倍精度の変数に代入した！：こ 
ろで，1/3は単精度で計算されてしまう。 

こういった理由で，倍精度で結果を得た 
ければ， 


10 D #= l #/3# 

のように，倍精度で演算することを明記し 
ておかなければならない。 

同じ理由で， 

10 D #= SIN (0.5) 

ではなく， 

10 D #= SIN (0.5#) 

を使うようにしたい。関数の演算は指定し 
なくても倍精度で行ってくれればよいのだ 
が，多くの場合（少な〈とも MZ - 2500では） 
特に指定しなければ結果は単精度で返って 
〈るようだ。 

以上のように高い精度で演算したければ， 
倍精度の変数を使うだけで満足してしまわ 
ずに，定数データにも 気をつかって もらい 
たい。 

と，こんなところだ。少しは数値演算と 
いうものに興味を持っていただけただろう 
力、ここで述べたことが，いくらかでも読 
者の参考になれば幸いだ。また，数値演算 
を本格的にやろうという人は，10進1桁， 
いや1ビットにさえこだわって，より高精 
度な演算を目指してほしいと思う。先はま 
だ長い。 


リスト1実数の内部表現を調べるプロ^ラム X 1/ MZ - 2500 

10 ’ 浮動小数点表現を調べるブログラム MZ -2500/X1 
20 input D# 

30 »d#=pai(l#) 

40 F!=D# 

50 for 1=1 to 5 

60 print right$ ( "0000000" <-bin$ (asc (mid$ (mks$ (F! ) , 1,1))), 8)；" 

70 next 
80 print 
90 for 1=1 to 8 

100 print right$ ( "0000000 ,, +bin$ (asc (mid$ (mkd$ (D# ) , 1,1))), 8 );" 

110 next 
120 print 
130 goto 20 


ならない。そこで 4 桁目で四捨五入して， 
.123 X 10 3 

• 001X10 3 

としてから足すことになり， 

• 124 X 10 3 

という結果が得られる。 1.23 の「0.23」の 
情報がなくなっているわけだ。 

このように大きさ（指数部）が極端に違 
う2数の加減算では小さいほうの数の f # 執！ 
が失われることがある。もうひとつプログ 
ラム例を示そう。 

10 A ! =0 

20 FOR 1 =1 TO 1000 
30 Z ! =1/1000! 

40 A != A !+ Z ! 

50 NEXT 

60 D #= A ! : PRINT D # 

このプログラムは0.001〜 1 までを0.001 
きざみで足すプログラムで，単精度で計算 
しておき，最後で倍精度の変数に代入する 
ことで，結果は倍精度で表示している。結 
果は 500.5 になり，単精度で計算しても十分 
正しい答えが得られることがわかる。 

なお， FOR ループを， 

20 FOR 1 = 0.001 TO 1.0 STEP 0.001 
のようにしていないのは，すでに述べたよ 
うに0.001を2進数に変換した際の誤差が 
累積しないようにするためだ（実際に試し 
てみるとよい)。 

次に，このプログラムを少し変形して， 
大きいほうから足すようにしてみよう。 

10 A ! =0 

20 FOR 1 =1 TO 1000 
30 Z !=(1000-1)/1000! 

40 A != A !+ Z ! 

50 NEXT 

60 D #= A!：PRINT D # 

演算の順序を変えただけなのに，今度は 
正しい答えよりいくぶん小さな結果が表示 
されるだろう。どこかで情報が落ちている 
からだ。なぜ，このような結果になるのか 
も考えてみてほしい。 

また，上で示したプログラムにおいて， 
途中の演算もすベて倍精度で行うようにす 
れば，どちらでも正しい答えが表示される。 
仮数部のビット数が十分あるので，（あま 
り）情報が失われずにすんでいるためだ。 
まさに「倍精度」といえる。 



コンピュータにおける数値演算はなかな 
か面白いテーマだ。ここで挙げた以外にも 
関数演算のアルゴリズム （ EXP ( — X )と 1.0/ 


12345678901234567890123456789012345 

11111111112222222222333333 
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特集真夏の夜の数値演算 -一 - 

連立方程式は行列でし/ラ 

方程式を解くことは，与えられた条件式から解の候補者を見つけ出し最後には 真の解# 言 英智 

い当てようとする探偵小説のような面白さがあります 0 ここでは行列の概念を 導^^が 
ら，簡単な BASIC を使って 連立1次方程式を解いてみましょう。 


突然だが，数学を考えたい 

パソコンを使っているからといっても， 
誰もが数学が得意ではなかったりするので 
す。特に式をたくさん書いてごしよごしよ 
計算するのは私も不得手なわけで，そうい 
った話はできれば遠慮したいなというのが 
正直なところです。 

しかし， コンピュータの 勉強を続けてい 
くと，どうしても数学の知識が必要となり 
ます。といっても，広範な数学のすべてを 
理解しておく必要はありません。かなり以 
前から， コンピュータの ためには数学の理 
解が重要だということはいわれていました 
が，最近は，数学の多くの分野のなかでも 
離散数学といった分野を学習しておけばよ 
いのではないかといわれています。この分 
野は他の数学の分野とはかなり独立してい 
て，あまり数学に詳し〈なくても学習する 
ことができるものと思われます。それでも， 
高校で習う程度の数学はどうしたって必要 
ですが。 コンピュータを 相手に仕事をしよ 
うと思っている人は考えておいたほうがよ 
いでしよう。 

さて，コンピュータと数学は切っても切 
れない関係にあります。もともとコンピュ 
ータは数学の問題を速〈正確に解こうと生 
まれてきたものです。ご存じの方も多いと 
思います力 5 ’，最初のコンピュータは大砲の 
弾道を計算するために作られました。そし 
てコンピュータは数学の進歩を加速し，今 
やコンピュータを利用した新しい数学の分 
野が生まれつつあります。そこで，ここで 
は純粋な数学と，コンピュータのための数 
学などの違いについての話をしたいと思い 
ます。なにをやるかというと，数学の基本 
に返ったっもりで方程式，特に連立方程式 
というものに取り組んでみたいと思います。 



方程式とは，まだわからない解を含んだ 
式のことです。このわからない値を未知数 
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といい，^とか2/などとして表現します0 
たとえば，以下のような方程式が与えられ 
たとします。 
x-h 3 = 5 

するとこの式は: c は未知数で何かわから 
ない値だけど，：*:が上の式を満たす値とな 
ることが表現されています。では具体的に， 
: r の値はいくつになるのでしよう力、。この 
ように未知数の値を実際に得ることを，方 
程式を解くといい，得られた値を方程式の 
解といいます。上の式の場合，方程式を解 


となり，これが解です。 

ここでさらに方程式というものを考える 
ために次の問題を考えてみましよう。 

く問題1> 

次の方程式を: c について解きなさい。 
ax — b 

あれ，未知数がた〈さんあるぞと思った 
方がいるかもしれませんね。方程式を： c に 
ついて解くということは: r だけを未知数と 
して，あとのや6などは何か決まった値 
として計算しなさいということです。具体 
的には : c =なになにといった形の解を導き 
出すことになります。 

さて，く問題1>は解けますか？ 中学生 
以上の方なら答えはおわかりでしよう。そ 
う，単に:*;二 6/ a なんて答えてはいけませ 
んよね。解は以下のようになります。 

く問題1の解〉 

a 幸0のとき x = b / a 

a = 0, 6 = 〇のときズはすべての数 

a = 0, 6幸0のとき i は解なし 

どうして単糸屯に : c =6/ a と答えてはいけ 
ないかというと ， a = 0 のときには，解は 
x =6/ a というかたちでは表現できないか 
らです （0 では割ることができない）。 

このく問題1 > では，式を方程式として 
いるから数学の問題なのですが，これが仮 
に算数の問題だったとすると ： r =6/ a と答 
えてもさほどおかしくありません。という 
のは，算数ではその式を満たす; c の値を見 
つけることができればよいからです。 


しかし数学の方程式の場合，与えられた 
式を満たす「すべての：*;」の値を求めなけ 
ればなりません。またその解法も直感的な 
ものではなく，理論的に妥当で十分なもの 
でなければならないのです。したがって数 
学というかぎりは，く問題1の解〉のような 
ものにならなければいけないのです。 

方程式を解くということは，厳密にいえ 
ば与えられた式を満たすすべての解を求め 
ることで，だいたいの単純な方程式が解け 
る程度には解法の技術が高められています。 
では，解けない方程式があるかというと， 
実は結構単純なものでも解けない場合もあ 
り，微分方程式と呼ばれる方程式では解け 
ない場合のほうが多かったりします。 

それでは，方程式を解く方法とはどのよ 
うなものでしよう力、。これは解く方程式に 
それぞれ独特の解く方法があります。しか 
し，基本は変わりません。それは以下の等 
号の定義と等式に関する4つの定理です。 
方程式には必ず等号が存在しますの 
で，この定理は必ず使用可能です（ただし， 
これだけで必ず解が得られるとは限りませ 
ん）。 

まず等号の定義から見てみましよう。 

0) 2つの式がそれぞれ唯一の値をもち， 

その値が等しいとき，2つの式は等号 
“=”で結ぶことができる。 

う一ん，結構当たり前のことをいってい 
るような気がしますね。では残る4つの定 
埋を見てみましよう。 

1) 等式の両辺に同じ値を加えても等式は 
成立する0 

2) 等式の両辺から同じ値を差し引いても 
等式は成立する0 

3) 等式の両辺に同じ値を掛けても等式は 
成立する。 

4) 等式の両辺を0以外の同じ値で割って 
も等式は成立する。 

さて，両辺という言葉が出てきましたが， 
これは等号の右の式を右辺，左の式を左辺 
といい両方いっしよに両辺という数学屋さ 
んの言葉です。上の定理はいわれてみれば 
そうかなといったものです。ただ注意して 








ほしいのは定理の 4) です。数学ではいかな 
る値であろうとも，その値を0で割ること 
は禁じられています。というよりは， 0で 
割ったときの値が定義されていないのです。 
したがって値がわからないので，式を等号 
で結ぶこ L はできません。 

では，これらを用いて問題を解いてみま 
しよう。まずは最初に現れた方程式: c + 3 
= 5 です。方程式の解は x 二なになにのか 
たちになればいいので，そうなるように式 
を変形します。もうおわかりですね。両辺 
から 3 を引けばよいのです。すると，この 
方程式の解である；《: = 2が得られたではあ 
りませんか。 

いまの例のように求める式と違う部分を 
式の他の辺に寄せ集めることで解が得られ 
ます。したがって，式中の各部分(厳密には 
各項）が移っていくように見えるので，こ 
のことを移項といいます。しかし実際は， 
方程式を解くときはこの定理をいちいち頭 
に浮かべる必要はありません。単純な方程 
式の場合，惯れてくれば反射的に解けるよ 
うになります。 

そこで再び〈問題1> を解いてみましよ 
う。簡単簡単，まず両辺を a で割ります。 
すると x =なになにのかっこうになります 
ね。おや，それでいいのでしようか。 a の 
値はわからないのです。したがってひよっ 
とすると0かもしれないということですね。 
ということは，簡単に両辺を a で割ること 
はできません。そこでく問題1の解〉を見 
ればわかるように a が0か，そうでないか 
を分けて答えているのです。 

まず a が0でないと仮定しましよう。す 
ると，両辺を a で割ることがで き X x 二 b / a 
となります。 

では a = 0 のときは，どうなるのでしよ 
うか0 a = 0のとき，方程式の左辺似は : C 
がいかなる値でも0となります（当たり前 
ですね）。そこで右辺6が0であれば，この 
式は： t がどんな値でも成立することになります。 

逆に，6が0でなかったら，式は：*;の値に 
関わらず絶対に成立しません。したがって， 
“解がない”というのが答えとなります。 
解を求めよというのに“解がない”という 
のはちよっとおかしいような気がしますが， 
このへんが数学の正直なところで“ないも 
のはない”と言ってしまっていいのです。 

ともかく，これでく問題1の解〉 が 得ら 
れました。ちなみに数学の試験では解答は， 
最初のく問題1の解〉のようにしっかりと 
答えてください。数学の解答用紙には一定 
のフ オーマットが あるので，それに従って 
書かないといけないようです。 


先ほどの解を求める過程で気づいた方も 
いると思いますが，移項を行うことで，角早- 
は機械的に何も 考えずに計算できます。 と 
いうより，正しい解をできるだけ簡単に求 
めるように努力した結果，こうすれば必ず 
解が得られるのだという方法をあみ出した 
のです。与えられた手続きどおりに計算を 

する . これって，コンピュータの一番得 

意とするところじやないですか。でも，こ 
んな簡単な問題だと何もコンピュータにや 
らせても，あんまり意味がないので問題を 
もう少し難しくしましょう。 

連立1次方程式を考える 

それでは，次のような問題が与えられた 
とします。 

く問題2 > 

以下の連立方程式を解きなさい。 
x ~\-2y= 5 
5 ズ + y = 7 

さて，問題には2つの式があります。そ 
して，やはり： c と！/という2つの未知数が 
あります。一般に連立方程式とは複数の式 
と未知数を持っています。そして，各式の 
中で現れる同じ名前の未知数は同一のもの 
です（当たり前かな？）。したがって，連立 
方程式の未知数は与えられた連立方程式を， 
すべて満足しなければなりません（すべて 
の式が全部いっしょに成り立たなければな 
りません）。こうなってくると結««隹しそう 
ですね。 

一般に方程式の中に現れる未知数を1元， 
2元と数えます。そしてもうひとつ，式中 
に現れる未知数の次元といったものがあり 
ます。これはそれぞれの未知数の最大の乗 
数を表現し，1次，2次と数えます。たと 
えば，く問題1 >で与えられた式似= 6の場 
合，ズの1乗があるので1次方程式，：*: 2 +ズ 
= 3 は 2 次方程式となります。したがって， 
く問題2 > は2元1次連立方程式となりま 
す。今回は，この1次連立方程式について 
詳しくやっていこうという趣向ですので， 
他の方程式はそれなりの本などで勉強して 
くださいね。 

では，く問題2 > の場合どのようにしたら 
解が得られるのでしょうか。これも最初の 
方程式のように解くのですが，ちょっとし 
た技術を使います。この計算をやってみた 
のが図1です。要するに，2つの式をうまいと 
ころ合わせて， z だけ，2/だけの式を作ろ 
うというわけです。 x だけ，2/だけの式と 
なれば簡単に解けますよね。 

このように複雑な問題は，できるだけ簡 


単な問題に分解したり，変換したりできれ 
ばしめたものです。しかしコンピュータに 
解かせるのは，まだ早すぎます。というの 
は，私たちは，もっと問題について詳しく 
知る必要があります。なぜならコンピュー 
夕に問題を解かせるためには，確実に答え 
が得られる方法を知る必要がありますし（図 
1の方法で必ず解が導けるとは限らないか 
ら），できれば一番楽な方法で解を得たいと 
いうのが人情です。そこで連立方程式の特 
性についてもっと詳しく取り組んでみまし 
X 1 〇 

解が確実に得られる条件 


まず，どんな場合も解が得られるのでし 
よう力、。これって，意外と難しかったりす 
るのです。そして，機械的に解くためには 
非常に重要なことです。つまり解法が完璧 
なものでないと，コンピュータによって得 
られた解が常に正しいとはいえず，意味の 
ない計算をしてしまったことになるからで 
す。 

もちろん，どんな場合も計算できなけれ 
ばならないかというと，そうでもありませ 
ん。こういう場合は解が得られないという 
ことがわかれば，その場合の計算はできな 
いという結果を返すことで，得られた解の 
正当性が保てるようになります。したがっ 
て，計算をする前にちゃんとした解が得ら 
れるかどうかということを確認する必要が 
あります。そこで以下の問題の場合を例に 
考えてみましよう。 

く問題3 - 0 > 

以下の方程式を解きなさい。 

2x+ y +2^=14 . (式 I ) 

図1連立方程式の解法 (2 元1次） 

fx-{-Zy = S —① 

Ux+y=l —② 

式②の両辺を2倍する。 

10ズ+2女=14 —② ， 

式②'から式①の両辺をそれぞれ引く 

I0 at + 2^= 14 
x - Vly - 5 

) 

9 x =9 
x =1 

式①の両辺を 5 倍する。 

5ズ+1〇ダ=25 -dy 

式①'から式②の両辺をそれぞれ引く 
5ズ+ 10" = 25 

. 5ズ+ y = 7 


9"=18 

女=2 

答 x=l , y — 7 . 
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実はこの問題の場合，基本的にこれ以上 
問題を簡単にするための変形をすることは 
できません。本当かなあと思う人は，試し 
てみて〈ださい。このように未知数が3つ 
もあるのに式が1つしかない場合，その式 
以上に簡単に解を限定することはできませ 
ん。つまり単に（式1 ) を満たす a ; ， y ， 
之が解だよとしかいえないわけです0では， 
次の場合はどうでしょう。 

く問題 3-1 > 

以下の連立方程式を解きなさい。 


3 x ~\~ y H -2 z = 1 4 . (式丨 ） 

x — z — ^ . (式 2 ) 


この場合（式1 ) と（式2 ) からは:*:と 
y ， y i z ， 2 と： c といつた関係が導き出 
されますが，そこまでで，解を1つに限定 
はできません。実際，く問題3-1> から得ら 
れた式をまとめたのが以下の関係式です。 


3^;+ y +2 2 =14 . (式 I ) 

x ~\~Sy — z = 6 . (式 2 ) 

— 2x — 2y-\~Az = 0 . (式 3 ) 


この場合は解を唯一のものとすることが 
できます。図1に示した要領で計算したも 
のを図2に記します。今度はうまくいきま 
したね。このように一般には連立方程式の 
場合，未知数の数だけの式が必要です。た 
だし，未知数の数だけあっても求まらない 
場合があります。その代表的な例が次の問 
題です。 

く問題 3-3 > 

以下の連立方程式を解きなさい。 


3 x + 1/ +22 = 14 . (式 I ) 

x -\~5 y — z = S . (式2 ) 

6^ + 2 t / + 4 2 =28 . (式 4) 


この場合，解は1つに限定できません。 
よく見てみると，（式4> は（式 1) の両辺 


60U-3) 二一 154(2 / — 1)=55U — 2) 
そこで上の式値を尤と置くと，角？となるハ 
y , 2 は以下のように表せます。 
x — ォ /60+ 3 
y = ~ //154+ 1 
z = 亡 /55+2 

この f を特に媒介変数（パラメータ）と 
呼んでいます。したがって， i の値を決め 
ると解となる： r ， y , 之の値のうち1つが 
得られます。しかし，ここまで解を限定す 
るのが限界です。これでも，く問題3-0> 
よりは解の限定ができていますが，1つに 
絞ることはできません。では，問題の式を 
3つにしてみましよう。 

く問題3 - 2 > 

以下の連立方程式を解きなさい。 


図2連立方程式の解法 (3 元1次) 


f 3ズ+ y-\-2z= 14 —® 

| x+by— z— 6 —(D 

l -2x-2p+Az= 0 —③ 

① + 2x(D 

3x+ y + 2z= 14 
+ 2x-\-\^y-2z=\2 

bx-\-\\y =26 —④ 

4 X ② + ③ 

4.r+ 20^ —4^=24 
—lx— 2 ガ + 42= 0 


2ズ+18女 =24 -⑤ 

2 X ④ 一5 X ⑤ 

10ズ+ 22ガ= 52 
10ズ + 90" =120 


一68ガ = 一68 

y =1 

同様にして 

答 x = 3, y- I , z 二 1 


を 2 倍したもので，（式 1) と同じことしか 
表現していません。したがってく問題3 - 3 > 
は式は3本あっても，2本分しかないのと 
同じです。 

それで解が1つに定まらないわけです。 
このように2つの式が実は同じ意味しか持 
たなかったり，ある式が他の式から導き出 
されたりする場合，その式は解を限定する 
のに役に立ちません。そこで数学では，あ 
る式が他の式から導き出されないようにな 
っているとき，各式は独立であるなどとい 
い区別しています。このことから以下のよ 
うにいうことができます。 

1次連立方程式の解を1つに定めるため 
には，独立した条件式が最低でも未知数の 
数だけ必要である。 

では式が4つ以上あったらどうかなと思 
ったでしょう。条件式が多すぎると条件が 
きつくなり過ぎるために，解の限定が進み 
すぎてしまい条件を満たす解が存在しなく 
なります。とはいえ，4つ以上の式があっ 
てもそのうち独立してないものがあって， 
実質的に3本の式と同じようになる場合は， 
解を1つに定めることが可能です。これで 
解が得られる条件は，はっきりしました。 
連立方程式の解を導き出すのに必要な条件 
は，いままでの話でわかってもらえたと思 
います。あとは，連立方程式を計算機内で 
どのように表現するかということです。 


行列と 



程式 


ここからは与えられた連立1次方程式を 
どのように解くかではなく，どのようにう 
まく表現するかということについて考えて 
いきたいと思います。このことは，データ 


構造に関する分野にかなり近いものと思わ 
れます。ただ実際にはこのような数値演算 
の場合，かなり単純なデータ構造である配 
列でけっこう間に合うことが多いのです。 
これは数学自体が極めて美しく整理されて 
いて，まとまっているからです。そのため 
科学技術演算用（数値演算用）の FORTRAN 
や，それから派生した BASIC などの言語は， 
配列一筋の頑固者になっているのでした。 

話を数学に戻しましよう。実際，連立1 
次方程式は行列と呼ばれるかたちで表現す 
ることができ，これをうま〈利用して行列 
のかたちで処理する（解く）という体系が 
数学では完全に作られています。では，行 
列とはどのようなものでしようか。行列と 
は複数の値を（要素といいます）ひとまと 
めにして1つの値とするものです。下に例 
をあげましよう。 



このように行列とは，縦と横に値を並べ 
たものです。そして横に値が並んでいるの 
を行といい，上から第1行，第2行と呼び 
ます。同様に縦の並びを列といい，前から 
第1列，第2列と呼びます。つまり行列と 
は行と列という2つの値の並びのことで， 
ほとんど漫オコンビの名前みたいな命名法 
が取られたことがわかります。数学って， 
このへんが割りといい加減なんですよね。 

そして m 行71列の構成の行列を771 X 71の 
行列といいます。この行列にもさまざまな 
ものが考えられ，名前がついているものも 
あります。まずは nX w の行列，これを正 
方行列といいます。また，行または列が1 
つしかない行列には，ベクトルなんてしや 
れた名前がついています。 

そして大事なことはこの行列にも“+_ 
X ”といった計算が行えることです0おっ 
とその前に，行列における等号“二”の意味 
を知っておく必要があります。つまり，ど 
ういう場合に2つの行列の式が，等い、と 
いえるのかということです。これを正確に 
知らずして足し算などは語れません。数学 
ではこれを“行列における等号の定義”な 
んて難しそ . うにいいますが，私たちは数学 
屋さんではないので堅苦しい話は抜きにし 
ます。 

行列において等しいということは，次の 
条件を満たせば十分です。つまり2つの行 
列が，同じ大きさ（同じ行数で同じ列数） 
で，同じ行同じ列の要素がすべて等しけれ 
ば，等号が成立します。したがって行列内 
のすベての要素について，それと同じ位置 
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にある要素が等しくなければならないので 
す（言われてみると，当然という気もする 
なあ )0 

では，足し算（和）と引き算（差）を見 
てみましょう（例1)。これは同じ行と列の 
値どうしを加える（引く）ことで結果の行 
列が得られます。 

皆さんはもうお気づきだと思いますが， 
この行列の足し算，引き算は，同じ大きさ 
(同じ行で，同じ列）の行列どうしでしか行 
うことはできません。では掛け算灌）は 
どうでしょうか。これは，ちょっと複雑な 
計算となります。まずは例2を見てもらい 
ましょラ C 

よ一く見るとわかると思いますが（わか 
るかな一），前の行列の各行と後ろの行列の 
各列のそれぞれの要素を掛けて和をとって 
います。行列の掛け算は計算は複雑ですが， 
その分よ〈用いられます。 

ここで注意してほしいのは，行列の積が 
計算できる条件です。和や差の場合は，前 
の行列と後ろの行列の行どうし，列どうし 
が同じ大きさでないとできませんでした。 
しかし積の場合，前の行列の行の大きさと， 
後ろの行列の列の大きさが等しいことが計 
算できる条件です。これはとても重要なこ 
とです。 

さて，この行列の積でく問題3-2〉の問 
題を表現してみましよう。すると以下のよ 
うになります。 



どうです。きれいなものでしよう。この 
積の部分を計算して等号の条件から各要素 
を展開すると，元の式になることがわかる 
と思います。 

ここで，未知数の入った行列（ベクトル） 

例1行列の和と差 



に注目して〈ださい。この問題を解くにあ 
たって，私たちが未知数について知ってお 
〈ことは，どの未知数が何を意味している 
かということだけです。したがって未知数 
の名前であるズ， 2/， 2はあくまでも未知 
数間の区別をするためにつけた名前なので 
す。もし式の形などでその区別が表現され 
れば，： c ， 2/，2 などといった情報は不要 
となります。さて，そんなにうまく，いく 
ものでしようか。 


行列と掃吉出し法 


先ほどのく問題3-3〉を，行列で表現し 
たものをよく見てください。未知数のべク 
トルと積をとっている行列（未知数の係数 
行列といいます）の第1列は，すべて未知 
数： c の係数となっています。おっと係数と 
いうのは式の中で，その未知数や変数など 
に掛けてある数のことです。同様に第2列， 
第3列は，それぞれ2/， 2の係数となって 

いますね。 

このように，行列に連立1次方程式を書 
き直したときに，行列の構造が各係数の情 
報を表現できるようになっているのでした。 
こうしてみると，行列のような構造を持っ 
たデータが持つ意味の重要性がわかると思 
います。 

ついでに先ほどの行列とべクトルの横の 
右辺の部分を含めて，以下のような行列を 
作ります。 

3 1 214 \ 

1 5-1 6 

- 2 - 2 4 0 / 

この場合も最後の列が，定数であること 
を区別できます。もうお気づきの方も多い 
ことと思います力 f ， このように行列の形に 
連立方程式を格納しようとしているのは， 
コンピュータ（特に BASIC や FORTRAN ) 
の得意な配列をうまく使おうというためで 
す。素人でも，行列と配列がかなり近い関 
係があるのがわかると思います。これにつ 
いては，詳しく説明しなくても大丈夫です 
よね0 

それではいよいよ，どのようにして連立 


方程式を解くのかを考えてみましよう。最 
も基本的な方法は，図1や図2でやった方 
法です。これを簡単な手続きとして，まと 
めたものが“掃き出し法”です。名前がち 
よっと汚いような気がしますが，極めて基 
本的で有名な方法（アルゴリズム）です 0 
数学の言葉で行列を掃き出すということ 
は，行列の意味を保ったままどこかを基準 
(要）として，ある行や列の要素を〇にな 
るように変形することです。掃き出し法で 
はく問題3-3〉の場合，以下のような形に 
掃き出そうとします。 

1 0 0 3\ 

0101 
0 012 / 

これを未知数を含んだ行列の形に直すと， 
以下のようになります。 

1 0 0\ /x 

01 〇 U 

0 0 \ I \z 

つまり，この形は求めるべき連立方程式の 
解を示しています。ただし注意しなければ 
ならないのは，変形を施すことで行列の値 
は変わっているので等号では結べません。 

さて，どのようにして変形すればよいの 
でしよう力、。具体的には，プログラムを見 
てもらったほうがてっとり早いと思います。 
掃き出し法で3元1次連立方程式を解くプ 
ログラムを，リスト1に示します0まあ， 
読んでみてください。このやり方は以下の 
ような処理をします。 

まず第1行第1列の要素を取り出し，こ 
の部分が1になるように第1行の要素をそ 
れぞれ割ります。次に第1行第1列を除く 
第1列の要素が0になるように，行列の要 
素どうしの弓1§算を行います。このように 
することで，第1列は目的の行列と同じに 
なります。これを各列に前から順番に施す 
ことで，最後には目的の行列が得られるこ 
ととなるでしよう。これが掃き出し法です。 

プログラムを見ればわかるように，かな 
り単純なプログラムです。でも実はプログ 
ラムには2つの欠点があります。ひとつは 
未知数の数が遠う連立方程式に対応できる 
ように披張できないことです。これは BASIC 



例2行列の積 



/3X0+IXI+2X5 
= 5X0 + 8X1+10X5 

\2X0+|X| + |X5 



3XI+IX2+2X7 3X3+IX|+2X4\ 
5X1+8X2+10X7 5X3 + 8X1+10X4) 
2XI+IX2+IX7 2X3+IXI+IX4 / 
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が再帰 的プログラミング ができないという 
ことに起因しています。でも X - BASIC では 
再帰ができるので披張ができるでしよう。 
X 68000 ューザーの 人は各自がんばって くだ 
さいね。 

そしてもうひとつの欠点は，このプログ 
ラムを使っているとわかりますが，たまに 
(かなりひんぱんに）計算できないことが 
あります。これは，与えた式が解を1つに 
限定するのに不十分なとき（これは先ほど 
お話ししましたね）と，計算中に要素を1 
にしたい位置なのにたまたまそこが0とな 
っている場合です。 

これはアルゴリズム自体の欠点なのです 
が ，式を入力する順番を変えることなどで 
解決できます。しかし，できればここまで 
コンピュータにさせたい ものです。これは 
結構簡単に解決できます。問題は1 にした 


い w 行 n 列の値が0になっているときは， 

それ以下の行で n 列が値が0でない行と取 
り換えればいいのです。これは簡単な改造 
ですみますので，やっぱりがんばってくだ 
さい。とにかく大事なことは，数学の技術 
をどのようにコンピュータのプログラミン 
ダに組み入れて使うかということなのです 


から。 

さて，掃き出し法は単純でプログラミン 
ダには持ってこいです。しかし数学的には 
もっと美しい解法があります。それが Oam 
er の公式です 0 


美しい Cramer 


公式と緣起ものの行列式 


Cramer 法とはどんなやり方でしよう力 、0 
それを話す前に，この Cramer 法の方針とい 
つたものについて話しましよう。 


この Cramer 法は，連立方程式が与えら 
たら，各系数を代入するだけで解が得られ 
るような公式を作ってしまおうといったも 
のです。これならばコンピュータは先ほど 
の掃き出し法のように値を確認しながら処 
理を行うといったものではなく，直接与え 
られた係数をもとに•気に計算するだけで 
よくなります。また数学的には解を直接， 
式で表現できるようになり，とても美しく 
なります。 

では， Cramer の公式を図3に示します。 
どうです，美しいでしよう。ただ式中に行 
列のようだけどちよっと違うものがありま 
すね。これが行列式というものです。この 
行列式は結構複雑なのであまり触れたくは 
ないのですが，これがわからないと Cramer 
の公式はわかりませんので簡単に説明しま 
す0 


リスト 1- a 掃き出し法による 解法 ( X 68000) 


リスト 1- b 掃き出し法による解 _( Xl / Xltu 「 bo ) 


100 /* 

110 /* 掃き出し法による 3 元 1 次連立方程式の解の算出 

120 /本 

130 /* Oh!X 88_8 

140 /本 

150 int i,j 

160 float value 

170 dim float x(2,3 ) 

180 /* 

190 /» 式®の入力 
200 /* 

210 els 

220 for i=0 to 2 

230 print i +1;" 本目の式を入力します 。" 

240 for j=0 to 2 

250 print "XC '； j + 1；")= H ； 

260 input " ", value 

270 x(i,j)rvalue 

280 next 

290 input "式值 =",value 

300 x(i,3)rvalue 

310 next 
320 /* 

330 /* 入力された式の出力 
340 IX 

350 for i=0 to 2 
360 for j=0 to 2 

370 print x(i,j ) ； "*X( H ； j+1 ；") M ； 

380 if j<>2 then print " + ; 

390 next 

400 print " = •*; x ( i , 3 ) 

410 next 
420 /* 

430 /* 掃き出し法の実行 
440 /* 

450 GaussU 
460 /t 

470 /* 結果の出力 
480 /* 

490 for i=0 to 2 

500 print "X( ” ； i + 1;•_} = M ； x ( i , 3 ) 

510 next 
520 end 


530 /% 

540 /* 掃き出し法 
550 /* 

560 func Gauss() 

570 int i,j,k 

580 for i=0 to 2 

590 for j=i+1 to 3 

600 x(i f j)=x(i,j)/x(i,i) 

610 next 

620 for j=0 to 2 

630 if i<>j then { 

640 for k=i+l to 3 

650 x(j,k)=x(j,k)-x(j,i)*x(i,k) 

660 next 

670 } 

680 next 

690 next 

700 endfunc 


100 REM 掃き出し法による 3 元 1 次連立方程式の解の算出 
110 REM 

120 REM Oh!X 88_8 

130 REM 

140 DIM x(2,3) 

150 REM 

160 REM 式値の入力 
170 REM 
180 CLS 

190 FOR i=0 TO 2 

200 PRINT i + 1; •• 本目の式を入力します 。" 

210 FOR j=0 TO 2 

220 PRINT "X( n ； j+1 ；")="； 

230 INPUT " ",va 

240 x(i,j)=va 

250 NEXT j 

260 INPUT " 式値 ： "，va 

270 x(i,3)=va 

280 NEXT i 

290 REM 

300 REM 入力された式の出力 
310 REM 

320 FOR i=0 TO 2 
330 FOR j=0 TO 2 

340 PRINT x(i, j) ；"*xr ； j + 

350 IF j<>2 THEN PRINT " + "； 

360 NEXT j 

370 PRINT " = " ； x(i,3) 

380 NEXT i 
390 REM 

400 REM 掃き出し法の実行 
410 REM 

420 GOSUB •• 掃き出し法 " 

430 REM 

440 REM 結果の出力 
450 REM 

460 FOR i=0 TO 2 

470 PRINT M X(" ； i+l ； ")=" ； x{i,3) 

480 NEXT i 
490 END 
500 REM 


510 LABEL " 掃き出し法 " 

520 REM 

540 FOR i=0 TO 2 

550 FOR j=i+l TO 3 

560 x(i,j)r X (i,j)/x(i,i) 

570 NEXT j 

580 FOR j=0 TO 2 

590 IF i = j GOTO " 対角要索 ” 

600 FOR k=i+l TO 3 

610 x(j,k)=x(j,k)-x(j,i)*x{i,k) 

620 NEXT k 

630 LABEL " 対角要素 " 

640 NEXT j 


660 RETURN 
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行列式は見た目はかなり行列に似ていま 
すが，両者には大きな違いがあります。そ 
れは行列式は普通の値を持つということで 
す。普通の値とは3とか2.64とかです。こ 
のような値を“スカラー”といっています。 
いうまでもなく，行列って行列の値しか持 
ちませんよね。図4に行列式の例をあげま 
す。行列式は， 

6 1 8 
7 5 3 

2 9 4 

のように書き表します。 

そして，この行列式の値は360です。こ 
のように行列式は行列とたいへん似ていま 
すが，スカラー値を持っているわけですか 
ら，等号は普通の意味で使えます。 

さて，どのようにして行列式の値を求め 
るのでしようか。行列式の値は，その行列 
式の要素から計算されます。しかし実はこ 
れが，たいへん面倒臭いのです。そして， 
これこそコンピュータにやらせるべき仕事 


です。なぜ面倒臭いかというと，行列式の 
大きさ（行数と列数）が変わると行列式の 
値を求める式も変わってくるからです（と 
はいえ，ちゃんと規則性はあるんだよ）。 

では，これを計算するプログラムを組ん 
でみましようと言いたいとこなんだけど， 

図3 Cramer の公式 


今回は連立方程式がテーマだし……といっ 
てさぼってしまうのでした。やっぱり行列 
や行列式は，それなりのところで勉強した 
ほうがいいでしよう奥が深いですからね。 
でも，あっさりあきらめてしまうのは残念 
なので，簡単な行列式の場合の値の計算の 


連立丨次方程式 

fill ズ1 + fll 2 ズ2十… \ CL\nXn — b \ 
(l2\X\ + 〇 22^2 + ••• +02nX n = 〇 2 


‘ fl / ilXi + fl ”2 ズ 2十 … ^CLnnXn — bn 
のとき， （ fl は係数，ズは未知数） 


CL \\ 012 


b \ • 

021 〇22 〇2 . 


d\n 

02n 




列を 

ろで置き換える。 


Xi '~ 


CLn\ 

dni … b n •- 

• Onn 

aw 

012 . 

din 

021 

022 . 

• ^2/i 

CLn\ 

dm . 

dnn 


リスト 2 -a Cramer の公式による解法 ( XB 8000) 


リスト 2 -b Crater の公式による和法 ( X 〗/ X 〗 tu 「 bo ) 


100 /本 

110/* Cramer の公式による 3 元 1 次連立方程式の解の®出 

120 /本 

130 /% Oh!X 88 8 

140 /本 

150 int i，j 

160 float value 

170 dim float x(2,3) 

180 /本 

190 /» 式値の入力 
200 /* 

210 els 

220 for i=0 to 2 

230 print i+1;" 本目の式を入力します 。" 

240 for j=0 to 2 

250 print "X( " ; j+1;"); 

260 input " ", value 

270 x(i,j)rvalue 

280 next 

290 input " 式値 =",value 

300 x(i,3)=value 

310 next 
320 /本 

330 /* 入力された式の出力 
340 /* 

350 for i=0 to 2 
360 for j=0 to 2 

370 print x(i,j) ； "tX( M ;j +1; M )"； 

380 if j<>2 then print " + 

390 next 

400 print " = ";x(i,3) 

410 next 
420 /* 

430 /* Cramer の公式による解の算出と出力 
440 

450 d=det(-1) 

460 for i=0 to 2 

470 print "X( ; i + 1;"> =";det(i)/d 

480 next 
490 end 

500 func float det(m ； int) 

510 int i t j,k,ans 
520 dim float y(2,3) 

530 for i=0 to 2 

540 for j=0 to 2 

550 if j=m then { 

560 y(i,j)=x(i,3) 

570 } else { 

580 y(i,j)=x(i f j) 

590 J 

600 next 

610 next 

620 ans=y(0,0)*y( l f l)*y(2,2)+y(0,l)*y(l l 2)*y(2,0)+y(O,2) 
*y(l,0)*y(2,l)-y(0,2)*y( 1,1 )*y(2 f 0)-y(0, 1 )*y( 1 ,0)*y(2,2) 
-y(0,0)*y(l,2)*y(2,l) 

630 return(ans ) 

640 endfunc 


100 REM Cramer の公式による 3 元 1 次連立方程式の解の筠出 
110 REM 

120 REM Oh IX 88_8 

130 REM 

140 DIM x(2,3),y(2,3) 

150 REM 

160 REM 式値の入力 
170 REM 
180 CLS 

190 FOR i=0 TO 2 

200 PRINT i+1 本目の式を入力します 。" 

210 FOR j=0 TO 2 

220 PRINT "X(";j+1 

230 INPUT " ",va 

240 x(i,j)=va 

250 NEXT j 

260 INPUT ， • 式値 =",va 

270 x(i,3)=va 

280 NEXT i 

290 REM 

300 REM 入力された式の出力 
310 REM 

320 FOR i=0 TO 2 
330 FOR j=0 TO 2 

340 PRINT x(i,j) ； "*X(" ； j+l ；") M ； 

350 IF j<>2 THEN PRINT " + "； 

360 NEXT j 

370 PRINT _• = M ； x( i ,3) 

380 NEXT i 
390 REM 

400 REM Cramer の 公式に よる解の算出と出力 
410 REM 
420 i=-l 

430 GOSUB "Cramer の公式" 

440 div=ans 

450 FOR i=0 TO 2 

460 GOSUB "Cramer の公式，. 

470 PRINT "xr ;i + l;")=";ans/div 

480 NEXT i 
490 END 
500 REM 

510 LABEL "Cramer の公式.. 

520 REM 

530 FOR j=0 TO 2 

540 FOR k=0 TO 2 

550 IF i=k THEN y(j,k)=x(j,3) ELSE y(j,k)=x(j,k) 

560 NEXT k 

570 NEXT 

580 ans=y(0,0)*y(1,1)*y(2,2)+y(0,1)«y(1,2)»y{2,0)+y ( 0,2 ) 
1,0)«y(2,1)-y(0,2)*y(1,l)*y(2 f 0)-y(0,l)*y(l,0)*y(2,2) 
-y(0,O)*y(l,2)*y(2,1) 

590 RETURN 
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100 REM 三角 
110 REM 
120 REM 
130 REM 
140 DIM x(2, 


仕方を図 4 に示します。 

というわけで，連立方程式に戻りましよ 
う。この Cramer の公式を用いたプログラム 
をリスト2に示します。どうです，あんま 
り美しくないでしよう。数学的に美しい0 
amer の公式も，プログラムにするとかたな 
しです。 

ここで考えてほしいのは，数学的な美し 
さとプログラム的な美しさとの違いです。 
数学は実利をまった〈無視しているわけで 
はないのですが結構実利を離れて，抽象的 
で思想的な美しさをもつ分野です。これに 
対し，コンピュータというのは実利重視で， 
どろどろとしたものをたくさん引きずった 
ものです。この両者の違いはあまりにも大 
きく，多くの問題を引き起こします。では， 
コンピュータにとって最も望ましい解き方 
( アルゴリズム） とは，どのようなもので 
しようか。 


角分解によ方程式の解法 



実際にコンピュータに連立方程式を解か 
せようとするとき，いちばん気をつけなけ 
ればならないことは何でしようか。それは， 
おそら〈計算の効率だと思います。パソコ 
ンで而 fl 半分にプログラムを組んでいると 
きはどうでもいいことですが，ちゃんと満 
足のできる，ましてや他人に見せるプログ 
ラムならばなおさらです。また実際にコン 
ピュータに連立方程式を解かせようとする 
ときがどんな場合かと考えれば，解くべき 
式がかなり膨大なときであることが予想さ 
れます。 

この場合％掃き出し法や Cramer の公式な 
どは処理の効率が悪く，かなり使いづらい 
ものとなります。では，効率を上げるため 
にはどうすればいいのでしよう力*。効率を 
卜.げるためのひとつの基準となるのは処理 
速度です。そこで話を処理速度に絞って， 
それを上げるためにはどうすればよいのか 
図4行列式 


レ1 

= a 


I au 

d\2 


I a 2 i 

022 

1 

fin 

012 

Ol3 

<221 

022 

〇 23 

az\ 

(132 

033 


ということを，考えてみたいと思います。 

処理速度を上げるためには，いくつかの 
手段が考えられます。大事なことは要領よ 
く処理をするということです。これは効率 
のよい アル ゴリズムを採用するといったこ 
とにつながります。たとえば多くのデータ 
のソートだったら存効な アル ゴリズムとし 
てはクイックソートが有名です。 

しかし，このアルゴリズムの選択をする 
ときに気をつけなければならないことがあ 
ります。それは処理すべきデータの数やデ 
ータの特性，処理を行うときのさまざまな 
制約条件によって，どのアルゴリズムが有 
効かということが大きく左右されるという 
ことです。そのため，ひとつの処理をとっ 
てもたくさんのアルゴリズムが存在してい 
ます。投入されたデータによって処理の戦 
略を変えるというダイナミックプログラミ 
ングという手法さえあるぐらいです。 

さてそこで，最終的にこの連立方程式の 
解法でとったアルゴリズムは何かというと 
三角分解 （ LU 分解）を用いたアルゴリズム 
です。なぜこのアルゴリズムを取ったかと 
いうと，以下のような理由があります。 

第1に単純な連立方程式ならコンピュー 
夕にいちいち入力するほうが時間がかかっ 
てしまうのではないかということ。第2に 
とにか〈掛け算が少ないことです。マシン 
語を知っている人はわかると思います力す， 
掛け算は足し算より数倍時問がかかるのて 
す。その代わり少しループが増えています 
が掛け算の回数もかなり少な〈なっていて 
たぶん，こちらのほうが速いと思います。 
この プログラムを リスト3に示します。 

三角分解とはなんだろうと思った方も多 
いでしょう。これは通常の行列を，以下の 
ような2つの行列の褙に分解してしまぉう 
というものです。 


aw 

d\2 

(l\3 

a2\ 

a 22 

Cl2^ 

Ci2\ 

a 32 

a 33 


11^22^23 *^^12^23^31 +^21〇32^13 

_ 031022013 一 Cl \ \〇32(123 一 〇2\〇\2 〇2：\ 


リスト 3- a 三角分解を用いた 解法 ( X 68000) 


• J スト 3 -b 


I U\\ U\2 Un \ 

0 1122 1122 I 

\0 0 u ぬ) 

例： 

/8 412 \ /4 0 0\ /213\ 

21113 = 1 5 0 022 

\1413 31 ノ \ァ 31 ノ \0 0 4 / 

こうすることで連立1次式の1つの未知 
数の値が確定してしまいます。あとはこれ 
を代入して，残りの解を単純に計算するだ 
けです。結構，要領よくやっているでしよ 
う。なお三角分解については，やっぱりそ 
れなりのところで勉強したほうがいいと思 
います。 

とにかく コンピュータで 良好な アル ゴリ 
ズムを選ぶと，足し算より掛け算は時間が 
かかるとか，メモリに限界があるとか，数 
学では考えられない恐ろしく泥臭いことが 
起きるのです。そしてこれらを考慮してフ° 
ログラムを組むことが，効率のよい処理を 
しようとすると要求されるのです。 

これは数学の見地からいえば，とんでも 
ないことです。したがって数学的な（論现 
的な）美しさなんてものは，コンピュータ 
にとってはあまり意味のないこと iT す。一 
布史に数学とコンピュータとはかなり忡がい 
いと思われているのですが，本当だろうか 
と考え込んでしまう私なのでした。 


， なんだかんだといっても，コンピュータ 

と数学はお互いにたいへん影響を与えぁっ 
ています。昔から数学のさまざまなアイデ 
アがコンピュータに取り込まれてきました 

• し，最近数学のなかにもコンピュータの優れ 
た計算力を背景とした（要するにコンピュ 
ータに莫大な計算をさせて行う）分野が® 
れてきました。しかし数学でいう演算とコ 
ンピュータでいう演算では大きな意味の開 
きがあることが，今回の話でわかっていた 
だけたと思います。 

でも，コンピュータを詳し〈知りたかっ 
たら数学は不可欠です。はっきり言って私 
は数学が苦手です。特に式を書いてごしょ 
ごしょするのは本当に苦手です。でも，コ 
ンピュータを使っているうちにやっぱり数 
学は必要だということで，私だってそこそ 
こに勉強しているのですよ。 

三角 分解を用いた解 _( Xl / Xltu 「 bo ) 

分解を用いた 3 元 1 次連立方程式の解の费出 
Oh IX 88_8 

3),L(2,2),U(2,2),y(2) 



In 0 0 \ 

1 2 ,1 2I 0 
131132133 / 


出 

寅 

の 

解 

の 

式 

程 8_ 
方 88- 
立 

連 !X 
次 oh 


た 

用 

を 

解 

分 

角 

三 

本本ネ本 ★ 

/ / / / / 
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150 

int i,j 


150 

160 

float value 


160 

170 

dim float x(2,3),L(2 

,2) ,U(*2,2) 

170 

180 

ハ 


180 

190 

/* 式値の入力 


190 

200 

/* 


200 

210 

els 


210 

220 

for i=0 to 2 


220 

230 

print i +1; ” 本目の式を人力します 。" 

230 

24 0 

for j=0 to 2 


240 

250 

print "X (”； j + 1;. ，い"； 

250 

260 

input ” "， 

va lue 

260 

270 

x(l,j)=value 

2 70 

280 

next 


280 

290 

input "式値 ：" 

,value 

290 

300 

x(i,3}=va 丄 ue 


300 

310 

next 


310 

320 

/* 


320 

330 

/* 入力された式の出力 

330 

340 

ハ 


340 

350 

for i=0 to 2 


350 

360 

for j=0 to 2 


360 

370 

print x(i, j) ； j+1；" )'*； 

370 

380 

if j<>2 then print " + "； 

380 

390 

next 


390 

400 

print " = ";x(i 

， 3) 

400 

410 

next 


410 

420 

/* 


420 

430 

/* 三角分解の実行 


430 

440 

/* 


440 

450 

Decomp() 


450 

460 

/* 


460 

470 

/* 結果の 算出 


470 

480 

/* 


480 

490 

Solve() 


490 

500 

/» 


500 

510 

/* 結果の 出力 


510 

520 

ハ 


520 

530 

for i=0 to 2 


530 

540 

print "X(";i+l; 

M ) = ";xU ， 3> 

540 

550 

next 


550 

560 

end 


560 

570 

/* 


570 

580 

/* 三角分解 


580 

590 



590 

600 

func Decomp() 


600 

610 

int i,j,k 


610 

620 

float s 


620 

630 

for i=0 to 2 


630 

640 

L(i ， 0)=x(i 

,0) 

640 

650 

next 


650 

660 

for i=l to 2 


660 

670 

U(0 f i)=x(0 

,i)/L(0,0) 

670 

680 

next 


680 

690 

for i=l to 2 


690 

700 

for j=i to 

2 

700 

710 

s = 0 


710 

720 

for k 

=0 to i-1 

720 

730 


s=L(j,k)*U(k,i)+s 

730 

740 

next 


740 

750 

L( j,i 

)=x(j,i)-s 

750 

760 

next 


760 

770 

for j=i+1 

to 2 

770 

780 

s = 0 


780 

790 

for k 

=0 to i-1 

790 

800 


s=L(i,k)*U(k,j)+s 

800 

810 

next 


810 

820 

U(i, j 

)=(x(i,j)-s)/L(i,i) 

820 

830 

next 


830 

840 

next 


840 

850 

for i=0 to 2 


850 

860 

U(i,i)=l 


860 

870 

next 


870 

880 

endf unc 


880 

890 

/* 


890 

900 

/* 結果の計算 


900 


PKINT i +1; •• 本目の式を人力します， 
FOR j=0 TO 2 

PRINT "XC'lj+l ； M )="； 
INPUT " ",va 
x(i,j)=va 

NEXT j 

INPUT "式値 ="，va 
x ( i , 3 ) = va 


i=0 TO 2 
FOR j=0 TO 2 

PRINT x(i, j) ；"*xr ； j+l;") M ; 
IF j<>2 THEN PRINT " + "； 

NEXT j 

PRINT •' = M ； x ( i , 3 ) 


PRINT "X(" ； i+1 ；")="； x(i,3) 


i=0 TO 2 
L(i,0)=x(i,0) 


i=l TO 2 

U(0,i)=x(0,i)/L(0,0) 


TO 2 
s = 0 

FOR k=0 TO i-1 

s=L(j,k)<U(k,i)+s 

NEXT « 

L(j,i )=x( j,i ) -s 

+ 1 TO 2 
s = 0 

FOR k=0 TO i-1 

s = L(i,k ) *U(k,j)+s 

NEXT k 

U(i ,j)=(x( i,j)-s)/L(i,i ) 


NEXT 
FOR j 


910 /t 

920 func Solve() 


930 

int 

i ， j • k 



940 

float s 



950 

dim 

float 

y (2) 


960 


y[0)=x(O,3)/L(0 

,0) 

970 


for 

i=1 to 2 


980 



s = 0 


990 



for j=0 to 

i-1 

100() 



s = L( i 

.j)*y(j) 

1010 



next 


1020 



y(i)=(x(i, 

3)-s)/L( 

1030 


next 



10 4 0 


x(2, 

3)=y(2) 


1050 


for 

i=0 to1 


1055 



J = l-i 


1060 



s = 0 


1070 



for k=j+l 

to 2 

1080 



s=U( j 

,k)*x(k, 

1090 



next 


1100 



x(j,3)=y(j)-s 

1110 


next 



1120 

end t unc 




. 算出 ，. 


i=l TO 2 
s=0 

FOR j=0 TO i-1 

s=L(i,j)*y(j)+s 

910 NEXT j 

920 y(i) = ( X <i,3)-s)/L(i,i ) 

930 NEXT i 
940 x(2,3)=y(2) 

950 FOR i=0 TO1 
9t>0 j=l-i 

970 s=0 

980 FOR k=j+l TO 2 

^90 s = U(j,k)*\(k, +s 

000 NEXT k 

010 x(j,3)=y(j)-s 

020 NEXT i 
0：<0 RETURN 
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特集真夏の夜の数値演算 

I •があるからむずかしし 


Mukouhana Ayumu 

「/ってよ〈わからないけど……，苦しむ感じが素敵」というわけで，とってもも難 向原友吵才7 

しい複素数のお話です。ここでは，複素数に関する基礎知識と， BASIC で簡単に複素数の 
演算を行うためのサブルーチ/ン集を紹介しましょう。 


方程式がら生まれた f 


皆さんは，虚数というものを知っていま 
すか。これは自分自身を掛け合わせる （2 
乗する）と負の値になるという数のことで 
す。たとえば， 

x 2 =~l .(1) 

という方程式を考えてみましよう。通常の 
数（実数）なら2乗すると0か正の値にな 
りますから，この方程式の解は存在しませ 
ん。そこで， 2乘すると負になるような数 
を「無理やり考える」のです。たとえば， 

i 2 =~l . ⑵ 

であるような数/を考えます。すなわち， 

/ =V — 1 

というわけです。これが数学や物理学でち 
よ〈ちよく お 目にかかる/ という 数のもつ 
とも単純な定義になります。 f という名前 
は 「imaginary number (想像上の数）」の 
頭文字を取ったものです。 

これでさっきの方程式⑴の解はもちろん 
/ということになります。また，この/に 
関して一/し_の一1倍）という数を考え 
ると， 

(-/) 2 =(-/)x(-/) 

=(-1) x/x (-1)x / 

= ( — 1) X (— 1 ) X i X i 
=1 X / X /： 

= i 2 =-\ 

となりますから，一/も方程式⑴の解であ 
ることがわかります。ただしこの変換はそ 
れほど当たり前というわけではなく， 

• a xb=bxa 

• (a x b ) x c = a x (b x c ) 

という関係が成立することを仮定していま 
す。この関係は実数同士では明らかですが， 
虚数においても成立すると仮定するわけで 
すね。まさに仮定だらけの「空虚」な数で 
すが，/を導入したことにより，方程式⑴ 
の解を2つ （ i と 一/)求めることができま 
した。次に， 

x 2 = — n 2 .(3) 

( n は0以上の実数） 


という方程式を考えましょう。この方程式 
の解も虚数になりますが，この方程式の解 
は I •を使って n x /と 一 n x ^•と表すことが 
できます（わかりますよね）。このようにす 
ベての虚数は/の定数倍として表すことが 
できるため i を虚数単位と呼びます。 

それでは，もっと一般的な2次方程式， 

ax 2 + bx + c =0( a , b , c は実数） .(4) 

について考えます。この方程式の解は判別 
式を， 

D = b 2 —4 ac 
とするとき， 

x =(— b ±^/^)/2 ⑸ 

となります。もし， D が0以上なら⑸は2 
つの実数になりますが， D が負のときは実 
数解が存在しません。 D が負のときの方程 
式 (4) の解は，虚数単位 i を使って 

〇〇= (一 b 土/ノ ー D )/2 ⑹ 

と表せます。実数の範關内だけで2次方程 
式の解を求めようとすると，解が存在しな 
い場合と存在する場合に分かれてしまいま 
すが，虚数 I •の助けを借りると必ず2つの 
解を求めることができるようになります。 
逆の兄方をすれば，2次方程式に必ず2つ 
の解を持たせるために/という虚数が考え 
られたのだということもできます。 

ところで， （5) と⑹の式を見てわかるとお 
り，2次方程式の2つの解は必ず， 
a + bi ( a ， b は実数) 

という形式をしています。そして，実数と 
虚数を組み合わせてできるこのような数を 
複素数 （complex number :複公した数， 
決してコンプレツクスを持った数という意 
味ではない）と呼んでいます。 

さて，2次方程式に2つの解を持たせる 
ために虚数 i というものが考えられたとい 
いましたが，同様にして3次方程衣， 4次 
方程式，……に次数と同じ個数の解を持た 
せるためにはどんな数を考えなければなら 
ないのでしょうか。実はそれらの萵次方程 
式を解く場合にも複素数の範囲，つまり実 
数と虚数の組み合わせだけで十分であるこ 
とがわかっています。これが「代数学の基 
本定理」というやつです。すなわち， 「 n 次 


方程式は複素数の範囲で n 個の解を持つ j 
ということです。 

それでは， n 次方程式の解が n 個求まる 
ようになると何かいいことがあるのでしよ 
うか。実はなんの役にも立ちません。しか 
し，同じ複素数が物理学の分野では物体の 
運動を記述する場合に重要な役割を果たし 
ていることを知っておきましよう。 

そこでは，/という数値は一1の平方根 
という形式的な意味だけでなく，もっと現 
実的な意味を持っているのです。それにつ 
いてはあとで説明しますが，それにしても， 
虚構の世界から発想された複素数力す現実の 
世界と関わりを持っているとは驚きでもあ 
りますね。もっとも，「負の数」は実際の世 
界には存在しませんが数学や物理学で重要 
な役割を果たしていることを考えると，「虛 
数」や「複素数」をそれほど特別视する必 
要もないのですけどね。 


複素数の 


ここでは，複素数の基本的な演算につい 
て押さえておきましよう。虚構の世-界で扱う 
場合も現実の世界で扱う場合も複素数とし 
ての演算は同じですから，これがすべての 
基本になります。 

複素数は， 

z = x-\-yi .(7) 

( x ， ： y は実数，/は虚数単位） 

のかたちで表される数です。このとき x を 
実数部，： y を虚数部と呼びます。2つの複 
素数 a + b / と c + d / が等しいためには a=c 
かつ b = d でなくてはなりません。すなわち， 
複素数の実数部と虚数部は「独立」で，実 
数部と虚数部を定めると複素数は-意に決 
まります。また，複素数には四則演算が定 
義されます。これは以下のような規則にな 
ります。 

加算 

(a + b /) + (c + ch .) 

= (a + c ) + ( b + d ) / . ⑻ 

減算 

(a + b /) — (c + d /) 
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=( a — c ) + ( b — d ) i .(9) 

乗算 

( a + bi ) x (c + d /) 

=ac + ad / + be i — bd 
=( ac - bd ) + ( be - Had ) i . ⑽ 


除算 

a + bi 
c + d / 

_ (a + b /) (c — d /) 

(c + d /) ( c ~ d /) 

ac — ad ，, -f be / + bd 
c 2 + d 2 

_ (ac + bd ) — (ad — be ) i 

c 2 + d 2 


どれも実数の演算と同じ式の変形をしな 
がら，途中で出て〈る/ 2 を一1に置き換え 
ているだけですから，これは自然な定義と 
いえるでしよう。そして，ここで大事なこ 
とは実数の演算で使っていた法則がそのま 
ま使えるということです。実際，複素数の 
虚数部を0とするとそれは実数そのもので 
すね。複素数とは実数を拡張した普遍的な 
数ということができるのです。 



複素数は実数と虚数の組み合わせですが， 
もっと現実的な意味を持たせることができ 
ます。先に述べたように，複素数は実数部 
と虚数部の値を決定すると一意に定まりま 
す。そこで， 
a+bi 

という複素数を， 

( a ， b ) 

と記述する方法が考案されました。この記 
述では/という虚数単位は表立って出てき 
ませんが，その表す内容は同じことです。 

さて，この表記を眺めれば，これが:^平 
面上の1点の表記によく似ていることがわ 
かります。たとえば， （ a ， b ) という表記は 
は xy 平面上においてで座標が a で: y 座標が 
b である点の表記と同一です。つまり， x 軸 
が実数で，： V 軸が虚数であるような座標系 
(平面）を考えると，すべての複素数はその 
平面内の1点として認識することができる 
ようになります（図1)。 


図1複素数と複素平面 


虚数 

(a, b) ♦- *a + bj 
b - -• 


(c, d)«~»c+d/ 

I 

—■ - > 実数 


ここにおいて，話はち図2複素数の四則演算 



(a+c) + (b + d) i 


令実数 



x+yi = (a+bi) (c+d/) 


> 実数 


⑵減算 
虚数 



⑷除算 
虚数 



よつと飛躍しますが ， a 
+ b / という複素数は x ： y 平 
而上の位置ベクトル（原 
点を始点とする）と同 • 

视できるようになります。 

べクトルというと矢印（有 
向線分）を思い浮かべる 
かもしれません力す，高校 
や大学の数学では物体の 
位置を示す1点のことを 
言います（その点とは原 
点を始点とする有向線分 
の終点に他ならないので 
すが)。 

実際のところ，複素数 
の演算はべクトルの演算 
と同じ演算が成立します。たとえば，ぬ8)， 
⑼に対応して， 

加算 

( a ， b ) + ( c ， d ) 

= ( a + c , b + d ) .(12) 


のです。 

それでは除党はどうでしょうか。ある複 
素数で割るということは逆数を掛けるとい 
うことですから，除算も回転と拡大にほか 
なりません。実際， 


減算 

( a ， b ) - ( c ， d ) 


c + d / 


= (a — c , b - d ) 


.⑽ は， 


という関係が成立します0これはベクトル 
の加減算と崗一•ですね。 

しかし，式⑽や (11) に见られるような乘除 
算はべクトルの演算であまり見かけること 
がないように思われます。それでは，いつ 
たいなんだろうかということで思い出され 
るのは行列とベクトルの積です0いま， 
(a ， b) x (1，0) = ( a ， b > 

( a ， b ) x (0,1)=(— b ， a ) 

であることを考えると， 

( a , b ) x ( c ， d ) 

という演算は ( c ， d ) というべクトルに行列 

(「:） 


_ c —di 

(c + d /) (c 一 di ) 

_ c di 
c 2 + d 2 c 2 + d 2 

ですから乗算と同様に考えると，複素数の 
割り算は， 

1 ( cos (—没）一 sin (—の) 

ノ c 2 + d 2 Uin (— の cost — 6)) 


ただし， 

sin <9 =_^_ 

/P+d 2 


•(17) 

.⑽ 

.⑽ 


を掛けることに等しくなります （ 1次変換 
を勉強したことのある人ならわかりますよ 
ね）。さらに， 


C0S ^ = 71W 


sin^= 


b 

ノ aW 2 


•(14) 

(15) 


であるような没を考えると上の行列は, 


/?+ b 2 


cos 没 
sin 汐 


— sin ^ \ 
cos 汐ノ 


•(16) 


と変形できます。これはベクトルを角度沒 
だけ四転させて， /? TP 倍する行列に他 
なりません（これも1次変換で出てきまし 
たね)。すなわち複素数の掛け算はベクトル 
の回転と拡大（あるいは縮小）を意味する 


という行列を0卜けることが割り算というこ 
とになります。これは要するに逆方向の回 
転ですね。 

どうです，おぼろげながら複素数の演算 


の意味が見えてきたと思いませんか。もっ 
と意味をはっきりさせるために図2に複素 
数の四則演算のイメージを示しておきまし 


上フ« 



形式 


複素数の乘笕はべクトルの回転を意味し 
ていますが，複素数はそれ自体実数を回丰云 
させていたものと見ることができます。た 
とえば，先に挙げた， 
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( a ， b ) x (1,0) = ( a , b ) .(20) 

という関係を思い起こすと， 
a + bi 

という複素数は実数“1”を複素平面上で 
回転したものとみなすことができます。こ 
のときの回転角は明らかに式 (14) と (15) を満た 
す （9 です（図3)。 

このように，複素数は複素平面上の回転 
と同一視できますから，その記述をベタト 
ルの長さと実数軸に対する回転角で示した 
ほうが都合のいいことが多〈あります。そし 
て，そのような記述を複素数の極形式と言 
います。つまり，複素数のべクトルの長さ 
を r , 実数軸に対する回転角を0とすると， 
図3から, 

a + b /= r(cos 沒 + /sin の .(21) 

ただし r = /?TF 
であることがわかります。 

実数部と虚数部を決めれば複素数が一意 
に定まることを先に説明しました力 5 '，その 
代わりに ベクトルの 長さと回転角（正式に 
は偏角と言う）を決めても複素数を一意に 
定めることができます。この r と沒の組は 
極座標と呼ばれます。この極座標(極形式） 
を用いれば，回転と絡めて複素数の乗除算 
に関する次の公式を直感的に理解すること 
ができます。つまり， 


zi = ri ( cos 汐 1 + / sin ^ i ) 


Z2 = r2(COS 沒 2 + /sin が 2 ) •• 

…… (22) 

とするとき， 

ziZ 2 = rir2(cos(0i + 沒 2 >+/sin ( 沒 i + 沒 2 )) 

一= — (cos ( 没 1 一没 2 ) + /sin ( 汐 1 — 

…… (23) 

-di)) 

Z2 T2 

…… (24) 

z n = 1 r (cos 汐 + /sin 汐 ) f n 
= r n (cos(n の + isin(n の ）" 

…… (25) 


が成立します。特に (25) は「ド.モアブルの 
定理」と呼ばれる有名な関係ですが，冗を 
1回掛けることで0だけ回転が行われるこ 
とを考えれば自明な関係ですね。 

また，有名な「オイラーの公式」， 

e ,<7 = cos ^+ zsin ^ (26) 

を用いれば(23)，（24)， （25) の関係は，複素数の 
回転を考えなくても，次のように純粋に指 
数法則からだけでも理解す名こともできま 
す。 

ziZ2 = rie ,tf T 2 e ,e? 

= r \ r2e i0l+i02 

= r \ T2e i{ei+02) (27) 

zi = ne ,g, _n i0l _ i02 
Z2 T2e idl T2 

=— e i(e '~ ei) (28) 

V 2 

z n =( re i0 ) n 
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= r n e ine (29) 

ところで，複素数を極形式で記述したと 
き，三角関数の性質から偏角は 2 tt の整数倍 
ずれていても同じことになります。そこで， 
任意の複素数は， 

z = r ( cos (<9 + 2 k ? r ) 4- / sin (沒 + 2 k ? r )) 

(k = 0， l ，2,3, …… ） ⑽ 

と表すことができます。このとき，「ド•モ 
アブルの定理」 （25) から， 

z 1/n = r 1/n { cos ((夕 + 2 k ? r )/ n ) 

+ fsin ((汐 + 2 k ? r )/ n >| 
( k =0， l ,2,3, …… ) (31) 

あるいは， 

z 1/n = ( re*) l/n 


という操作がパふを掛けるという操作に置 
き換えられることに気づくでしよう。これ 
がわかれば，単振動の加速度は速度に/^ 
を掛けて（時間 t で微分して）， 

^=(ioo)^=(ioo)(ioo-z) 
dt 2 dt 

= — oj 2 *z .(36) 

となります。これは，単振動の運動方程式 
(微分方程式）に他なりません。 

実際，物理学において複素数は運動方程 
式（微分方程式）を解く場合に威力を発揮 
します。減衰振動の運動方程式， 

jr H t 

m^ + R^ + kx=0 .(37) 


= r l/n. e /(5 + 2k») n .( 32 ) 

を導〈ことができます。 

この関係は偏角が （<9 + 2 k ? r / n ) であるよ 
うな複素数を n 乗すると，偏角が0に戻る 

ということを意味します 。 k = 0, l ,2, . ， 

(n —1) のとき式 (31) または (32) で示される複素 
数はすべて異なります（図 4) から，これ 
らの式は複素数の n 乗根をすべて（代数学 
の基本定理から n 個あるはず）求める式と 
いうことができます。極形式を使用すると 
複素数の乗除算（特にべキ乘とべキ乗根） 
を簡単に計算できるようになるのです。 

余談ですが，式 (26) の「オイラーの公式」 
で沒を； r とすると， 

e ,, r = cos (7 r ) ■+• / sin (7 r ) 

=-1 


ですから，両辺の自然対数を取って, 


/7 T = l 0 g e (- l ) .(33) 

という関係を得ることができます。この関 
係を使うと対数関数の定義域を正の数だけ 
でなく負の数にも拡大することができます。 
複素数って偉大ですね。 


物理 


V 


応用 


複素数は数学だけでなく物理学にも応用 
されていて，現実の物体の運動を解き明か 
すための助けとなっています。その典型は 
振動する物体の記述です。単純な例は単振 
動でしょう。単振®力の変位は， 


z = C * e iu, .(34) 

という式の実数部で表されます。わざわざ 
z を使うのは微分や積分が簡単にできるか 
らです。言い換えれば微分•積分をすっき 
りとしたかたちで行うためなのです。単振 
動の速度は変位 Z を時問 t で微分した， 


dz 
dt = 


C * iooe " 1 


= icso*z .(35) 

の実数部で与えられますが，このとき微分 


を解いてみましょう。この方程式の解が， 

x = C - e x, (38) 

で与えられるとすると， 

^= A - C - e A, = Ax (39) 

dt 

— = X 2 x (40) 

dt 2 dt 

ですから， （37)，（39)，(40) から， 

( mA 2 + RA + k ) x =0 (41) 

が成立します。したがって，えの満たすベ 
き関係は， 

mA 2 + RA . + k = 0 (42) 

となります。2次方程式の解は -•般に2つ 
の複素数ですから，減衰振動も式 (34) と同様 
の式 (38) でえられることがわかりますね。 
何かキツネにつままれたような気がしない 
でもありませんが，これは運動方程式の正 
式な解き方のひとつなのです。 

ところで，単振動において微分は/〇;を 
掛けることでした。それでは積分はどうで 
しょう。お察しのとおり，それは h で割 
図3複素数の極形式 


虚数 



図4複素数の n 乗根 


虛数 








































ることになります（積分は徽分の逆演算）。 
これからビーンときた人がいるかもしれま 
せんが，/ というものは結局は工学の分野 
で多用されるラプラス変換（大学で習うこ 
とですからわからなくていいです）のパラ 
メータ S と同じようなものといえるでしよ 
う。このアイデアまで行き着くと，複素数 


ルーチンを HuBASIC で実行するためには， 
XR = 値 ： XI = 値 ： YR = 値 ： YI = 値： 
GOSUB “ ZADD ” 

というぐあいにします（名前はすべて大文 
字にしてください）。 

なお， RECTANGULAR_FORM という 
サブルーチンの引数 RADIUS は， XI では 


予約語 （ RAD で始ま.る）に引っ掛かるため 
XRADIUS としてあります。 

といったところで今回の複素数の話を終 
わることにいたしましよう。プログラムの 
なかでどのようなことが行われているかは, 
これまでの説明を思い出しながら読んでみ 
てくださいね。 


という虚構の数も現実と関わりの深い数で 
あることがおぼろげながら見えてくるので 
す0 


少しプログラムを 


これまで複素数について説明してきたわ 
けです力 5 ，このまま終わってしまってはこ 
の雑誌が『大学への数学』とか『数学セミ 
ナ ー 』といった類の雑誌と間違えられてし 
まうかもしれませんね 。 Oh ! X はパソコン 
の雑誌ですから，ちょいと簡単なプロダラ 
ムを作ってみました。 

それがリスト1 ( X - BASIC ) およびリス 
卜2 ( HuBASIC ) です。どちらも内容は同 
じで，複素数の演算を行うためのサブルー 
チン集と実数係数の2次方程式と3次方程 
式の解を求めるためのプログラムです 。 B 
ASIC 上でサブルーチンを呼び出して遊ん 
でみて〈ださい。少しは複素数が身近に感 
じられて〈るでしょう（ということはない 
か)。 

プログラムを実行すると変数 zfr ， zfi，zf 
pr ， zfpt ， および，配列 RR ， RI が定義さ 
れます。これは複素数演算の結果を格納す 
るための変数と配列の宣言で，これが終わ 
ったらダイレクトモードでサブルーチンを 
呼び出すことができます。 

ただし，リスト2の XI 版では実行時に 
多少注意が必要です。それは，一般の BA 
SIC では，サブルーチンに引数を渡すこと 
ができないためで，サブルーチンを呼ぶ前 
に引数と同じ名前の変数に値を入れてやら 
なければなりません。 

プログラムで定義されているサブルーチ 
ンの簡単な説明を以下にまとめておきます 
が， zadd ( xr , xi , yr , yi ) と書かれているサブ 

U スト1 


サブルーチンの概要 


zadd ( xr , X /, yr , y /) 
複素数 （ xr , x /) と 
て実数部を変数 zfr に， 
る。 

zsub ( xr , X /, yr , yi ) 
複素数 （ xr , x /) と 
て実数部を変数 z 什に， 
る。 

zmul ( xr , xi , yr , yi ) 
複素数 （ xr , x /) と 
て実数部を変数 zfr に， 
る0 


( yr , yi ) の和を計算し 
虚数部を変数 zfi に入れ 


( yr , yi ) の差を計算し 
虚数部を変数 zfi に入れ 


( yr , yi ) の積を計算し 
虚数部を変数 zfi に入れ 


zdiv ( xr , X /, yr , yi ) 

複素数 （ xr , x /) と （ yr , y /) の商を計算し 
て実数部を変数 z 什に，虚数部を変数 zfi に入れ 


る。 

polar - form ( X ， y ) 

複素数 （ x , y ) を極形式に変換して長さを変 
数 zfpr に，偏角を変数 zfpt に入れる。偏角は0〜 
2? r の範囲に入るように補正する。 


rectangular_form ( radius , theta ) 

長さ radius , 偏角 theta で与えられる極形式の 
複素数を直交座標形式に変換して実数部を変数 
zfr に，虚数部を変数 zfi に入れる。 
polar _ zmulUr , xi , yr , yi ) 

複素数 （ xr , x /) と （ yr , y /) の積を計算し 
て実数部を変数 zfr に，虚数部を変数 zfi に入れ 
る c 計算は極形式に変換してから行う。 


の解を求める。ひとつめの解の実数部を RR (0) に, 
虚数部を Rl (0) に入れる。2つめの解の実数部を 
RR (1) に，虚数部を Rl (1) に入れる。 
aim 3_ equation ( b , c , d ) 

実数係数の3次方程式 
x 3 * + bx 2 + cx + d = 0 

の解を求める。ひとつめの解の実数部を RR (0) に， 
虚数部を Rl (0) に入れる。2つめの解の実数部を 
RR (1) に，虚数部を RI ⑴に入れる。3つめの解 
の実数部を RR (2) に，虚数部を Rl (2) に入れる。 
dim 3_ check ( b , c , d ) 

dim 3_ equation を実行して得られる 3 次方程式 
の解， RR (0)~ RR (2), Rl (0) 〜 Rl (2) から， 
x 3 + bx 2 + cx +d 

の値を計算する。正しい解であれば値が0 (計 
算誤差が入ってくるので実際は0に近い値）に 
なるはず。 

※3次方程式の解法（おまけ） 

x 3 + bx 2 +cx +d = 0 .( a ) 

で， 

X = x + b /3 .( b ) 

と置くと，方程式 （ a ) は， 

X 3 + pX + q = 0 .( c ) 

のかたちに変形できる。 

一方，因数分解の公式， 

Y 3 -u 3 -v j -3uv 

= (Y-u—v) (Y-oju-otv) (Y-o^u-ojv) 

(6 J は1でない 1 の 3 乗根の片方）…… ( d ) 
から， 


polar _ zdiv ( xr , xi , yr , yi ) 

複素数 （ xr , x /) と （ yr , y /') の商を計算し 
て実数部を変数 zfr に，虚数部を変数 zfi に入れ 
る。計算は極形式に変換してから行う。 
zpow ( xr , x /, n ) 


uv = — p /3 .、 e ) 

u 3 +v 3=-q …… ⑴ 


であるような u と v の組を求めれば，父は, 
U + V 
GJU + 0J 2 V 


複素数 （ xr , x /) の n 乗を計算して実数部を Wu + otv 


変数 z 什に，虚数部を変数 zfi に入れる。計算は 
極形式に変換してから行う。 
znroot ( xr , xi , n , / th ) 

複素数 （ xr , x /) の/ th 番目の n 乗根を計算し 
て実数部を変数 zfr に，虚数部を変数 zfi に入れ 
る。計算は極形式に変換してから行う。 
dim 2_ equation ( b , c ； 

実数係数の2次方程式 
x 1 2 + bx + c = 0 


となる。このとき， （ b ) の関係により， X の実 
数部から b /3 を引けば方程式 （ a ) の解が求まる。 
( e ) と （ f ) から， u 3 と v 3 は方程式， 

Z 2 + qZ - p 3 /27 = 0 …… （ g ) 

の解になる（解と係数の関係)。これから u 3 また 
は v :5 が求まり，関係 （e ) を満たすような u と v 
の組を求めることができる。このように，3次 
方程式は2次方程式に帰着して解くことができ 
る。 


複素数 演算のためのサブルーチン ( X - BASIC ) 


1 float zfr , zfi , zfpr,zipt 

2 dim float RR(3),RI(3) : end 

1000 /本 

1010 /* 褸禦数の和 

1020 /t 

1030 func zadd(xr ； float,xi ； float,yr ； float,yi;float) 
1040 zfr=xr+yr : zfi=xi+yi 

1050 endfunc 

1060 /t 

1070 /* 複素数の差 

1080 /t 

1090 func zsub(xr;float,xi;float,yr;float,yi;float) 
1100 zfr=xr-yr : zfi=xi-yi 

1110 endfunc 
1120 /* 

1130 /* 褸索数の積 

1140 /t 


1 150 func zmul(xr;float f xi;float,yr;f1oat,yi;float) 

1 160 zfr=xr 本 yr — xi 本 yi : zPi 二 xr 本 yi+xi 本 yr 

1170 endfunc 

1180 /本 

1190 パ « [索数の商 

1200 /本 

1210 func zdiv(xr ； float , xi ; float , yr ; float , yi ; float) 

1220 float r 

1230 r 二 yr 本 yr+yi 拿 yi 

1240 zfr={xr 本 yr+xi 拿 yi>/r : zfi=(-xr 拿 yi+xi 拿 yr}/r 

1250 endfunc 
1260 /t 

1270 /♦ 極座標形式への変換 

1280 ft 

1290 func polar_form< x;float f y;float) 

1300 zfpr = 3 qr(x 拿 x + y 本 y > 

1310 if x=0# and y>=0# then zfpt=pi()/2# : return() 
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1320 if x=0# and y<0# then zfpt=1•5# 拿 pi(): return() 
1330 zfpt=atan(y/x) 

1340 if x>0# and y> = 0# then return 。 

1350 if x>0# and y<0# then zfpt=pi ( 2 )+zfpt: return 。 

1360 zfpt=pi(}+zfpt 
1370 endfunc 
1380 /t 

1390 /t 直交座樣形式への変換 

1400 /% 

1410 func rectangular_form(radius ； float,theta ； float) 

1420 zfr=radius 本 cos(theta) 

1430 zfi=radius 拿 sin!theta) 

1440 endfunc 
1450 /拿 

1460 ft 複素数の積（極座標による） 

1470 /$ 

1480 func polar_zmul(xr ; float 9 xi ； float,yr ； float,yi ； float) 
1490 float rl7r2,tl f t2 

1500 polar_form(xr,xi) : rl=zfpr : tl=zfpt 

1510 polar_form(yr,yi) : r2=zfpr : t2=zfpt 

1520 rectangular_form(rltr2 ， tl+t2 > 

1530 endfunc 
1540 /拿 

1550 /% 裱索败の商（極座標による〉 

1560 /拿 

1570 func polar_zdiv(xr ; float,xi;float,yr;float,yi;float) 
1580 float rl;r2,tl ， t2 

1590 polar_form(xr # xi) : rl=zfpr : tl=zfpt 

1600 polar__form( yr, yi ) : r2 = zfpr : t2 = zfpt 

1610 rectangular_forro(rl/r2,tl-t2) 

1620 endfunc 
1630 /拿 

1640 /% 複素数のべキ乗（極座標による） 

1650 /拿 

1660 func zpow(xr ; float f xi;float y n;int) 

1670 float rl,tl 

1680 polar_form(xr f xi) : rl=zfpr : tl=zfpt 
1690 rectangular—form<povi(rl,n) ， n 拿 tl} 

1700 endfunc 
1710 /% 

1720 /% 複素数のぺキ乘根（極座標による） 

1730 /拿 

1740 func znroot<xr;float,xi ; float,n ； int f ith ； int) 

1750 float rl f tl 

1760 polar_form(xr f xi) : rl=zfpr : tl=zfpt 

1770 rectangular—form(pow{rl•l#/n),(t1+pi(2)*ith)/n) 

1780 endfunc 
1790 /% 

1800 ft 2 次方程式の解法 

1810 /拿 

1820 func dim2_equation(b ； float f c ； float) 

1830 float xl,yl f x2,y2 y d 
1840 d=b 拿 b-4# 拿 c 

1850 znroot(d,0# y 2 y 0) : xl=zfr/2# : yl=zfi/2# 

1860 znroot(d f 0# f 2 f 1) : x2=zfr/2# : y2 二 zfi/2 参 
1870 zadd(-b/2# f 0# f xl f yl) 


1880 RR(0)=zfr : RI(0)=zfi 
1890 zadd(-b/2#,0# ， x2,y2> 

1900 RR(1)=zfr : RI(1)=zfi 
1910 endfunc 
1920 /拿 

1930 /t 3 次方程式の解放 

1940 /* 


1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 


func dim3—equation<b;float f c ； float f d ； float) 
float p f q f wlr f wli # w2r,w2i,tlr f tli 
float u3r f u3i,v3r f v3i,ur,ui,vr,vi 
p=c-b 拿 b/3# : q=2# 拿 b 拿 b 家 b/27# — b 拿 c/3#+d 
dim2—equation<q,-l#^ptp^p/27#> 
u3r=RR(0) : u3i=RI(0) 
v3r=RR(1) : v3i=RI(l) 
if (u3r=0) and (u3i=0> then { 
ur=0 : ui=0 

if (v3r=0) and (v3i=0) then ( 
vr=0 : vi=0 
} else | 

znroot(v3r 9 v3i 9 3 9 0) : vr=zfr : vi=zfi 

> 

)else { 

znroot(u3r,u3i,3•0) : ur=zfr : ui=zfi 
zdiv(-l# 拿 p ン 3# ， 0,ur,ui> : vr=zfr : vi=zfi 

I 

wlr= -0.5# : wli=aqr(3)/2# : w2r=wlr : w2i= -wli 
zadd(ur 9 ui 9 vr 9 vi) 

RR(0)=zfr-b/3# : RI(0)=zfi 

zmul(ur 9 ui,wlr,wli) : tlr=zfr : tli=zfi 

zmul(vr,vi 9 w2r f w2i) 

zadditlr ， tli,zfr,zfi> 

RR ⑴二 zfr-b/3# : RI(l)=zfi 

zmul(ur 9 ui 9 w2r 9 w2i) : tlr=zfr : tli=zfi 

zmul<vr,vi 9 wlr 9 wll) 

zadd(tlr f tli,zfr f zfi) 

RR(2)=zfr-b/3# : RI(2)=zfi 


2240 endfunc 


2250 /t 

2260 /拿 検算ブログラム （ 3 次方程式） 

2270 /拿 

2280 func dim3__check (b 9 c 9 d) 

2290 float rr # ri 

2300 int i 

2310 for i=0 to 2 

2320 print •第 •；i + l ; "の根：.； RR( i h ;RI ( り； " i" 

2330 zpow(RR(i) f RI(i),3) 

2340 rr=zfr : ri = zfi 

2350 zmul(RR(i) 9 RI(i) 9 RR(i),RI(i)) 

2360 rr=rr+zfr 拿 b : ri=ri+zfi 拿 b 

2370 rr=rr+RR(i> 拿 c+d : ri=ri+RI{i} 拿 c 

2380 color 2 

2390 print ••方程式の rr ri; "i" 

2400 color 3 

2410 next 
2420 endfunc 


リスト 2 複素数^チン ( HuBASIC ) 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1 :⑵ 1 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


DBL A-Z：DEFINT I：DIM RR(3),RI(3) 

複素数の和 

LABEL M ZADD M ： ZFR=XR+YR ： ZFI=XI+Y1：RETURN 

複素数の 差 

LABEL"ZSUB M : ZFR=XR-YR ： ZFI=XI_YI •• RERURN 

複素数の播 

LABEL"ZMUL":ZFR=XR^YR-XI^YI:ZFI=XRtYI+XI*YR:RETURN 

複素数の商 

LABEL M ZDIV ••: ZFI=YR 本 YR+YI 拿 YI •• ZFH= < XR 拿 YR+XI 拿 Y I>/ZFI 
ZFI=( 一 XR 拿 YI+XI 拿 YR)/ZFI : RETURN 

ft 座樣形式への変換 

LABEL"POLAR_FORM":ZFPR=SQR<X 拿 X+Y 拿 Y> 

IF(X=0)AND(Y>=0)THEN ZFPT=PAI(.5) : RETURN 
IF(X=0)AND(Y<0) THEN ZFPT=PAI(1.5)：RETURN 
ZFPT=ATN(Y/X) 

IF(X>0)AND(Y>=0)THEN RETURN 

1F(X>0)AND(Y<0) THEN ZFRT=PAI(2)+ZFPT : RETURN 
ZFPT=PAI(1>+ZFPT:RETURN 

； 直交座標形式への変換 

LABEL M RECTANGULAR_FORM M : ZFR=XRADIUS 拿 COS(THETA) 
ZFI=XRADIUS 拿 SIN<TSETA> : RETURN 

； 複素数の積 < ft 座樣による） 

LABEL M POLAR_ZMUL M ： X=XR ： Y=XI ： GOSUB M POLAR_FORM M 
R1=ZFPR ： T1=ZFPT ： X 二 YR : Y=Y1 : GOSUB"POLAR_FORM M 
R2=ZFPR ： T2=ZFPT ： XRADIUS=R1<R2:THETA=T1+T2 
GOSUB"RECTANGULAR_FORM":RETURN 

； 褸索数の商（極座槻による） 

LABEL"POLAR_ZDIV" :X=XR:Y=XI : GOSUB f, POLAR_FORM M 
R1=ZFPR ： T1=ZFPT：X = YR：Y = YI •• GOSUB"POLAR_FORM” 
R2=ZFPR ： T2=ZFPT ： XRADIUS=Rl/R2 ： THETA=Tl-T2 
GOSUB"RECTANGULAR_FORM" •• RETURN 

1 複索数のぺキ乘 <tt 座棵による） 


1510 LABEL "ZPOW ••: X = XR ： Y=XI ： GOSUB" POLAR, FORM•• 
1520 R1=ZFPR:T1=ZFPT:XRADIUS = K1 ~N:THET^ = TUN 
1530 GOSUB M RECTANGULAR_FORM M : RETURN 


1540 1 

1550 » 複素数のぺキ乗®(極座標による） 

1560 1 

1570 LABEL"ZNROOT":X=XR:Y=XI:GOSUB"POLAR_FORM" 

1580 R1=ZFPR:T1=ZFPT 

1590 XRADIUS=RK( 1/N) : THETA= (T1+PAI ( 2 ) t ITH) /N 
1600 GOSUB"RECTANGULAR_FORM":RETURN 
1610 1 

1620 • 2 次方程式の解法 

1630 1 

1640 LABEL”DIM2_EQUATION":D=B 拿 B_4 拿 C 

1650 XR=D:XI=0 ： N=2:ITH=0 ： GOSUB M ZNROOT M ： Xl=ZFR/2 ： Yl=ZFI/2 
1660 XR=D ： XI=0:N=2 ： ITH=1 ： GOSUB M ZNROOT M ： X2=ZFR/2 ： Y2=ZFI/2 
1670 XR = -B/2 ： XI=0 ： YR=X1 : YI=Y1 : GOSUB M ZADD M : RR(0)=ZFR : RI(0)=ZFI 
1680 XR=-B/2 ： XI=0 ： YR=X2 ： YI=Y2 ： GOSUB M ZADD M ： RR(1)=ZFR ： RI(1 い ZFI 
1690 RETURN 
1700 f 

1710 1 3 次方程式の解法 

1720 • 

1730 LABEL"DIM3_EQUATION” ： P=C-B 拿 B/3:Q=2^B 拿 B 拿 B/27-B 拿 C/3+D 
1740 BB=B:CC=C:B=Q:C=-P 拿 P 拿 P/27:G0SUB"DIM2_EQUATI0hT 
1750 U3R=RR(0) ： U3I=RI(0):V3R=RR(1) : V3I=RI(1) 

1760 IF(U3RO0)OR(U3I<>0) THEN GOTO 1810 
1770 UR=0 ： UI=0 

1780 IF(V3RO0)OR(V3I<>0) THEN GOTO 1800 
1790 VB=0 ： VI=0:GOTO 1830 

1800 XR=V3R ： XI=V3I：N = 3：ITH = 0 ： GOSUB M ZNROOT M ： VR=ZFR ： VI=ZFI : GOTO 1830 
1810 XR=U3R ： XI=U3I ： N=3：ITH = 0 ： GOSUB ,, ZNROOT M ： UR=ZFR ： UI=ZFI 
1820 XR=-P/3 ： XI=0 ： YR=UR ： YI=UI ： GOSUB m ZDIV m :VR=ZFR ： VI=ZFI 
1830 W1B=-.5 ： W1I=SQR(3)/2 ： W2R=W1R:W2I=-W1I 
1840 XR=UR : XI=UI ： YR=VR : Y1=VI:GOSUB"ZADD" 

1850 RR(0)=ZFR-BB/3 : RI(0)=ZF1 

1860 XR=UR:XI=UI ： YR=W1R ： YI=W1I ： G0SUB M ZMUL H ： T1R=ZFR:T1I=ZFI 
1870 XR=VR ： XI=VI:YR=W2R ： YI=W2I ： GOSUB M ZMUL n : T2R=ZFR ： T2I=ZFI 
1880 XR=T1R ： XI=T1I ： YR=T2R ： YI=T21 ： GOSUB M ZADD u 
1890 RR(1)=ZFR-BB/3 ： RI(1)=ZFI 

1900 XR=UR : XI=UI ： YR=W2R : YI=W21 : GOSUB M ZMUL M : T1R=ZFR ： T1I=ZFI 
1910 XR=VR ： XI=VI : YR=W1R ： YI=W1I ： GOSUB M ZMUL n ： T2R=ZFR ： T2I=ZFI 
1920 XR=T1R ： XI=T1I ： YR=T2H ： YI=T2I •• GOSUB..ZADD" 

1930 RR(2)=ZFR-BB/3 : RI(2)=ZFI：RETURN 
1940 f 

1950 1 検算ブログラム （3 次方程式） 

1960 1 

1970 LABEL"DIM3_CHECK" 

1980 FOR 1=0 TO 2 

1990 PRINT ••第 ”；I + 1; •• の解："； RR<I>;" + ";RI(I};"i" 

2000 XR=RR ⑴ : X1=RI(I)： N = 3 ： GOSUB M ZPOW M : KR = ZFR : KI=ZFI 

2010 XR=RR(I) : XI=RI(I) : YR=XR ： YI=XI ： GOSUB M ZMUL M 

2020 KH=KR+ZFR<B ： KI=KI+ZFItB 

2030 KR = KR+RR(I) 拿 C+D:KI=KI+RI(I> 拿 C 

2040 COLOR 6 

2050 PRINT ••方程式の儀：”； KR; KI;"i M 
2060 COLOR 7:NEXT I 
2070 RETURN 
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特集真夏の夜の数値演算 


とんでちなくテタ ： 

いつも私たちの気がつかないところで活躍している「乱数 JO ここでは少した 
不明の数列の真実の姿に触れてみましょう。普段なにげなく使っている乱貉 
作られているのか。また，正しい 乱数はどのように作るべきなのか，といっ 

えします。 


Kamo 门 Masato 

華門真人 


乱数というものについて考えてみましょ 
う。コンピュータにとって乱数というもの 
は， ゲーム （アクション ゲーム や RPG はも 
ちろんのことだが，乩数を使ったァドベン 
チヤ ーゲー ムというものもあった）やシミ 
ュレーションでは欠かすことのできないも 
のです。 

特にゲームなどでは高速に乩数を求める 
ため特殊な方法がとられていることがあり 
ます0もっとも簡単なのは Z80 の R レジス 
夕を使うものです。 R レジスタの値は〇〜 
127 までの侦を周期的に繰り返しています。 
ゲームなどでは， 

LD A，R 

というものを疑似的に乩数と兄たてている 
のです。次:際には全然乩数ではないのです 
が，場合によってはこれで十分，用が足り 
てしまいます。 Z80 マシンでは乩数系列の 
初期化にはこのレジスタを使うことが多く， 
いつでも新鮮な乩数が発生しますね。こん 
なレジスタは，ほかの CPU ではまずお II に 
かかれませんから， X68000 の X-BASIC で 
ューザーが乱数系列の初期化をしなければ 
ならないことにムッとした人もいることで 
しょラ0 

このように涔段なにげなく使っている乩 
数ですが，その次:体は意外と知られていな 
いようです。 



さて，現実的な問題として乩数(列}とは 
いったいなんなのでしようか？ よく使わ 
れる定義に「数列の中の数同士になんらの 
関係も認められないような数列 j というも 
のがあります。かみくだいていえば，次に 
なにが出てくるかわからない数のことです。 
乱数(列）という表現をしましたが，厳密に 
考えると，ここで考えなければならないの 
は乱数列なのです。たとえば，5という数 


は乩数でしよう力*。もちろんノーです。乩 
数という概念は単独で存在するわけではな 
く，ほかの数とのかかわりで存在するもの 
なのです。ですから丨然乩数列という数列 
•位で芩えることが必要になるのです。し 
かし以下ではこのことを暗黙の丫解として， 
特別な場合を除いて乩数列のことを乩数と 
表記することにしましよう（そのほうが親 
しみやすいですからね)。 

さて，その乩数ですがもっと親しみやす 
い表视でいえば，「デタラメ」な数です。身 
近な例ではサイコロなどがありますね。サ 
イコロを振ると必ず1から6までの IJ のう 
ちのひとつが出ますが，そのうちのどの|| 
が出てくるのかはまったく J '* 想できません。 
1回目に2という II が出て，2回|]に5と 
いう II が出たとしてもこの2と5の間には 
なんら係がないのです。 


乱数の発 



その現実 


さて，乩数はコンピュータ I . にも登場し 
ます。 BASIC の RND 関数などがこれにあ 
たりますね。 HuBASIC などでは， 


RND(l) 

というかたちで0以上1未満の乱数を発生 
することになっています。ですから，コン 
ピュータ上でサイコロを作りたけ n ば， 
INT(RND(1)*6+1) 


とすればいいわけです。 

でも，この RND 閲数はに乩数なので 
しようか？ 答えはもちろんノーです。コ 
ン ピュー タ における 乩数は次:は疑似乩数と 
呼ばれるもので.乩数に似せたものではあ 
っても，本当の乩数では決してないのです。 

ところでなぜ「もちろん」ノー といった 
のかわかりますか。乩数の定衣•のところで 
も述べたように，乱数とは本質的に互いに 
なんら関係がない存在ですから，乩数を数 
式で表現することはイヾ町能なのです。•方， 


コンピュータとは命令（すなわち数式）に 
従ってのみ ! fiJj くものであり，数式で表すこ 
とのできないものを計算することができる 
はずがありません。 

これにつ いては， かの 有名なフ オン •ノイ 
マン博士も「四則演算によって乩数を作り 
出そうと試みる者は，いうまでもなく，神 
に背こうとしているのである」と語ってい 
ます（そもそも，この人が初めて術計？?： 
で乱数を作り出そうとした)。 

それでは RND 関数を始めとする C 疑似） 
乱数とはいったいなんなのでしよう力、义 
はこれらは数式に乗らないはずの乱数を無 
现やり数 j ： U こ乗せてしまったものなのです。 
すなわち，あえて「神に竹いて」乩数を数 
A でシミュレートしたものなのです。もち 
ろん，正確な意味では乱数になりません。 
だから「疑似」乩数なのです。 

しかし実際問題として， 
INT(RND(1)*G+1) 

のサイコロなどはかなり尖⑴に耐えますね。 
H 黹使う分には「疑似」であることはまっ 
たく意識しなくてすみます（こうした陰に 
はできるだけ真の乱数に近いものを作ろう 
としたプログラマたちの努力があるのです 
が)。 

それでは，コンピュータ上の疑似関数は 
いったいどんな数忒に従って® j いているの 
でしようか。 



ひとつ lAif 丨い义験をしてみましょう 。 R 
N D I 划数などの疑似関数がどれだけ炎の乩 
数に近いかを調べるためのテストです。 

IIuBASIC I ••でリスト 1 を実行してみて 
ください。リスト1はひと [1 見てわかるよ 
うに非常に中-純なプログラムです。印-に R 
ND 関数で PSET を行っているだけなので 
すから。もしこの RND 関数が本当の乱数で 
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X=IKT(RND(1)*640) 
Y=INT(RND(1)*200) 
PSET (X,Y) 

GOTO10 


図 1 リスト 1 の実行例 



ことです。 

また，もうひとつ問題があります。それ 
は m を 2 e などの演算語の大きさ（たとえば 
32ビット演算であれば2 32 )と同じにすると 
注意が必要になるということです。 m = 2 e 
とすると， mod の計算が除算なしですむた 
めマシン語での計算が非常に楽になります。 
反面，得られる乱数の下位ビットがかなり 
規則的になってしまうという欠点を持ちま 
す。これも説明すると長くなってしまうの 
で，そういうものなのだと思って〈ださい 
(ずいぶん強引だな〜，興味のある人は参 
考文献を参照のこと)。 

だからといって m =2 e にしてはいけない 
というわけではありません。上位ビットは 
十分にデタラメになっていますから，上位 
ビットだけを抽出してやれば，乱数として 
使いものになるのです。要は使い方の問題 
でしよう0計算の楽さ（これはスピードの 
速さにもつながる）とある程度の精度を両 
立させるのもいいし，もし本当に精度を求 
めるのであれば， m として 2 e — l や 2 e にも 
っとも近い素数を選べばよいのです。実際 
問題として通常に使う分には m = 2 e として 
やることのほうが多いようです（もちろん 
上位ビットのみを使いますが)。 


今度は最適な乗数 a を考えてみましょう。 
先に述べたように，周期は最大で m です。 
ですから，最適な a とは周期を m にする a 
である，ということができます。周期が m 
になるような，すべての a ， c , Xo の選び 
方（必要十分条件）は次のようになります。 


リスト1乱数を調べる 


あるのならば当然どんどんデタラメな点が 
打たれていき，最後には画面は真っ白にな 
るはずですね。 

図1を見てください。これはリスト1を 
3時間ほど実行し続けてみたものです。ご 
らんのように画面は真っ白にはならず，模 
様のようなものを生じてしまいます。この 
模様はいったいなんなのでしようか。実は， 
これは HuBASIC で使われている「線形合 
同法」という疑似乱数発生法の持つ規則性 
が表れたものなのです。 



線形合同法は現在の乱数発生法のうちも 
っともメジヤーなものです。この方法は舌し 
数列く X n > を， 

Xn + i = ( aXn + c)mod m 
m :法 （ m >0) 
a :乗数 (0^ a < m ) 
c •• 増分 (0^ c < m ) 

Xo :出発値 （ OSXo く m ) 

として定めるものです。このように定めら 
れる数列 <Xn> を線形合同数列 （linear c 
ongruential sequence ) と 11 乎びます。 

この線形合同数列は m や a などの値をう 
まく設定してやればきわめて乱数に近い性 
質を持つようにすることもできます。しか 
し，この線形合同法で生成した疑似乱数列 
には共通した欠点があるのです。すなわち 
必ず「環にはまり込み」，周期性を持つよう 
になるのです。これは先ほどテストしたと 
おりです。もっともこれは線形合同法だけ 
の欠点ではなく， X n +1 = f ( X n ) という数列 
すべての持つ特徴なのですが。 

それでは，この線形合同数列は乱数とし 
て失格なのでしょう力、。もちろん真の乱数 
列には絶対なりえません（これは不可能） 
が，疑似乱数として考えた場合，十分に使 
いものになるのです（もちろんうまくやれ 
ば，ですが)。 

より真の乱数に近い線形合同数列とはど 
んな数列でしょうか。最終的には必ず環に 
はまり込んでしまうとしても，周期を十分 
に大きくすることで環にはまり込むことを 
気にさせなくすることはできそうです。た 
とえば，100個の乱数からなる乱数列を得 
たいとします。このときは周期が101であ 
れば（すなわち1番目の数と101番目の数 
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が同じになる）その100個に関していえば 
ほとんど乱数とみなすことができます（環 
にはまり込んでいないという意味で)。 

要するに周期が大きければ大きいほど真 
の乱数に近づくのです。それではその周期 
を大きくするためにはどうすればよいので 
しようか0 



まず初めに線形合同法の乱数生成式のう 
ち，法 m について考えてみましよう。この 
結論はきわめて簡単です。いろいろと制限 
はありますが，一般には m は大きいほどよ 
いのです。 

というのも乱数列く X n > の周期は m を超 
えることがないからです。なぜなら線形合 
同数列 X n は一度でも Xk = X ,.(ただし k > r ) 
となろうものならそれ以降は必ず， Xk + 1 = 

Xr + l ， Xk +2 = X r +2» X k+3 = X r H-3 . とな 

ってしまいます。つまり環にはまり込み， 
周期なるものが生じてしまうわけです。 

ところがこの周期は m を超えることがで 
きないのです。考えてみてください。一般 
に Xn は m で割った余りですから， m を超 
えることはないわけです。すなわち， 0 S 
X n < m であり， X n は m 通りの数しかとり 
えないのです。よって m は大きいほうがよ 
いのです。 

とはいえ， m はただ大きければそれでよ 
いというわけではありません。いくら大き 
くてもあまり乱数にならない場合もありま 
すし（周期は最大 m であって，常に m なわ 
けではないですからね），それにへ夕に大 
きくしすぎると，計算が面倒になってしま 
います。 

それではどんな値が適当なのでしようか。 
まずいえるのは，いくら大きいといっても 
処理できる範囲内で選ぶべきであるという 
ことです。才ー パ' ーフロー しようものなら 
一気に面倒になりますからね。問題はこの 
範囲のなかで，どのような値をとるべきか 
ということです。これは後述する乗数 a に 
もかかわることなのですが，結論からいっ 
てしまうと， a と m は互いに素 （ 1以外の 
公約数を持たない）でなければなりません。 
これは証明しているとかなり長くなって面 
倒なのですが，簡単にいってしまうと aX n 
のとりうる値が少な〈なってしまうという 


0 0 0 0 
12 3 4 









1) c と m が互いに素 

2) b = a — 1が m を割り切るすべての素数 

p の倍数である 

3) m が4の倍数であれば， b も4の倍数 

である 

1) はだいたいわかりますね。問題は 2) と 
3) です。実はこれらを満足すれば自動的に 
「 a と m は互いに素である」という条件を満 
たします。ですから，できるだけ長い m を 
設定し，それにあわせて 1) 〜 3) を満たす 
ate を作ってやればよいわけです。 

具体的な例で見てみましよう。 m によく 
使われる値として， 2 e ，2 e - l ，2 e にもっとも 
近い素数の3つがあると先に述べましたが， 
それぞれ について 理想的な a や c の値を考 
えてみましよう。 
m = 2 e の場合 

I )から c は 2* •と互いに素な値，たとえば 
1，3などの奇数であればよいことになりま 
す。また 2) および 3) から b ( = a —1) が4の 
倍数でなければならないことになります。 
すなわち a は4で割って1余る (a mod 4 = 1) 
数でなければならないことになります。 
m =2 e —丨の場合 

この場合はまず m の約数を探さなければ 
なりません。たとえば m =2 36 — 1の場合は 
約数は3 3 , 5, 7,13, 19,37,73,109ですから, 
これらの数を約数に持たない数（たとえば 
4，11など）を選び，それを c とすればよい 
わけです。また， m はこの型の場合4の倍 
数にはなりえませんから， 3) は考えな〈て 
もすみます。 

問題は 2) です。 2) により b が3, 5, 7,13, 
19,37,73,109すべての倍数でなければなり 
ません。すなわち ， b = n *3*5*7*13*19 
*37*73*109 = 76354974 15 n < n は整数）で 
なければならないことになります。よって， 
a = l +7635497415 n ですね（ただし a<m 
より 0‘ n <9)。 この場合はうま〈 a が1 
以外にも存在しましたが，場合によると a 
=1しか存在しないということもあるので 
注意が必要です。 

m =2 e にもっとも近い素数の場合 

この場合 c は m 以外のどんな数でも OK 
ということになります。同様にして 3) も考 
えなくてすみます。問題は 2) でこの条件に 
よ り a = l と固定されてしまいます。 

a =1で周期が m となり，万事 OK となり 
そうですが，ところがそうはいかないので 


す。すなわち，周期は m でもその中でのデ 
タラメさに欠けてしまうのです （Xwi = 
( Xn + c)mod m となってしまうのです:^*ら)。 
ここ らへんが難しいところですね。 


理想的な 


k 線形 


合同法 


さて，いろいろと而倒になってきました 
ので少しまとめてみましよう。く Xn > がより 
真の乱数に近くなるためにはできるだけ周 
期が長いほうがよいのでしたね。 


Xn + i = (aXn+c)mod m 
では，より長い周期を実视するための条件 
は次のようになります。 

1) 出発値 Xo 

Xo は適当でかまいません。もちろん使う 
たびに発生する乱数が異なるようにするた 
めには毎冋 Xo を変えなければなりません。 
そのためには前回使った最終値を覚えてお 
いてそれを Xo としてもよいですし（要する 
にその数列を永遠に続けることになる），よ 
り簡単な方法として RND 関数を使い始めた 
ときの時刻などを Xo にしてしまうという手 
もあります。 

BASIC では RANDOMIZE という命令が 
ありますが，この命令はまさしく Xo を自分 
で設定するための命令です。これをうまく 
使えば毎回違った乱数列や，あるいは逆に 
毎回同じ乱数列を生成できるようになるわ 
けです。 

2) 法 m 

法 m はできる限り大きい数を選びます（で 
きれば2 30 ぐらいはほしい ）。 m = 2 e (計算 
の語の大きさ）とすると計算が非常に楽に 
なりますが，その代わり先ほども述べたよ 
うに下位ビツトがあまりデタラメでなくな 
ってしまいますので注意が必要でしょう。 
このような事態を避ける（要するに精度を 
高くする）ためには，計算は少し面倒にな 
りますが， m として 2 e — 1 や， 2 e にもっと 
も近い素数を選べばよいわけです。場合に 
応じて使い分けてください。 

3) 乗数 a 

周期を m と等しくするためには乗数 a の 
ところで述べた3条件を満たさなければな 
りません。この条件を満たし，なおかつ十 
分にデタラメな乱;数列を生成できるのは m 
= 2 e のときがほとんどです（ほかの場合は 
a の自由度が少なく a=l となりやすい)。で 


すから，確実に周期が m で十分にデタラメ 
な乩数列を得たければ， 
m =2 <, 

( c は m と互いに素） 
a mod 4 =1 

を満たすものを選べばよいことになります。 
ただし，この場合.は上位ビットしか使用し 
てはいけません。 

また， m 幸2〃の蜴合は周期が m かつ十分 
にデタラメとすることが困難（不可能とは 
限らない）になりますが，その反面下位ビ 
ットも十分に使えるようになるというメリ 
ットがあります。ですから精度が必要にな 
る場合は少しぐらい周期を小さくしてでも 
(詳しくは述べませんがうまくやれば周期 
を m - l とすることすらできます）， m 本 2 e 
とすればよいわけです。必要とされる精度 
によってうま〈使い分けてください。 


線形合同法の応用 


以上で線形合同法の最適な形態を見てき 
たわけですが，この線形合同法をうま〈応 
用してやればさらにデタラメさを増したり， 
周期を延ばしてやることが可能になります。 
この代表的なものが， 

Xn+i =( bXn 2 + aXn + c)mod m 
なる式です。 

このように2次合同法にまで拡張してや 
ればデタラメさも増し，また制約条件もゆ 
る〈なります。この数列が最長周期 m を持 
つ条件は次のとおりです。 

1) c と m は互いに素 

2) b と a — 1の両方が m を割り切るすべて 
の素数 p の倍数 

3) b が偶数であり， m が 4 の倍数であれ 
ば b を 4 で割った余りと a_l を 4 で割っ 
た余りが等し〈なければならない。また 
b が偶数であり， m が2の倍数であれば 
b を 2 で割った余りと a- 1 を 2 で割った 
余りが等しくなければならない 

4) m が 9 の倍数であれば， b も 9 の倍数， 
もしくは cb を9で割った余りが6となる 
また，今度は周期を増す拡張として，X 

n+1 をX"だけでなく， X n および X n ^の関数 
とすることが考えられます。こうすれば数 
列が環にはまり込むのは (Xn-^r, Xn + r + l) 

= (Xn, Xnfl) となるときからになります 
から，理論上は最長周期を m 2 にすることが 
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できるようになります力 ? ，この乱数列は実 
際にはうまくいきません。周期は畏くなる 
ものの，デタラメさがなくなってしまうの 
です。しかし次の式は同じような考え方に 
よって長い周期と十分なデタラメさを実現 
しています。 

Xn = ( Xu -24+ Xn -55 )mod m 
( n > =55) 

一見すると，なんなんだこの式はと思わ 
れるかもしれません力す，実にうまくできた 
式で周期が姑低でも2 55 _1も保証され，さ 
らにほとんど理論的な裏づけはないのです 
が，十分にデタラメになっているのです。 

このような拡張法によりデタラメさや周 
期を延ばすことができます力 ? ，まだほかに 
も方法はあります。2つの数列（必ずしも 
乱数列でなくてもよい）を結びあわせて第 
3の十分にデタラメで周期の長い乩数列を 
作るのです。このような乩数生成法をかき 
混ぜ法と呼びます。 

かき混ぜ法1 

この方法は2つの数列 〈 X n >， く Y n > と補 
助用の表 V [0]， V [ l ], ……， V [ k -1] 
を使います。 k は100ぐらいが理想的です。 
表 V にはく X n > の最初の k 個の値を入れて 
おきます。 

手順1 

X ， Y に数列く X ,,〉，く Y "> の次の項を入 
れます。 

手順2 j の抽出 

j = [ kY / m ] ( [ r ] とは int ( r ) のこと） 
とします。この m はく Y n > を生成するとき 
に法として使った値ですから， j は Y によ 
って決まる OSj く k の乱数ということにな 
ります。 

手順3 交換 

V [ j ] を出力し， V [ j ] = X とします。 
要するに，乩数をまた乱数化するような作 
業です。この方法の優れたところは乱数列 
の近い項の刖での_係がほとんど完全にな 
くなる点にあります。この方法を使わない 
と，ある数式に従っている以上，どうして 
も近い項同士に関連性が生じやすいのです。 
さらに，この方法では多くの場合に周期を 
く Xn > とく Y n > の最小公倍数にできるので 
す。 

いいことずくめのようなこの方法ですが， 
ごくまれに （ Xn と Y „ にかなり规則性のあ 
るものを使用した場合）この方法によって， 
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より規則性が強い数列を生じてしまうこと 
があるのです。そこで，次のかき混ぜ法2 
の登場です。これは前記のかき混ぜ法1を 
改良したもので，しかも生成法はもっと簡 
単です。 

かき混ぜ法2 

これは2数列を使わなくても1数列く Xn > 
だけで十分にかき混ぜることができる方法 
です。この方法でも補助表 V [0]， V [ l ], 
……， V [ k -1] を使用します。まず初めに 
表 V のなかに < X „> の最初の km を代入し 
て，浦助変数 Y に k +1 項を代入しておきま 
す（数列 Y „ の代わりに Y を使うわけです)。 
手顺1 j の抽出 

j = [ kY / m ] とします。ここで m はく X n > 
をル:成するときに法とした数ですから ， j 
は Y によって決まる OSj く k の乩数という 
ことになるわけです。 

手順2 入れ替え 

Y = V [ j ] とし， Y を出力します。 V [ j ] 
には数列 < Xn > の次の項を代入しておきま 
す。 

この方法のほうがはるかに簡垠ですね。 
しかもこの方法は手間がそれほどかからな 
いにもかかわらず，数列をかなりデタラメ 
にしてくれます。もとの数列く Xn > がかな 
り规則的であっても出力は十分にデタラメ 
となるのです。 



さて，以上いろいろな乱数の発生法を a 
てきました。しかしどの方法も基本的には 
Xn + i = iaX n + c)mod m 
という式です。あまりにもいろいろな種類 
のものを見てきたので少し混乱してしまっ 
たかもしれませんね。実際に使う分には m 
= 2 e とするもので十分でしよう。この方法 
ですと，なによりも計算が楽になるという 
メリットがあります。その代わり下位ビッ 
卜が規則的になりやすいというデメリット 
もあるのですが，これは上位ビットを抽出 
してやればすむことです。 

さらにこれにかき混ぜ法2を併用すれば 
完璧でしよう。実用上は99%までこれで十 
分です。実用をはるかに超えてとにかく真 
の乱数を H 指すんだという方はほかの方法 
を使ってください。 

乩数列というものは無限の種類を持って 


います。もちろん発生法も多種多様です。 
非常に簡単な発生法から，非常に高度な発 
屯法までさまざまです。ですから当然使い 
分けの必然性が生じてくるのです。モンテ 
カルロ法などの乩数を利! n した数値演笕に 
はどんなに複雑になっても高精度な乱数ル 
ー チンが必要になります し， 反対に ゲーム 
などではそれほど精度は必要ないわけです。 
Z 80 の R レジスタを使ったものから，かき 
混ぜ法までいろいろな乩数発生法がありま 
す。ぜひ自分でいろいろと試して〈ださい。 
きっと奥深い乱数の世界が見えてくると思 
います。あなたは「神に背く」ことができ 
るでしよう力、 

最後にもっと乩数を究めたいという人の 
ために参考文献を紹介します。この本は 『T 
HE ART OF COMPUTER PROGRAM 
MING 』 という全 14 巻にも上る人著の 3 册 
目です。この全集は ACM チューリング赏 
(コンピュータ界のノーベル賞みたいなもの） 
受賞者であるコンピュータの大家 クヌース 
氏の手になるもので，主に数値演算に関す 
るプログラミングテクニックについて記さ 
れています。 

コンピュータで数値演算などをやってみ 
たいと思っている人は一度は読んでみるこ 
とをおすすめします。絶対に役に立ちます。 
この乱数に関しても今まで述べてきたこと 
だけでなく，乩数の検定など多くのことが 
述べられています。 

上で述べてきたのは乩数に関してのほん 
のさわりにしかすぎません。ただ乱数列を 
作っただけではなく検定（本当に正しい乱 
数列になっているかどうか）もしなければ 
なりませんし，そもそも乩数列がいったい 
なんなのかというはっきりした定義もして 
いません。 

最初に本当の乩数はコンピュータ上で作 
ることはできないと書きました。すなわち， 
「これが正解！ j という数式などは存在しな 
いわけです。逆にいえばそれだけいくらで 
もやりようはあるということになります。 

たったひとつの乱数を発生させるにも実に 
多種多様な方法が存在するのです。この決 
して正解にたどりつくことのない乱数の世 
界をぜひ自分でも研究してみてください。 

参考文献 

D . E •クヌース，「準数値算法/乱数」，サイエ 

ンス社 





特集真夏の夜の数値演算 


そこに 7 T があるから 



7 T 小学生でも知っている円周率。しかし，この 7 T はあらゆる定数のなかで 
トロングな数字でもあります。それゆえに， 7 T をめぐってさまざまな人々が： 
てきました0ここではその苦難の歴史をかいま見てみましよう 0 


‘でもっともス 
知恵をしぼつ 


Tan Akihiko 

丹明彦 


7 T に群がる人々 

最近，といっても今年の1月末のことだ 
が， 某大学の スーパーコンピュータ によっ 
て，円周率の計算桁数が2億桁を突破した 
という記事が新聞の片隅に載ったのを觉え 
ている人はいるだろう力*。新聞を読まない 
人は問題外としても，あまりいないような 
気がする。はっきりいって，実用に向きそ 
うには思えない，ほとんど趣味でやってい 
るような研究に見えるからだろう。実際， 
通常の科学技術計！?:では，せいぜい30桁も 
あれば十分すぎるといわれている。 

しかし，（一部の）数*学屋さんや（一部の） 
計算機屋さんにとって，円周率，またはそ 
の計算は尽きない興味の的である。なぜな 
ら， 7 T という数は，つっつけばつっつくほど 
いろんなことがわかってくるし，複雑な長 
時問の計算は計算機のパワーを計る目安に 
もなる。そして， I リ周率にとりつかれた人 
人が口を揃えていうのだが，「そこにパイが 
あるから」（と書くとまるで食べ物みたい 
だな）じやなくって，「そこに; T があるか 
ら J 計算するんだ！ということなのだ0 
そう， 7 T こそは高精度計算界の最高峰であ 
り，彼らはそこを丨 I 指す登山家の心境なの 
だ。 

僕の知人にもそういう人がいる。彼も円 
周率の魅力にとりつかれたひとりで，ずい 
ぶん昔，そう， MZ 80K や NEC の名機 PC 
8001 n が最新銳だった頃から，機会のある 


ごとに，つまりおよそ計算機ど名のつくも 
のに触れるたびに，円周率の計算の腕を磨 
いていたのである。そして去年，彼は僕の 
X 68000 に触ったとき，当然のごとく，この 
ライフワークともいうべき作業に取りかか 
ったのだった。しかし，そのとき使えたの 
は， BASIC インタプリタと，福袋の屮のア 
センブラ（とリンカ）だけだった。そして 
彼は，やはり当然のごと〈アセンブラに手 
をつけた . 。 

それから1力 JJ もしないうちに， MC 680 
00の命令語やバス エラー やアドレス エラー 
との戦い方 2》 を党えた彼は5万桁の; r を2 
時間弱で，1フフ桁なら4分半で計算するプ 
ログラムを作り上げたのだった。スーパー 
コンピュータのパワーに比べると，こんな 
のはどうってことない数字だ。2億桁の計 
算にかかった時問はたったの6時問卞なの 
だから。しかし，これは视時点のパソコン 
としてはおそらく最高レベルであろう 3 し 
僕は CPU ( MPU ) のパワーを計るのには， 
下手なベンチマークより，こういう計算を 
させたほうがよっぽどいいのではないかと 
思っている。計®機の計 P : 機としての実力 
を知るためには，こういうストロングなの 4》 
がちようどいい（どこ力*に，8086 5) でやっ 
た人はいないかな）。 

7 T という数は計算機がこの世に出現する 
はるか昔から数ネ者たちを璜にしてきた。 
その性 R •は謎に満ち，いまだによくわかっ 
ていない'彼らが冗にどのようなアプロー 
チを試みたか，駆け足で眺めてみよう。 


1) 「名機」と呼んだのには他意があるわけではな 
い。ただ，個人的に NEC のマシンで好きなのは唯 
一あれというだけのことだ。 

2) 今から考えると，デバッガもなしでよくやっ 
たもんだと思う。僕などは脇から見ていて無責任 
な助言ばっかりしていたが，内心ひどく感心させ 
られたものだ。 

3) ちなみに I / O 誌に昔載った 7T 計算のプログラ 
ムでは，1万桁を計算するのに Z 80 で1時間50分， 
6809でも1時間10分かかっている。 

4) 要するに，うんざりするほど長く，そして単 
調な計算。ただし，これを実現しようと思ったら， 
CPU ( MPU ) の持っている命令をひととおり使い 
尽くすくらいの根性がいるらしい。 

5) 今はあまり使われていないようだが，68000と 
開発時期が近い16ビット CPU だから選んだだけの 
こと。もっとも16ビットで，ということであれば 
80286までは文句はいえまい。どちらも現在の主力 
機種に搭載されているのだから。どちらにしても， 
こういう勝負なら，レジスタ長の大きい68000が有 
利だろう。アセンブラを使う限りでは，68000はど 
う見たって32ビットである。だからといって80386 
を相手に持ってくるのはやっぱり反則だろうと思 
うが。ベンチマークにしろなんにしろ， CPU や M 
PU のパワーを比べるときには，フ x アブレイなど 
はありえないのだろう。 


アルキメデスの方法 


円周率というのは円の直径に対する円周 
の比で値はご存じ3.1415……である。そこ 
で，その定義に戻って R になるベ〈近い多 
角形を作り，その辺の M さの合計を調べる 
という方•が長い問とられてきた。この方 
法をとった人のなかでいちばんの打名どこ 
ろといえば，やはりアルキメデス （Archim 
edes ) である。 


*) 冗は，無理数で，さらに超越数でもある。 

無理数とは無限に続き，しかも循環しない（何桁までいっても繰り返 
す部分がない）小数のことである。たとえば，/2 =1.41421356 …は無 
理数である。超越数とは，「代数的でない数」つまり「有理係数の代数方 
程式の解になりえない数」のこと。そのなんたら方程式というのは， 
a n X n + a n - l X n -'+... a l X + a 0 = 0 
( a „, a „-,, - t a 。 は有理数） 

の形で表される方程式。どういうことかといえば，要するに，超越数は 
加減乗除や平方根を用いるだけでは，値を決められないのである。今回 
紹介するプログラムでは，そういう簡単な演算しか使ってないが，ある 
数列が， nlZ , 誤差を無視できる程度に近づくまで計算を繰り返している 
だけのことで，別に； r = ……という形で計算式ができていて，その値を 


計算してるわけではない。 

ほかにも，有名な超越数の例として自然対数の底 e やオイラー定数の 
がある。少なくとも理系の人にはお馴染みであろう。 e も，近似計算し 
かできないが，ついでに計算式を掲げておこう。ちょっとした練習問題 
にはなるだろう。 
e = 1 (1/ n !) 

= 1/0 ! + 1/1!+1/2!+1/3! +1/4! 十… 

=1 +1 + 1/2+1/6+1/24+V 
= 2.71828182… 

r= i i Hli 1+ T + T + ■** + T -,ogn ) 

= 0.57721566 ••- 
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print "Stormer" 

p=at(l#/8#,24#)+at(1#/57#,8#)+at(l#/239#,4#) 
print : print using ”pi 二 #.#############"; p 
print space$(15 )； time$ 
end 

func float at( x;float, a;float ) 

float t, x2, y, s=1#, b=1#, arctan=0# 
int n=0 

t=x*a: x2=pow(x,2#) 
repeat 
y=t/b 

arctan=arctan+y*s 

t=t*x2 

b=b+2# 

s = -s 

n=n+1 

until y<lira 
print ’’ n= " ； n; 
return(arctan) 
endfunc 


10 /* calculation of pi( 3) 

20 /本 formulas by arctangent, (infinite series) 

30 /* 

40 float p,1im=0.01# 

50 /本 a) Gregory & Leibniz 
60 print space$(15); time$ 

70 print "Gregory & Leibniz" 

80 p=at(1#,4#) 

90 print: print using "pi = ff.##»f##########" ； p 
100 /* b) Machin 
110 print space$(15 )； time$ 

120 print "Machin" 

130 p=at(l#/5#,16#)-at(l#/239#,4#) 

140 print: print using "pi 二#.##*#####*####，.； p 

150 /< c) Gauss 

160 print space$(15 )； time$ 

170 print "Gauss" 

180 p=at(l#/18#,48#)+at(1#/57#,32#)-at(l#/239#,20#) 
190 print : print using "pi =#.#############"； p 
200 /* d) Stormer 
210 print space$(15 )； time$ 


図 1 アルキメデスの方法による円周率の近似 



半径 r の円の外接多角形と内接多角形を 
考える。ちょっと考えればわかる力 ? ，辺の 
長さの総和はそれぞれ， 

(外周)= n .2 rtan (180°/ n ) 

(内周 ）= n T sin (180°/ n ) 

である（図1)。さて， n が大き〈なってい 
くと，この2つの値は2兀ァに，それを狭む 
ようにして近づいていく。つまり， 

n 4!1(180。/71)< 兀< n * tan (180° / n ) 
であり， n->oo (無限大）のとき， 

n • sin ( 180° n ) = 7 r = 72 • tan (180°, w ) 
となるはずだ。ということは，もし無限の 
辺を持つ正多角形の周長が計算できれば， 

7 T の止確な値が手に入ることになる。 

もちろん三角関数などなかった昔のこと， 
正接 （ tan ) や正弦 ( sin ) などの値は三平 
方の定理などを活用する幾何学的手法に賴 
るしかなかったのだ。アルキメデスは正6 
角形から出発して辺の数を倍々と増やし， 
正96角形に達したところで， 

3 +10/71 く 苽 < 3 +1/7 
とした。小数に直してみよう。 


3.1408 ..•く ？ r <3.1428 … 

まだやっと小数点以下第2位までである。 

ではだいたい何角形まで取ればまともな 
値が出るのだろう。リスト1を実行してみ 
てほしい。 n の値を聞かれるので適当な数を 
人れると，外接，内接正 n 角形を使って円 
周率を近似してくれる。 

リストの中を見ると sin () や tan < ) は 
平気で使っているし，確か冗を近似するプ 
ログラムだったはずなのに ， pi () つまり 
システムが持っている冗の値を角度の計算 
に使っている。はっきりいって邪道である 
が，まああくまでテストであるから気にし 
ない 。 n = 100000000 ( 正1億角形! ) くら 
いでだいたい冗になったことと思う。 

ちなみに，ドイツでは冗のことを「ルド 
ルフ （ Ludolph ) の数 j と呼ぶが，これはこ 
の方法を使って冗の値を32桁まで計算した 
オランダの数学者の名前からきている。彼 
はこれだけの精度を得るのに |R 2 62 角形， 
つまり約 10 18 flA | の辺を持つ正多角形を作り， 
計算に一生を费やしたという話だ。 

この方式は初等幾何の知識だけで理解で 
きるし，感覚的にもわかりやすいが，高い 


精度を得るのにはちと無理があるようであ 
る。この状態に革新が起きるには17世紀を 
待たなければならなかったのである。 

逆正接関数の公式による言十算 

この辺は理系の人でないとよくわからな 
いド、ろうから，心して読むように。 

逆正接 （ arctan ) とは，正接 （ tan ) の逆 
関数である，なんていっても高校生以下の 
入にはよ〈わからないだろうから，もう少 
しわかりやすくいおう。 

角度 * r の正接をッとする，すなわち， 
y = tan { x ) 

のとき， 

x = arctan ( y ) 

の関係が成り立つというのだ，要するに。 
あまりわかりやすくならなかったが，.応 
そういうことだ。 

で，これが円周率の計算にどう役立つか 
ということを説明しよう。 

正接というのは，要するに傾きだ。45°の 
角度を侍つ直線の傾きは1。ちょっと高級 
な数学では，角度をラジアンで表す。なお， 


リスト1 アルキメデスの 方法 


10 /* calculation of x>i (1) 

20 /* Archimedes' method 
30 float Po, Pi, n, theta 

40 input "n=",n 

50 theta=pi()/n 

60 Po=n 拿 tan{theta}: Pi=n*sin(theta) 

70 print using '.PI (外 >=#. ############# 
80 goto 40 


PI ( 内い #.#############"; Po, Pi 


リスト 2 逆正接による冗の 計算 


10 /* calculation of pi ( 2 ) 

20 /* formulas by arctangent 
30 /拿 

40 /* a) Gregory & Leibniz 

50 print: print using "pi =#.#############"； 4#*atan( 1#) 

60 /* b) Machin 

70 print ： print using "pi = #.#############" ； 16#*atan(l#/5#)-4#*atan(l#/239# ) 

80 /* c) Gauss 

90 print ： print using "pi =#.#############"； 48#*atan(1#/18#)+32#«atan(1#/57#)-20#*atan(U/239#) 
100 /* d) Stormer 

110 print ： print using "pi =#.♦############"； 24#*atan(l#/8#)+8#*atan(l#/57#)+4#*atan(1#/239#) 


リスト 3 逆正接による多 桁演算 


0 0 000000000000000000 
23456789012345678901 
22222222333333333344 
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(角度 ） x tt /180=( ラジアン）だから，45。 

をラジアンに直せば； r /4 になる。というこ 
とは， 

tan ( n /4)=1 
だから， 

arctan ( 1 ) =龙 /4 
になることは簡単にわかると思う。 

それから，証明をしないで紹介するのは 
非常に心苦しいのだが，逆正接関数は次の 
ように級数**の形で表せることも，もっと 
高等な数学のおかげでわかっている。 
arctan ( x ) 

= x — xV 3+ x 5 /5 — x 7 /7 十… 

つまり，冗の値は次のようにして求めるこ 
とができる。 

\ di \7 t = 4 arctan ( 1 ) 

= 4( l - l /3 + l /5 —1/7 + ...) 

これを見いだしたのはグレゴリ ー （ Gregory ) 

とライプニッツ （ Leibniz ) 6 、 これを見る限 
り，無理数である江も，しょせんは簡単な 
分数の和にすぎない。そういうわけで，削- 
算機の出番となる。それはあとのお楽しみ。 
もっとも，水を差すようで悪いが，あとで 
話すように，この公式は使いものにならな 
いため，もっと使える公式が後世になって 
現れること.になった。 

[0 マチン （ Machin ) の公式 

7 t = 16 arctan (1/5) —4 arctan (1/239) 
=16(1/5-1/3.5 3 +1/5.5 5 —— ) 
-4(1/239 — l /3.239 3 + l /5.239 5 —— ) 
0ガウス ( Gauss ) の公式 

7 r =48 arctan (1/18) + 32 arctan (1/57) 
-20 arctan (1/239) 

= 48(1/18 —1/3- 18 3 + 1/5. 18 5 —— ) 

+ 32 (1/57 —1/3.57 3 +1/5 • 57 5 —— ) 

- 20 (1/239 - 1 /3 • 239 3 +1/5 - 239 5 一… ) 
13] シュテルマー （ St / rmer ) の公式 
疋 = 24 arctan ( l /8) +8 arctan (1/57) 

+ 4 arctan ( l /239) 

= 24(1/8 —1/3.8 3 + 1/5.8 5 —— ) 

+ 8(1/57-1/3.57 3 + 1/5.57 5 —— ) 

+ 4(1/239-1/3.239 3 + 1/5.239 5 —— ) 
このうち E と S については証明を載せて 
おこう。特に， [3] の証明の中にはゴチヤゴ 
チヤしてあふれかえった数字が劇的に消え 
失せるところがある。よくこんな証明がで 
きたもんだと思うのだが，とにかく，これ 
らの公式が正しいのは，リスト2を実行す 
ればわかるだろう。 

さて，この4つの公式が計算をする1-.で 
どのように有利か，または不利かを説明し 
てみよう。 

囡：形はいちばん簡単なのだが，この級 
数の収束はとんでもな〈遅いのである。簡 


図 2-1 Machin の公式の証明 

[ b ] Machin の公式 

7 r = 16 arctany -4 arctan-^j 

tan 子 =1 

4xir = 44 0 <-^ = 45 0 <48 0 = 4X12 
tana = ~^ ■★とおくと， 11° くび<12' « = arctan - 
4 a+/J = f ...(*) とぉく， 

/3 = -^- — 4 a =-r — 4 arctan + 
tan /? = tan (了 — 4 arctan +) 
tan -- tan (4 arctan -^-) 


an -7-* tan (4 c 

-(O 


n T . 


.'. j 3= — arctan 点 
(*) より ^=16 a + 4/3 


= 16 arctany —4 arctan^g 

(終） 

(基本的なこと） 

tan ( arctanx ) = .r , tan ( — x)= -tanjc 
tan ( x ^^) = ^^£ (加法定理） 


- tan.r • tan 夕 


tan 2 ズニ 


2 tan.v 
1- tan 2 ,v 


(上でズ=ガとおく） 


図 2-2 SWrmer の公式の証明 

0] StyJrmer の公式 

；r 二 24 arctany + 8 arctan み +4 arctan 士 
tan 子=1 

6 x 7 0 = 42 °<f = 45°<48° = 6 X 8 

1 ★ 1 
tanar = y とおくと，7。<び<8。， or = arc tan 4- 

6 a +^ = f •••(*) とおく， 


_ 


6a 


n 


6 arctan 


1" 


tan — - tan 6 tan " 


tan <9 二 




n (6 t an - 〖十） 


186416 

"201663 


186416 

201663 

15247 


= arCtan ^ =2 . 249 ."。 

1★★★ 1 
tan /? = g ^ とおくと，バニ arctan $=1.005 …’ 

0 = 邛キ 7 とおく， ★★★ 

y = d~zp <9 の値から見当をつけてい 

tanr — tan 卜 ta ヂ* ★★★ るのだろう。試行錯誤の末に 


1 + tan (9- tan 2/9 
15247 _ 114 
388079 3248 1 

15247 114 ~239 

388079 3248 ^ 


決めた数と考えられる。 


... / = arctanz 


:主目 


(*) より ， ；r = 2む + 4汐 = 24» + 4(2/?+ ァ） 

= 24 arctan —+8 arctan ^- f -4 arctan^g 


(終） 


★ 

tanir = 0.194 ••- 
tan 12° = 0.212•••から 

+=0.2を仮定している。 

★★ 

tan (4 arctan —) 

2 tan (2 arctan 士) 

1 — tan 2 ( 2 arctan —) 

— 」」！ _ 12 〇 _ 1 , i 
TTs 


★★★ 

tan (2 arctan —i 

2 tan ^ arctan —j 


- tan 2 ( arctan +) 




= TI 


★ 

tan 7° = 0.122… 
tan 8 =0.140 …から 

+=0.125を仮定 


★★ 

tan ( 2 arctan - 


4) 


1 - tan 2 (arctarij ノ 
tan (4 arctany ノ 

2tan(2arctaO 


_ 2# y is 


1- tan 2 (2 arctan j ) 


上 .i 

^(1 


.2016 

"3713 


tan (6 arctan +) 

tan (2 arctan +) + tan (4 arctan +) 

1- tan (2 arctan +) • tan (4 arctan j ) 
16 2016 

_ 63 3713 186416 

,16 2016 ~ 201663 
63 * 3713 

★ ★★★ 

tan 2/? 

二 tan (2 arctan *) 

2 tan ( arctan *) 


I - tan 2 ( arctan み) 
2 *57 _ 114 


-(み)' 


特集そこに； r があるから在*? 



























単にいうと，1桁余分に求めようと思えば 
10倍の時問が必要なのである。このやり方 
では，1ノ i 桁求めようとしても，とてもじ 
やないが無观で，もしかするとこの HL •の終 
わりまでかかってしまうかもしれない 7》 。 

逆 ill 接閲数の値を級数展開で求めるには 
arctan () の中身が小さければ小さいほど収 
束**が速い。この値は各項に3乗，5乗，…… 
と掛かっていくので，項の値が必要とさ 
れている褙度より小さくなるのがより速く 
なるからだ。この観点からも，残りの公式 
を見てみよう。 

\ b \ :1/ 5というのは，かなり大きい値 
なので，この級数も収束が遅めだ （0 の級 
数ほどではない）。その代わり，計算式の要 
素 •arctaW ) は2つだけなので，その分少な 
くてすむ。速〈なることが期待できそうだ。 

!3 :要索は3つあるがどの項も arctan () 
の中身が小さく，収束もそこそこ速いだろ 
ラ。 

[51 :これも要素が3つ。しかも arctan ( l /8) 

の項は収束が遅そうに見える。確かにふ 
つうにやれば収束は遅い。しかし，コンビ 
ュータにとって，1/8 2 を掛ける（これは，. 
級数の項が小さくなってい〈ぺース），つま 
り64で割るということにはどういう意味が 
あるだろう。そう， 6ビット分シフトする 
ことと1…じなのである。これはマシン語を 
やる！：よくわかるのだ力 ? ，コンピュータは 
割り？?:よりはビット演算のほうが得意で， 
しかも速い。ここで人•きく時問を稼げる。 

リスト3を走らせよう。それぞれの公忒 
について， 取った項数と， 冗の 近似俽 が 及 


示される。変数 lim は褚度の丨丨安である。あ 
まり小さくすると（精度をよくすると），い 
つまでも計算が終わらなくなるので注意。 
これは公式0の収束があまりに遅いせいで 
ある。少し lim をリスト屮の値より小さく取 
ってみるとわかるが， H の i 计算に手間収っ 
ている。へ夕をすると何時問もかかる。そ 
れにつ きあいた く ない 人は1桁小さくして 
おこう。 

とにかく遅い。でもその割には， [ H , 0， 
0はあっという問に終わってしまう。たと 
え，倍精度で lim の値を最小限に取っても一 
瞬•のうちに終わる。はっきりいって，この 
差は大きい。桁が大きくなればなおさらだ。 
これが先ほど公式0が使いものにならない 
といった理 | tl である。おわかりいただけた 
だろうか。 

さて，ここでギンギンに敁適化をかけ， 
高速化を図った，例の去年作られたマシン 
語のプログラム（リストをお目にかけ 
よう。このプログラムには多くの大技，小 
技， アクロバット 的な技も？ r めた ハイテク 
ニックがつまっている。このリストは公式 
0] (シュテルマーの公式）川だが，少し変 
えれば TE ， 0もできる。 jl •蘇桁数も変えら 
れる。その変更法はいっても而到なだけだ 
からいわない。 ソース リスト屮の ラベルが 
すべてを語ってくれるだろう（か？）。 

とにかく，このプログラムは約2時問か 
かって5万桁の? r の値を,汁??するのだ。参 
芩までに， [0 ， 0 について ，1 万桁計算さ 
せたときの所要時間を表1に爭げておく。 

結局，このプログラムでは回がもっとも 


速くできるという結論が得られた（だから 
採用されているのだが)。といっても，これ 
は arctan ( l /8) をビットシフトで計算した分 
で稼いでいるのであって，それがなければ 
どれも同程度の速さである。この部分は速 
いだけに相当に技巧的で，マシン語を相 A 
知っている人でも解読するのは W 雜かもし 
れない。 

なお，アルゴリズムの都合上，計算桁数 
には限界がある。それを表2に示す。収束 
が遅いと，項をたくさん取らねばならない 
ので，そこに制限が出るのである。 arctan () 
の級数の分 W の係数は，1，3，5，…… 
となっているだろう。これがどんどん人き 
くなっていって，16ビットを超えると■汁??： 
できないのだ。理由を説明しよう。これは 
マシン語レベルの問題だ。68000のマシン,語 
には，割り®もちやんとある。しかし，32 
ビットのデータを16ビットのデータで別る 
のが限界だから，収束が遅い=項がた〈さ 
ん出る=収束する前に係数が16ビットを超 
えるような級数はこのプログラムでは計??: 
できないことになるのだ。たとえば， 8乃' 
桁くらい出そうと思ったら，ガウスの公式 
0を使って6時問 T : ほどかければいいのだ 
力す， シュテルマーの公式では，どんなに 
がんばっても8万桁なんて出せない。さら 
にマチンの公式旧では，5万桁だって出せ 
ない。どんなに長い桁数でも計算できる- 
般的なプログラムは，あればあるに越した 
ことはないが，メモリ容量や計算時問など 
を芩えると，むしろこっちの選択が£しか 
ったと思う。 

まだまだ難しい，话は続く力 ? ，この手の , ift 
は，スピードと効率と正確さをギリギリま 
で追求する I リ周率の計算では避けて通れな 
いからしかたがない。逆正接関数のアルゴ 
リズムでは，，汁算時問はおおよそ計算桁数 

表2 計算桁数の限界 


0 

Machin 

45000 

0 

Gauss 

82000 

团 

St^rmer 

59000 


表1 X 68000 による 7 T 計算の所要時間 

[ b ] Machin tt =16 arctan 士 一4 arctan — 6 分 17 秒 

因 Gauss jt = 48 arctan 32 arctan — 20 arctan ^ 6 分 06 秒 

rdl St^rmer ^ = 24 arctany +8 arctan ^+4 arctan^|g 4 分 38 秒 （6 分 23 秒)* 

※ arctar ^+ の計算に，ビット シフ トを使って最適化した専用ルーチンを使わず， ふ 
つうの arctan を求めるサブルーチンを使った場合。 

計算時間は〗万桁の; r を求めるのに要した時間と，内部表現 （2 進小数）を10進 
小数に変換する時間の和である。どちらも桁数の2乗に比例して時間がかかる。 


**) 数列に ついて， 少し説明しておこう。数列とは，いうまでもなく， 
a I, a 2, a 3, a 4 , a 5 , a 6| …， a nH , a n , … 

のことだ。ちょうど BASIC の配列のようなものだ。これをひとからげにし 
て 

la„| 

と書くこともある。数列の各要素 （a u a 2 , …）を項という。詳しい話 
は学校の教科書に譲る。数列を理解するのに必要な概念はまだある。ま 
ず漸化式（ぜんかしきと読む）とは，前の項を使って次の項を作る規則 
のようなものだ。たとえば，フィボナッチ数列， 

1，1, 2, 3, 5, 8,… 


の漸化式は， 

a 〇=1, a ,=1 
a n = a n - i + a n - 2 ( n ^ 2 ) 

である。反復法アルゴリズムなどは，この漸化式である。 

数列の和を級数という。項を限りなく足しあわせていき，その和があ 
る一定の値に近づいていったとする。このとき，この級数は収束すると 
いう,、級数が収束するときには，項の値が次第に0に近づいていく場合 
が多い。本文中で arctan() の値は， （） の中身が小さいほどよいといった 
のは，こういうことである。 
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DO 

(AO ) f , 1)0 
PUT_DO 
D0,DO 
P L.CONT 


MOVE.L D0,-(SP) 
MOVE.W #7 f -(SP) 
DC.W _PIJTCHAR 

ADDQ.L #2 t SP 
MOVE.L (SP)+,D0 
RTS 

MOVE.W D0,-(SP) 
DS.W 1 

MOVE.W (SP)f,D0 
RTS 


EQU 

EQU 


» . 1 ,13,10,0,0 

13,Id,10, 1 OUTPUT 
/ P / E ) ? f ,0,0 

參 ^ 


10000 

1000 

100 


NUMBf8 
NUM10+8 
PI . PRT 

WokKl+NUMB+8 


MOVEQ.L #9 t D5 
LEA TITLEP.A0 

BSR PRINTLINE 

LEA INT.A0 

BSR PRINTLINE 
MOVE.W #NUM10 * 
CLR.W D6 


D7 


BSR 

MOVEQ.L 

MOVE.W 

MOVEQ.L 

MOVE.B 

BSR 

DBRA 

LEA 

BSR 

BRA 

DBRA 

LEA 

BSR 

DBRA 

LEA 

BSR 

DBRA 

LEA 

BSR 

BRA 

LEA 

BSR 

BRA 


FIG_OUT 
参 9,54 
D5.D3 
♦ 9,D2 
(Am,D0 
PUT.DC 
D7,PUT_CONT 
BLOCK,A0 
PRINT_LINB 
PRINT_OUT 
D2 f PUT_PI_4 
SPACE,A0 
PRINTLINE 
D3 f PUT_PI_3 
LINE_FEED,A0 
PRINT^LINE 
D4,PUT_PI_2 
BLOCK,A0 
PRINTLINE 
PUT PI_1 
BLOCK,A0 
PRINTLINE 
INPUT ORDER 


MOVE.W 
CMPI.B 
BEQ 

MOVEQ.L 

BRA 

MOVEQ.L 

BSR 

DBRA 

LEA 

MOVE.W 

ADDQ.W 

BSR 

SUBQ.W 
ADDA.L 
MOVEQ.L 
MOVE.W 
ADD.W 
DBRA 
CMPI.W 
BCS 

MOVE.W 

MOVE.W 

BSR 

LEA 

BSR 

RTS 


#» 1 ,D0 

#4 t D5 
PRT C 
# 118 v D*1 
TAB_PRT 
#64 y Dl 
PUT_D0 
D1,TAB^PRT 
FIG_TAB,A0 


# 1,01 

FIG CONVERT 

# 1,01 


CALC 


D2,D6 
D3,FIG. 
#NUN10,D6 
FIG_NORMAL 
#NUM10 t D6 
D6.D1 

FIG 一 CONVERT 
FIG_TAB f A0 
PRINT^LINE 


MOVEQ.L 

LEA 

MOVE•B 
CLR.B 
MOVE.W 
SUB.W 
BCS 

ADDQ.B 

BRA 

ADD.W 

TST.B 

BEQ 

MOVE.B 

ADD.B 

MOVE.B 

DBRA 

ADD.B 

MOVE.B 

RTS 


#3,03 

EXP_TBL,A2 

#$20,D4 

D2 

(A2)^,D0 

D0.D1 

X_ASC 

#1,D2 

EX^LOPl 

D0.D1 

D2 

X ASC,2 
#$30 V D4 
D4,D2 
D2 f (A0)-f 
D3,EX_LOP0 

参， 0 ， .6l 

D1 # (A0)*f 


リスト 4 最適化された50000裕プログラム 


CALCULATION 


OF PI 拿 t 拿 ** t 拿拿本拿拿拿拿 


_EXIT 

_GKTCHAR 

_PUTCHAR 

_PRNOUT 

PRINT 

>NUMB 

36 


N_SPACE 

N_BLOCK 


EQU 

EQU 

EQU 

EQU 

EQU 


$FF00 

$FF01 

$FF02 

$FFC5 

SFF09 

4156 

10000 


NUMB/2 

NUMB/4 


1000 ； 400 


拿拿拿拿 t 拿拿拿 t * 拿拿 MAIN PROGRAM 
MAIN 


BSR 

BSR 

BSR 

BSR 

BSR 

BSR 


ATAN_8 

ATAN_57 

ATAN_239 

BCD.CONVERT 

BEEP 

PRINTOUT 


««* 家 *** 拿拿拿拿•拿拿 24 ATAN(1/8) 


LHA 

MOVE.W 
MOVEQ 
MOVKQ 
MOVE.B 
MOVE.W 

BSR 

BSR 

BSR 

BSR 

BRA 


WORK2+2,A6 

#NUMW,D6 

#3,D3 

#X0O1001O1 a DI 
D3,(PI+3) 
D3 ， D5 

A_8_SER 
SUB_PI 
A_8_SER 
ADD 一 PI 
A_8_SERIES 


A_8_SKR 

A_8_SBT 


ROR.W 

ROR.B 

BCC 

CLR.W 

ADDQ.L 

SUBQ.W 

BNE 

ADDQ.L 

RTS 


DIV_8 

(A6)l 

#2 ( A6 


ttttttt 拿拿拿 tit 拿 


MOVEA.L A6,A2 
MOVE.L D3,D0 
MOVE.W D6 f D2 
MOVE.W 06,07 
LSR.W D7 

DIVU D5,D0 

MOVE.W D0,U2> + 
CLR.W D0 
DBRA D2 f DIV_8N 


8 ATAN (1/57) 


MOVKQ #3,D5 
MOVEQ #57,00 
MOVE.L *)80000,1 
MOVE.L #57 拿 57,D: 
BSR ATAN 23 

RTS 


MOVEQ #3,D5 
MOVE.L *239,00 
MOVE.L #$40000, D1 
MOVE.L 参 239 拿 239,D3 
BSR ATAN 23 
RTS 


200 

201 

202 

203 

204 

205 

206 

207 

208 
209 


SERIES SET 


3rd SERIES 


LBA WORK1+4,A4 

LEA WORK2+4.A5 

MOVE.W #NUMW-1 f D6 
MOVE.W #NUML-1 f D7 
MOVEA.L A4 V A1 
MOVEA.L A5,A2 
MOVE.W D6,D2 

DIVU D0.D1 
MOVE.W D1,(A1>+ 
MOVE.W D1,(A2) + 

CLR.W D1 

DBRA D2,SERIES_SET 
BSK ADD^PI 


BSR 

BSR 

BSR 

BSR 

BRA 


SER_23 

SUB^Pl 

SER_23 

ADD_PI 

SEHIBS^23 


MOVKA.L A4,A1 
MOVEA.L A5.A2 
CLR.L D1 
MOVE.L D1,D4 
MOVE.W (A1) V D1 
DIVU D3.D1 

MOVE.W Dl,(Al)4 
BNE DIV 23 


220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 
公 36 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 


ADD_OV 

ADD_BND 


B 又 LOOP 
B_C_WORD 


EX_LOOP0 

EX_LOOPl 


GET_E 

CMP_C 


CLR.W (A5) 
ADDA.L #2,A4 
ADDA.L «2,A5 
MOVEA.L A5.A2 
SUBQ »1,D6 

BNE DIV_23 

ADDQ.L #4,SP 
RTS 


MOVE.W 

DIVU 

MOVE.W 

MOVE.W 

MOVE.W 

DIVU 

MOVE.W 

MOVE.W 

DIVU 

MOVE.W 

DBRA 


SUB.LOOP 

SUB_BORH 
SUBTEND 

拿;！韋 t 塞拿 $ I 拿拿拿 f 11 

BCD CONVERT 


MOVE.W 
LSR.W 
ADDQ.W 
RTS 


LBA 

LEA 

MOVE.W 

SUB.B 

ADDX.L 

DBRA 

BCC 

ADDQ.B 

BCS 

RTS 


LEA 

LEA 

MOVE.L 

SUB.B 

SUBX.L 

DBRA 

BCC 

SUBQ.B 

BCS 

RTS 


(A2 い 

D1V_23_C0NT 


WORK2+NUMB+4,A2 
P1^NUMB44,A0 
D7 # D4 
参 0,D4 

-(A2) ， - (A0) 

D4,ADD_LOOP 
ADD^END 
#1,-(A0) 

ADD_OV 


WORK2 + NIJMB+4 , A2 
PI+NUMB+4,A0 
D7,D4 
#0,D4 

-<A2),-(A0) 

D4,SUB_LOOP 
SUB_END 
#1,-(A0) 
SUB_BORR 


266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 


CONVERT TO DECIMAL CODE 拿拿 ttt 拿 tt 拿拿 


MOVE.W 

LEA 

LEA 

MOVE.B 
ADD!.B 
CLR.W 
MOVE.W 
LEA % 
MOVE.W 

MOVEQ.L 
MOVEA.L 
MOVE.W 
BSR 
DBRA 
SUBQ.L 
SUBQ.W 
DBRA 

RTS 


♦NUM10/20.D7 
PI+2,A2 
P し PRT,A3 
1(A2),(A3) 
#$30 v (A3)-f 
(A2) 

#10000 f Dl 

PI+NUMB+4,A6 

*NUMW,D6 

#4,04 

A6, A5 

D6,D5 

MULT_CONV 

D4, B 又 WORD 

#8,A6 


-(A5),D0 
D1,D0 
D2.D0 
D0 V (A5) 


D0.D2 

D5,MULT_CONT 



拿拿拿拿拿 tt 拿家家寒拿拿拿 

PRINT.OUT 


PRINT SUBROUTINE 拿拿拿拿拿，寒拿拿拿！:拿拿拿 


PI_PRT,A1 
(A))+,(INT) 


PEA 
DC.W 
ADDQ 
DC.W 
CMPI 
BHQ 
CMPI 
BNE 
RTS 
CMPI 
BEQ 
CMPI 
BNE 
MOVE. 
MOVEQ.L 
LEA 
BHA 
CMPI 
BKQ 
CMPI 
BNE 
MOVE 


ORDER 
.PRINT 
#4 r SP 
.GETCHAR 
f D 0 
GET_E 
♦•e ，， D0 
CMP_C 

♦•C',D0 
0ET_C 
者， c 7 ,D0 
CMP^P 

I^PUTCHAR,(PRN_DEST) 
♦ 4,05 


* 9 P 9 

PRINTER 

••p 1 f D0 

INPUT_ORDER 

参 _PRN5UT,<PRN_DEST) 


320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 


PI 

376: 

377 ： 
CRT, 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 


PUT 一 PI 一 2 
PUT 一 ! >I_3 
PUT_P し 4 


EX.LOP0 
EX_ し OP1 


拿拿拿 t 拿 t 拿拿拿 $ 拿， t 拿 

PRINTLINE 

P^L.CONT 


TITLEC 
= • ，0 
TITLKP 

=，，0 
INT 
ORDER 
PRINTER ( 
FIG_TAB 
SPACE 
LINE_FEED 
BLOCK 


P し PRT 
WORK1 
WORK 2 


w • 

• E B 
R V R • E's 

losrnt 
c M B o n R 
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(1)« 0 = 1 , 6 o =-=, /o = J , Xo =^ 

十分な精度になるまで 

[ an¥i — ~ 2 ■" , bn + i = ^a n • bn | 

| / « + i = / // 一 Xn( (In — rtn +1 ) 2 ， .Vn + | — 2.Xn J 


を繰り返す。 

i-> _ ((In bn) 2 
At 


f P„ と; r が一致する桁数 
n=0 〇析 
1 2 

2 4 

3 10 


- y /~2 ffo = 6-4v 2 



1 — ノ 1 -yn 2 


+J 

1 十ン 1- yn 2 


a« + i 

l = ( 1 + 4 .i ) 2 • Ctn 一 2 n 1 • l/n 

P« = 

• 1 
a n 

n=0 0 


0 桁 


(3 ) ガ〇 = \/2—1, 〇-〇 = 6-4/ 2 

卜=濃 | 

I の : M = (1 + ガ《 + I ) 4 • — 2 2 ” * 3 • i/w M ( 1 + //« • 1 + M 2 ) I 


Pn~~ 


〇ネ行 

8 

41 

171 

694 


to 

/t calculation of pi (4) 

20 

/t repetition algorithi 

30 

/* 


40 

float 

lim=lE-013# 

50 



60 

print 

/Sprint 

70 

Pi 一 2( 


80 

print 

/Sprint 

90 

Pi 一 3< 



100 end 

110 /* part 1 

120 func pi_l() 

130 float An, Anl,Bn, Bnl,Tn, Tnl,Xn, Xnl,P, differ 
140 int n = 0 

150 An=l ： Bn=l*/sqr(2#) : Tn=l/4 #： Xn=l #： P=pow(An+Bn,2#> ハ 4#*Tn> 

160 repeat 

170 /*print using .. A# = #. ###««*####### B# = # .#########"##..; n, An, n, Bn ； 

180 /*print using .. T# = #. ############# X# 二 ##"; n, Tn, n, Xn 

190 print using "p#=#.#############"; n , P: print 

200 An 1=(An+Bn)/2# : Bnl=sqr(An*Bn) 

210 Tnl=Tn-Xn*pow(An-Anl ,2#): Xnl=2#*Xn 

220 P=pow(Anl,2#)/Tnl 

230 differ=An-Bn ： An=Anl : Bn=Bnl : Tn=Tn1 : Xn=Xnl: n=n+1 

240 until differ<lim 
250 return() 

260 endfunc 
270 /* part 2 
280 func pi_2() 

290 float Yn, Ynl,An, Anl,P, differ 
300 int n=0 

310 Yn=l#/aqr(2 #)： An=l#/2 #： P=l#/An 

320 repeat 

330 /*print using " Y* = #.**#«#######*# A# = #.##*#«###**#**" ; n, Yn, n, An 

340 print using ”p# = # •#############•'; n, P: print 

350 Ynl=(l-sqr(1-pow(Yn,2#)))/(l+aqr(l-pow(Yn,2#))) 

360 Anl=pow( 1-tYn 1,2#) 拿 An-pow{ 2# , n+1 # ) 拿 Ynl 

370 differ=abs(pi()-P) 

380 P=l#/Anl 

390 Yn=Ynl : An=Anl : n=n+l 

400 until differ<lim 
410 return() 

420 endfunc 
430 part 3 
440 func pi_3() 

450 float Yn, Ynl,An, Anl , P, differ 
460 int n=0 

470 Yn=aqr(2#)-1 ： An=6#-4#*sqr(2#) : P=1#/An 

480 repeat 

490 /Sprint using .. Y# = # . ############# a# = # .#############" ； n r Yn, n, An 

500 print using "p#=#.#############"; n, P: print 

510 Ynl=(l-pow(l-pow(Yn,4#),l#/4#))/(l+pow(l-pow(Yn,4#),l#/4#)) 

520 Anl=pow(1+Yn 1,4#) *An-pow(2#,2#*n+3#)»Ynl*(l+Yn1+pow(Ynl,2#)) 

530 differ=abs(pi()-P) 

540 P=l#/Anl 

550 Yn=Ynl : An=An1 : n=n+1 

560 until differ<1im 
570 return() 

580 endfunc 
590 /* 


の 2 乘に比例する。たとえば計算桁数を2 
倍にすれば時間は4倍かかるのである。な 
ぜか。計算桁数すなわち精度を2倍にしよ 
うと思えば各 arctan () の級数は項数を2 
倍取らねばならない、このアルゴリズムで 
は1項取るごとに一定の ペースで （たとえ 
ば2桁ずつという風に)精度が上がるからだ。 
さらに，計算桁数を2倍にすれば足し算な 
どの計算にも2倍の時間がかかる。卜ータ 
ルでは4倍時間がかかることになる。 

ここでひとつの限界が見えてきた。どん 
なに コンピュータ の性能が L がっても，桁 
数をちょっと多くすれば， i 汁算時間はうな 
ぎのぼり。事実，大型機の? r 計算競争でも， 
80年代初めに200万桁の 7 T を100時間以上も 
計算したあたりで袋小路に入ってしまった。 

6) 正統的なドイツ語の読み方では「ライプニッ 
ツ」でい いの だが，最近のドイツではどうも「ラ 
イブニッツ」という読み方が一般的であるらしい。 
ということを真面目に論じた文章をこの前読んだ。 

7) だいたい1〇 10 _ (もはや数えようもないが）項 
の和を取らねばならない。こういうのを天文学的 
数字というのだろう。 

表3反復法アルゴリズムによる; r の算出 


反復法アルゴリズム 

まずはなにもいわずにリスト5を実行し 
てみよう。よくわからないが，いつの間に 
か； r ができている。 

実はこれは，この5年ほどの問，円周率 
の計算の記録を塗り変えている，まったく 
訢しい計算方式なのである。はっきりいっ 
て，僕らのような凡人には，この靳しい方 
忒の理論はまったくといっていいほどわか 
らない。これを理解するためには，いや， 
この理論はまったくわからないものなんだ 
ということを悟るためには，ひとりの天才 8 > 
の話をする必要があるだろう。 

彼の名はラマスジャン （ Ramanujan ) とい 
う。なんとな〈耳慣れない名だが，彼はイ 
ンド人の数学者である。多くの天才がそう 
であるように，小さい頃からとび抜けた能 
力を発揮しだし，独力で数人の人問が一生 
かかってもなしえないような什事をし，そ 
して不幸にも若くして亡くなったのであっ 
た0そう，ラマスジヤンは32歳の若さでこ 

U スト 5 


の世を去った。ふつうの人間は，32歳まで 
にどれほどの仕事ができるだろうか。それ 
を苓えると，波の偉大さがわかろうという 
ものだ。さらに，これもかなり驚かされる 
ことだが，彼は正規の教育をほとんど受け 
ていないのだ。 

彼が短い牛.涯を捧げて研究した内容から 
は多くの数学的発見が生まれたが，そのな 
かのひとつとして，敁近になって計算機の 
ために適した冗の反復計算法アルゴリズム 
が導き出された。その理屈はとても僕ごと 
きに理解できるようなやさしいものではな 
い 9 > ので，詳細を述べることはできない力 ? ， 
とにかく表3に挙げたようなごく簡準な•計 
算の繰り返しで冗を得ることができるの 
ある。ほかにもいっぱい公式はあるが，手 
頃なのを3つ選んでみた。 

繰り返すごとに精度が上がっていくのだ 
が，その上がり方がまた凄い。先ほどの arc 
tan () の級数がどんなに速く収束しても，こ 
れにはてんで歯が立たない。浅念ながら， 
そのうまみはリスト5では味わえない。1 
万桁,10万桁という，ふつうでは考えられ 

反復法による 7 T の計算 


3 8 1 9 … 

2 3 4 … 
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(NUMW/2+1) 
NUMW 本 2 
NUMWC2 
8 


WORD*, WORD*, int )； 
WORD 拿， WORD*, int ) ； 
WORD 拿 , WORD*, int ) : 

WORD*, int, int )； 
WORD 拿 , WORD*, int ) ； 
WORD*, int )； 

)； 

.int ); 

WORD*, int ) : 

WORD*, int )； 
int )； 


mulwk[MULDEPTH*2]• dummyl 【 DUM】, divwk 【 DIVLENGTH】, 
sqrwk0[SQRLENGTH], dummy3[DUM], sqrwk1[SQRLENGTH], 
sqrwk2[SQRLENGTH], duramy5[DUM], sqrwk3[SQRLENGTH], 
aqrwk4[SQRLENGTH], dummy7[DUM ]； 


*/ 

*/ 


short 

/* 

4桁=1ワード 

*/ 

32 

/* 

桁数（バイト単位） 

*/ 

NUMB /2 

/* 

桁数（ワード単位> 

*/ 

10000 

/* 

基数 

*/ 


/* 冗の計算（反*法〉 

/* 


#define 

WORD 

♦define 

NUMB 

#define 

NUMW 

#define 

CARDINAL 

#define 

MULDEPTH 

#define 

DIVLENGTH 

#define 

SQRLENGTH 

♦define 

DUM 


void 

add( WORD *， 

void 

sub( WORD*, 

void 

mul(WORD*, 

void 

mull(WORD*, 

void 

div( WORD*, 

void 

sqrt( WORD 拿， 

int 

sqrtl( WORD 

void 

wkclr( WORD* 

void 

copy( WORD*, 

int 

cmp( WORD 本， 

void 

prt( WORD*, 

WORD 

dummy0[DUM], 
dumn»y2( DUM], 
dummy4[DUM], 
dummy6[DUM], 


WORD d0[DUM], Ak0IMUMW 拿 2 ] ， dl[DUM], Akl[NUMW 拿 2] 
d2[DUM], Yk0[MUMW 拿 2], d3[DUM], Ykl[NUMW 拿 2 】 
d4(DUM], 拿 2 】 ,d5[DUM], Wkl[NUMW 拿 2 】 

d6[DUM], Wk2[NUMW 拿 2], d7[DUM], Wk3[NUMW»2] 
d8[DUM], One[NUMW*2], d9[DUM], Six[NUMW*2] 
da[DUM], Rt2[NUMW*2], db[DUM ] ， PI[NUMW*2 】， 
dc[DUM) : 

void main() 
l 

WORD i, m=8; 

wkclr( One, NUMW*2 )； 

One[0]=l; 

wkclr( Six, NUMW*2 )； . 

Six[0]=6; 

wkolr{ Wk0, NUMW*2 ) : 

Wk0[0]=2 ； 

sqrt( Rt2, WkO, NUMW+2 ); 

wkclr( Ak0, NUMW*2 ) : 

wkclr( Yk0, NUMW 拿 2 ); 

wkolr( Wk0, NUMW*2 )； 

wkclr( Wkl,NUMW*2 ) : 

wkclr( Wk2, NUMW»2 ) : 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
63 


いほうであろう。その高速の掛け算には大 
量の浮動小数点演算が必要なので （61 ペー 
ジを参照)，コプロセッサもなしに無謀な戦 
いを挑んで，かえって遅くなってしまった， 
というのではいただけない。実際，1〇万桁 
くらいだったら速いアルゴリズムを使って 
得する分よりも，浮動小数点演算をして損 
する分のほうが大きく響いてくるであろう。 
真面目に，地道に，小学生の真似をしたほ 
うが結局は速いということもありうる。急 
がば回れ，まるでウサギとカメのお話のよ 
うだ。教訓めいてるなあ。 

多桁演算への道程 

このままではあんまりなので，せめて力 
メさんになって地道に計算するプログラム 
を作ってみた。まず最初にお断りしておく 
が，このプログラムは実用的かどうかとい 
う点ではまったく使いものにならない。多 
桁演算サブルーチンというよりは，筆算シ 
ミュレ ーシヨンと いったほうがい いく らい 


のプログラムの集まりにすぎない 0 まあ多 
倍精度の数を扱うための1ステップ，試み 
程度のものだと思っていただきたい。 

まず，ここで扱っている数は， 

1 ) 10進数 

2 ) 正の数 

3) 固定小数点 

という，かなり手抜きなものだ。このフォ 
ー マットのいけないのは， 

1 ) コンピュータは10進数が苦手。 16 進数 
力、，せめて2進数にしないと遅くてしよ 
うがない 

2 ) 正の数だけでなにができるの？小学 
生じゃないんだから 

3) 扱える数の範囲が事実上限定されてし 
まう。あまり大きな数は扱えない 

といったところだろう0どこかいいところ 
があるかといえば， 

1 ) わかりやすい 

この一点に尽きる。わかりやすいというの 
は，どんなデメリットにも勝るメリットな 
のだ。もっともそれは，プログラマにとつ 


リスト6多術 7 T 計算（反復法) 


ないような途方もないレベルになってこそ， 
この方法はパワーを発揮するのである。必 
要となる精度を得るまでループの中を繰り 
返し回るのだが，1回ループを回るごとに 
7 T の真の値と一致する桁数が2倍，または 
4倍と，まさに指数関数的な勢いで伸びて 
いくのである。これが，逆正接関数の無限 
級数による方式だと，1項を計算して加算 
しても，精度はせいぜい2〜4桁ずっしか 
上がっていかない。今年2億桁の記録を樹 
立したのは，表3 (3 ) のアルゴリズムな 
のだが，そのループ回数はたったの14回だ 
という。 

ということは，2億桁の数を いくっか 格 
納するだけのメモリと，2億桁の数の足し 
算，引き算，掛け算，割り算，それに平方 
根の算出を高速で行えるプログラムさえあ 
れば，あとはリスト5に載せたような命令 
を並べるだけで，好きなだけの値が求め 
られる0そう，プログラムさえあれば〇か 
の計算に使われたプログラムはいうまでも 
ないが，2億桁などという現実とは遠く離 
れた数を計算するものだから（打ち出すと 
プリンタ用紙40箱必要)，その計算量も手法 
も想像を絶するというほどではないにして 
も，並みのものではない。僕らが小学校で 
習ったような S ' け算，割り算のやり方はわ 
かりやすレ半面，計算機のアルゴリズムと 
して使うには効率が悪すぎるのである。 

そこで「現時点ではもっとも効率のいい 
やり方」というやっを調べてはみたのだが， 
スピードを極限まで追求するやり方だけに 
パソコン にはちと荷が重いようだ。結局そ 
のやり方を実行することを僕は断念したの 
だ。なにしろ億（少なくとも万）の桁に達 
する計算である。はっきりいって，非常に 
難しいが，そのわりに，円周率を計算する 
以外にはほとんど使い道がない。それで， 
なんだかばかばかしくなってきた，という 
のもある。 X 68000 のメモリがちよっとくら 
い広いといっても，10万桁計算できればい 

8) 僕は「天才」などという表現は滅多に使うも 
のではないと思っているが，確かにこの世には， 
天才の名に恥じない，凡人には到底理解できない 
ような人間がたまに現れるのだ。 

9) かなり難しい理論だというのに，ラマヌジヤ 
ンはそれをほとんど直感的に見抜いた。しかし見 
抜いた時点で十分に納得して考えるのをやめてし 
まい，それ以上の形式的な証明を一切していない。 
彼にとってその必要はなかったのだ。彼はまた， 
研究成果をノートに書き記したのだが，その中身 
にしても，ごく簡単な注釈が添えてあればまだい 
いほうで，ほとんどは結果の公式だけ，しかも自 
己.流の表記をしていた。それらはのちの数学者た 
ちをひどく悩ませ，ノー トの解読と証明にはかな 
り手間取ったということだ。 


/ / / / 

拿本拿本 

ズズ間 
VVW 
ササの 
ののめ 
ククた 
さ二の 
深 , 7ヮ a 
の用用保 
KII 根夕 
けり方一 
掛割平デ 

拿本拿拿 

//// 
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てだけのことだが。使う側はたぶんプログ 
ラマのワガママなんか聞いちゃくれないだ 
ろう。そう，使い勝手が悪いということは， 
どんなメリツトにも勝るデメリツトなのだ 
から。 

本題に戻るが，ここで扱う数は正確にい 
うと10進数ではない。むしろ1万進数だ。 

10進数を4桁ずつ区切って，それを1桁の 
ようなものと見ている。この4桁を，以後 
「ワード」という単位で呼ぶことにしよう。 

固定小数点と書いたが，整数部は1ワー 
ド。あとはみんな小数部。あまり大きな数 
は扱えない。うすうす気づいた人もいるだ 
ろうが，冗の計算に必要な範囲（これは BA 
SIC プログラムですでに確かめてある）を力 
バーし，かつそれ以上は扱えないようにな 
っている。ちょっと面倒なプログラムを作 
るときは，必要最小限しか作らないほう力 ？ 
いい。「どんな数にも通用するルーチンを作 
るんだ」などと意気込んだら，必ずハマる。 
事実，この手抜きプログラムでさえも僕は 
かなり悩まされた。 

このプログラムでは，四則演算（加算， 
減算，乗算，除算）と平方根の計算を行う 
サブルーチンを使って，を反復法アルゴ 
リズムで計算している0 3番目に紹介した 
やり方がいちばん効率がよさそうなので， 
それを使っている。 

使用言語は C D アセンブラは使いたくな 
いし，しかし速さもほしい，できれば高級 
言語が，となれば答えはひとつだが，理由 
はほかにもある。このプログラムでは，し 
ばしばワークエリアからわざとはみ出して 
計算することがあり，そのときに，配列の 
添え字のチェツクがあまい，というかチェ 
ツクをしない C だと非常に助かる。ここで 
は C の欠点を逆手に取っているわけで，非 
常に愉快である。 

気になるスピードの点だが，この節の初 
めに書いたとおり，結論からいって使いも 
のにならない。おそらく1万桁程度だった 
ら，マシン語で書いた arctan () を使うプロ 
グラムのほうが数百倍も速い。なかでも特 
に遅いのが平方根だ。かなり複雑な処理を 
しているので，バカみたいに遅い。やはり 
去年，反復法で？ r を出そうとした（こちら 
の試みは，現在中断状態）ときに作った， 
マシン語の平方根のプログラムがあるのだ 
が，そいつの，ざっと100倍の時間がかか 
っている0いくらコンパイラとはいっても， 
やはりまた^だ' MPU の力を限界まではリ I っ 
張り出せないようだ。もっとも，限界まで 
リ I っ張り出したとしても，1万桁程度では， 
最適化した ar C t an ( 厂專用のプログラムのス 

58 Oh! X 1988.8. 
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wkclr( Wk3, NUMW*2 )； 
mu 川 Wkl,Rt2, 4, NUMW+2 )； 
sub( Ak0, Six, Wkl,NUMW+2 )； 
sub( Yk0, Rt2, One, NUMW+2 )； 

i=0 ； 

for (；；) { 


/* printf( " aX.ld=", i ) : prt( Ak0, NUMW 拿 / 

/* printf < M yX.ld= ,f , i ) ; prt( Yk0, NUMW ) ;*/ 

div( PI, One, Ak0, NUMW+2 )； 
printf ( "Pis'* ) ； prt( PI, NUMW-1) ； 


mul( Wk0, Yk0, Yk6, NUMW+2 )； 
mul( Wkl,Wk0, Wk0, NUMW+2 )； 
aub( Wk0, One, Wkl,NUMW ); 
sqrt( Wkl, Wk0, NUMW+2 )； 
sqrt( WK0, Wkl, NUMW+2 )； 

sub( Wk2, One, Wk0, NUMW )； 
add( Wkl, One, Wk0, NUMW ); 

div( Ykl,Wk2, Wkl, NUMW ); 


add( Wk0, One, Ykl, NUMW )； 
mul( Wkl,Wk0, Wk0, NUMW+2 ) : 
mul( Wk2, Wkl, Wkl, NUMW+2 )； 
muK Wk3, Ak0, Wk2, NUMW+2 ) : 

mul( Wkl, Wk0, Ykl, NUMW+2 ) : 
add( Wk2, Wkl, One, NUMW ); 
mul( Wkl,Wk2, Ykl, NUMW+2 ) : 
mull( Wk2, Wkl,m, NUMW+2 >; 
in *= 4; 


aub( Akl, Wk3, Wk2, NUMW ); 

copy( Ak0, Akl, NUMW+2); 
copy( Yk0, Ykl, NUMW+2); 

i ++； 


/* 

演算サブルーチン 

*/ 



/* 

固定小数点 • 正数専用 

*/ 



void 

add( n , nl ， n2 , 1) 


/* 足し算 

拿 / 

WORD 

*n, *nl,*n2 ； 


/* n=nl+n2 

*/ 

int 

1 ； 





int i, m, carry=0 ； 

for ( i=l-l ； i>=0 ； i-- ) { 

m=nl[i]+n2[i]+carry; 

if ( m>=CARDINAL ) ( /* 桁上げ */ 

carry=l; 
m -= CARDINAL ； 

} else carry=0 ； 
n[i]=m; 

) /* オーバーフローは無視 */ 

return ； 


void sub( n, nl,n2•1) 
WORD 拿 n , 拿 nl, *n2; 

int 1; 

{ 

int i, m, carry=0 ； 


/* 引き算 */ 

/* n=nl-n2 《但し nl>n2) */ 


for ( i=l-l : i>=0 ； i-- ) { 

m=nl[i]-n2[i]-carry ； 
if ( m<0 ) { 

carry=l; 
m += CARDINAL ； 
)else carry=0; 
n[i]= ： m; 


/* 桁下げ 


*/ 


return ； 


void mul(n, nl , n2 ， 1) 

WORD 拿 n, *nl, 拿 n2; 

int 1; 

{ 

int i. m ； 

wkclr( n,1) : 

for ( i = l-l; i> = 0 ； i— ) { 

mull(mulwk+1,nl, n2[i],1+2-i )； 
add( n+i-1, n+i-1,mulwk,1+3-i ); 


return ； 


/* 掛け算 */ 

/拿 n=nl*n2 */ 


/* 下半分の桁は針算しない */ 


/* オーバーフローは無視 */ 


void mul 1 (n, nl,k,1) 

WORD *n, 拿 nl; 

int k,1 ； 

{ 

int i, m, carry=0 ； 


/*1 桁の败との掛け算 */ 

/* n=nl*k */ 



ピードにはとてもじやないが追いつけない。 
100 万桁，1000万桁といったバカでかい数に 
ならないと，つまりループをかけた効果が 
本当に表れるときまでは，おそらくもとは 
取れまい。この最低条件をクリアするのは， 
パソコンには荷が重いのだろう。 

プログラムの解説はあまりする気がしな 
い。足し算，引き算，掛け算はまあ当たり 
前の手順をふんでいる力 ? ，割り算や平方根 
は本当に面倒なので，今思い出すだけでも 
ぞっとする。そうそう，計算桁数は，プリ 
プロセッサの NUMB で指定する。10進で (N 
UMBx 2 > 桁の計算をすることになる。 

まあとにかく走らせてみよう。 PI = と書 
かれた後ろの数字が，しだいに冗に近づい 
てい〈のがわかるだろうか。といっても， 
ふつうの人は， 7 T の値をせいぜい5〜6桁 
しか知らないだろうから，まるで無意味な 
数字に見えるかもしれない。江の値が変わ 
らなくなったときに，おおむねいい精度で 
出ていると判断してほしい。というのは， 
掛け算や割り算をする桁数は限られている 
からだ0たとえば； r を100桁求めようと思っ 
たら，途中の計算で使う値の精度は，それ 
より少し深く，たとえば104桁とか，108桁 
とか取らなくては，最後の桁あたりで誤差 
が出てしまう。 

さっきカメさんなどといったが，実は夕 
コさんだったようだ。もうちょっとましな 
プログラムを組みたかったのだが。まあそ 
れでも基本的なところは教えたつもりだか 
ら，我と思わん方は10万桁でも100万桁でも 
やってほしい。 

最後に 

結局，円周率なんて，茶筒でも持ってき 
て，巻尺で測ればいいんだ，と逃げてこの 
話を終わることにしよう。完全な茶筒と正 
確な巻尺があれば，たった1回の割り算で 
冗を求めることができるのだ。円周率はハ 
マると本当に恐ろしい。僕は深入りしたく 
ない。それにしても，今冋はやたら小学生 
の昔を思い出したような気分だ。今だった 
らご〈当たり前に，なかば無意識にできる 
計算も，あの頃はウンウンうなりながらや 
っていたのだ。そしてそれは，コンピュー 
夕にやらせても同じだった。 

參考文献 

金田康正，「円周率の計算一世界記録を更新中」， 
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i=l-l ； i> = -l ； i— ) { 
m=nl[i 】》 k+carry; 
if ( m>=CARDINAL ) { 

carry=m/CARDINAL ； 
m X- CARDINAL ； 

} else carry=0 ； 
n[il=m ； 


/* 才 - 


•フローは無携 


void 

WORD 

int 


div( n, nli n2, 
*n, *nl, 拿 n2; 


int 

double 


i, il,11, 

ml , m2; 


)； 


copy( divwk, nl, 
nl=divwk ； 

11=1+1； 
for (；；) { 

if ( nl[0]==0 ) 
n[0]=0; 
n ++； 
nl++; 

11 — ; 

} el8e break; 


/* 割り算 */ 

/* n=n 】 /n2 */ 


/* 頭に 0 が並ぶ場合は */ 

/»そこを飛ばす */ 


for ( ；； ) { 
if 


n2[0]==0 ) { 
n-_; 
n2++; 

} else break; 

) 

ra2=(double)n2[0]*CARDINAL+(double)n2[l]; 

ml=’(double >nl[0 ド CARDINAL+(double >nl[1]; 
for < i=0; i<ll ； i++ )( 
m=ml/m2 - 1 ； 
if ( m>0 ) { 

mull(raulwk + 1,n2, m,11) : 
sub( nl+i-1,nl+i-1,mulwk, 


/* 頭 2 ワードで商を近似する */ 


/« 商が 0 でなければ引く 

11-i+l )； 


if ( m>=0 ) i /* もう 1 回引けるか？ */ 

if ( cmp( nl+i-1, n2-l,11-i+l) >=0 )( 

sub( nl+i-1,nl+i-1,n2-l,11-i+l); 
ro+ + ; 

) 

n[i]=m ； 

} /* 2 回目からは頭 3 ワード */ 

ml =< < double)nl(i] 本 CARDINAL.< double)nl { i + 1 ])*CARDINAL+( double)nl[i + 2]; 


return ； 


239 

void 

sqrt( n 9 nl,1) 


/* 

平方根（開平法〉 

>/ 

240 

WORD 

*n, 拿 nl; 





241 

int 

1 ； 





242 

{ 






243 


int m , i y falsemin f trueroax; 





244 







245 


wkclr( 8qrwk0 t 1*2 ); 





246 


wkclr( aqrwk2 f 1); 





247 


wkclr( sqrwk4,1 )； 





248 


m=sqrt1(nl[0] }; 


/* 

整数部をとる 

*/ 

249 


sqrwk0[0] = nl[0]-m*m; 





250 


n[0]=m ； 





251 


sqrwk2[0]=m<2 ； 





252 

253 


for < i:l; i<l;i++ > { 

aqrwk0[i*2-l]=nl[i*2-l ]； 


/* 

2 桁ずつ持ってきて 

*/ 

254 


sqrwk0[i*2]=nl[i 拿 2 】 ； 


/* 

1 桁ずつ出す 

拿 / 

255 


copy( aqrwkl,sqrwkO, i*2+l) : 





256 


if ( i==l m==0 ) fal8emin=9999; 

else { 



257 


div( sqrwk3, sqrwkl+i-l,sqrwk2-l, 

i + 2 )； 


258 


falsemin=8qrwk3[0]+l; 


/* 

近似値（上限） 

*/ 

259 


} 





260 


8qrwk4[i-1]=1; 





261 


add( 8qrwk2, sqrwk2 f sqrwk4, i+2 ) : 





262 


div( 8qrwk3, sqrwkl+i-1 t sqrwk2-l, 

i+2 

)； 



263 


truemax=8qrwk3[0 】； 


/* 

近似 儀 （下限） 

♦/ 

264 


8ub( sqrwk2, sqrwk2 9 sqrwk4, i+2 ); 





265 


sqrwk4 【 i-l 】 =0; 





266 


while ( falsemin>(truemax^l)){ 


/* 

上限と下限の間を 

*/ 

267 


m= ( falsemin-ftruemax) / 2 ； 


/* 

鑤り返しとる 

拿 / 

268 


8qrwk2[i 】 =m; 




269 


mul1( 8qrwk3, sqrwk2-l,m, 

i + 2 

) ； 



270 


if ( cmp( aqrwk0 + i-l,aqrwk3 9 

i+2 

)<0 ) 


271 


fal8eroin=in ； 





272 


else truemax^m; 





273 


) 





274 


m^truemax : 





275 


sqrwk2[i]=m; 





276 


mull(sqrwk3 1 sqrwk2-l,m f i + 2 )； 
sub( sqrwkO+i-2, sqrwk0+i-2, sqrwk3 





277 


-1 ， 

i + 3 

)； 


278 


n[i 】二 ro; 





279 


sqrwk4[i]=m; 





280 


add( 8qrwk2, sqrwk2 y sqrwk4, i+1); 





281 


8qrwk4[i]=0 ； 






int 

WORD 


aqrtl( 
n ； 


/* 整数の平方根 
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乱数シミュレーションと TT 

本文では紹介しなかったが，ほかにも； r を出 
すやり方はたくさんある。それだけ tt にとりつ 
かれた人が多いということであろう。ここでは, 
そのなかでもいちばん有名なモンテカルロ法 （M 
onte Carlo method) を紹介しよう。 

モンテカルロ法は，ご存じフォン•ノイマン 
(J.von Neumann) らが提唱した方法で， 

「決定論的な数学的問題の解決に乱数を用 
いること」 

と定義づけられている。 

これはコンピュータなしにはまず考えられな 
い方法である。：の計算を例に取ってみよう。 

図3のような4分の1円を考える。四角い範 
囲の中に，乱数を使って，点を山ほど打つ。す 
ると，円の中に入った点の数は，理論的には4 
分の1円の面積，つまり贫/4になる。少なくと 
もそれに近づく。 

あまり好きなやり方ではないし，バカバカし 
いほど簡単だったのでプログラムはしなかった 
が，やりたい人はやってみるといい。はっきり 
いって，これは本文で紹介したどんな方法より 
も効率が悪い。正確な乱数の扱いにくさについ 
ては華門氏の原稿を見てほしい。 


図3モンテカルロ法 


y 



y= rnd{) 

x 2 + t / 2 ^ なら円の中 


(円内の点の数） 

(打った点の数） 


は f に近づく 


292: 

293: 

294: 

295: 

296 ： 

297 ： 

298 ： 

299 ： 

300: 

301： ) 
302: 

303: 

304: void 
305 ： WORD 
306: int 
307 ： { 
308 ： 

309: 

310: 

311: 

312 ： 

313： ) 
314: 

315 ： 

316: void 
317 ： WORD 
318 ： int 
319: { 
320 ： 

321 ： 

322: 

323 ： 

324: 

325 ： } 
326: 

327: 

328: int 
329 ： WORD 
330: int 
331 : { 

332: 

333 ： 

334: 

335 ： 

336: 

337 ： 

338: 

339 ： 

340: 

341 ： 

342 ： 

343 ： 

344 ： 

345: 

346 ： } 

347: 

348: 

349: void 
350: WORD 
351 : int 
352 ： { 

353 ： 

354: 

355: 

356: 

357 ： 

358: 

359: 

360: 

361:} 


if ( n==0 ) return(0 )； 
for (: ；) { 

n -= i ； 

if ( i>n ) break; 
j + +； 

) 

return(j); 


wkclr( n,1) 

*n ； 

1； 

int i; 

for ( i=0; i<l;i++ ) n[i]=0; 
return ； 


copy( n, nl,1) 

*n, 拿 nlj 
1 ； 

int i; 

for ( i=0; i<l; 1++ ) n[i]=nl[i]; 
return ； 


cmp( nl,n2,1) 
*nl, 拿 n2!; 


int 

for 


i* a=0; 

=0 ； i<l ； !■+♦>{ 
if ( nl[i]>n2[i] 
8=1； 
break ； 


if 


nl[i]<n2[i] 
8 = -l; 
break ； 


prt( nl,1) 

拿 nl; 

1； 

int i; 

printf( "X.4d.", nl[0]); 
for ( i=l; i<l;i++ ) 

printf( "X.4d " ， nl[i 】 
printf( ，， ¥n" }; 


return; 


/« 2 (2 n - l )= n ~2 を利用 */ 


/* ワークエリアをクリア */ 


/»コビー */ 


/* 大小比較 ま / 

/拿 sign(nl-n2) */ 


大型機の 掛け算 方法 

音声サン プリ ング をする人なら聞いたことのある言葉かもしれないが， 
フーリエ変換の応用である。概念だけでも説明しておこう。 
n 桁の2つの数を掛けあわせる場合を考えてみよう。 
a 2 〇 a 2 n _ , a n +2 a ,»+| a „ a n-i* - * a 2 a t 

b 2 n b 2 n-i … b n+2 b r»+i b n b b 2 b | 

掛け算をすると桁数が 2 倍になることを考えて，上から n 桁が0にな 
っている2桁の数を用意しよう。 

その掛けようとする数の1桁1桁を，別々のデータと見なして，フー 
リエ変換を掛ける。すると，次のような数列が2つ得られる。 
a’ 2 n ， ..•， a'n+2, a'n+i, a’f^a’n-u ...，a、, a’， 

b’ 2 n, ^* 2 n-li b b n+it b'n, b n-l，...，b 2， b i 

掛け算には，同じ添え字のついた項どうしを掛ければよい。すなわち， 
c , 2 n = a , 2 n xb , 2n 
c 2n-1 = a 2n-i x D 2n-i 

というぐあいにやればよい。こうして次の数列を得る。 

C 2 〇 » C 2n— it * * * » Cn+2» C n+l» C 〇 , C n— 1 » "" *» C 2 , C 1 
最後にこの数列をフーリエ逆交換してやる。ちょっとそのデータをい 
じれば， 

C2nC2n-l**- C n+2 C„+i CnCn-! … C 2 C , 

が出てくる。これが求める積である。 

気づいている人もいるだろうが，「フーリエ変換をかける」だとか，「フ 


ーリエ逆変換してやる」だとか，「ちょっとデータをいじれば」だとか， 
曖昧な書き方をしているところがある。ここが浮動小数点の演算をしこ 
たま使うところで，僕はここで投げ出したのだ（申し訳ない）。 

さて，このやり方のどこが有利かというと，掛け算が 2n 回ですんでい 
るところである。実際はフーリエ変換でも少し掛け算を使っているが， 
それでもふつうの掛け算に比べ，はるかに手間は少ない。ふつうの掛け 
算は n の2乗に比例した数の手間がかかる。フーリエ変換を使えば， n 
に比例するだけですむ。もちろん，変換や逆変換にかかる時間を考える 
と，桁数が少ないうちはかえって遅いが， n が万だとか億といったオー 
ダーに達すると，極端に速くなるのは想像にかたくない。誰だって，1 
度や2度，次のような計算をしたことはないだろうか。足し算と同じつ 
もりで，縦に掛けるのである。昔は，どうしてこれが間違っているのか 
不思議に思ったが。 

誤）132 正）132 

x )534 x )534 

598 528 

396 
660 
70488 

これですんだら本当にいいのに，と思いながら一所懸命に右のような 
やり方を練習したのだろう。フーリエ変換を使えば，ちょうど左のよう 
なカンジになるのである。かなり重宝だと思うのだが。 
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■特集真夏の夜の数値演算- 

超応用グラフィック 歪められた光 



レイトレーシングでも数値演算は必修科目ですが，ここではちよっと道を踏み外して，空 
想の重力場が目の前にあったらと考えてみましよう。曲がる光をシミユレートできるなん 
てコンピュータグラフィックならではの楽しみだと思いませんか？ 


Kuwano Masahiko 

粢野雅彦 



曲がる光を見てみたい 

それは，特にすることもなくぼんやりと 
電脳倶楽部のユーテイリテイで遊んでいた 
とき頭のなかに浮かんだ疑問から始まった。 
「物体の周りでは空間が歪んでいるため， 

光も曲がって進むと，どこかで聞いたこと 
がある。それなら思いっ切り重い星のそば 
を通る光はとんでもなく曲がるのだろう。 
極端な話，ブラックホールがあると，その 
周囲では恐ろしいほどねじ曲げられるはず 
だ。あの壁のポスター（エリア88だったり 
する）と俺の間に超コンパクトのブラック 
ホール（そんなものがあるかどうかは別に 
して）を置いたとすると，きっと，とんで 
もなく歪んで見えるはずだ。……」 

ここで，電脳倶楽部とはサヨナラして， 
原稿用紙と鉛筆とナイフ，コンパス，そして 
手持ちの物理っぽい本を引っ張り出す。確 
か，空間が歪むとか光が曲がって進むなん 
ていうのは一般相対性理論の本では列車の 
時計が遅れるのと同じくらいポピュラーな 
話題として取り上げられているはず。曲が 
り方の式くらいはどこかに載っているだろ 
うと，あちこちページをめくってみた。 

残念ながら，手にした本のどれもが重力 
の影響で光が曲がることや，1919年の日食 
時に太陽のそばに見える星の位置のずれが, 
-•般相対性理論から導かれる結果とよく一 
致したということには触れているのだが， 
それでは具体的に曲がり方がどのような式 
で表されるのかについては「この曲がりを 
計算する式は難解であるが……」くらいで 
すっと逃げられてしまい，いきなり， 

沒 = 4 GM /( RC 2 ) 

という式が出てきてしまうのである。 

この式では G は重力定数， M は星の重さ, 
C は光速度， R は光がその星にもっとも接 
近したときの星の中心からの距離となって 
いるのだが，考えてみると，重力は局所的 
に働くものではないのだから，光は一気に 
カックンと曲がるのではなく，グニュグニ 
ュっと曲がっていくはずである。それを， 


このような式で表しているとい 
うことはこの式が，光は星のす 
ぐそばにくるまでは直進すると 
仮定しているということにほか 
ならない。 

つまり，この式が成り立つの 
はごく近くまで来ないと相対論 
的な効果が视れない軽めの星の 
場合であり，ほんの少ししか曲 
がらない場合に限定されるので 
ある。私が望んでいるのは思い 
っきり光が曲がる姿なのである 
から，恐らく先ほどの半径に反比例するよ 
うな曲がり方の式は適用できそうにない。 
試しに本屋もうろついてみたが，かんばし 
い成果は上がらなかった。 

手元の本でも本屋で探した本でもはっき 
りしない，となれば自分で考えるより仕方 
がない。ニュートンカ学にどっふ。りと漬か 
った脳味噌をねじきれるほど絞りながらそ 
こらじゅうの本をひっくり返して，一週間 
半。部屋じゅう式の計算用紙 （Oh ! X の原 
稿用紙の裏だったりする）で埋めつくし， 
本当に足の踏み場もない状況にしてしまっ 
たあげく，一応それらしい式をでっちあげ， 
その勢いで無理やりプログラムを作ってし 
まった。 

もともと相対論など聞きかじりであるう 
え，周りに確認を求める人間もいないので 
かなり強引で®合のよい仮定を積み重ねて 
しまっている。もともと，曲がる光をシミ 
ュレートしたいという欲求からでっちあげ 
たものなので，実際の相対性理論とは掛け 
離れたものとなっているかもしれない。ち 
なみに，これを読んだ編集の U 氏には，ま 
だまだニュートン的な概念に支配された仮 
説だと言われてしまったほどである。 

それでも一応，光がねじ曲がる感じは出 
せたし，出力結果がこれまた予想以上に興 
味深いものになったので，ここで特集の応 
用例としてすベり込ませてもらえることに 
なったわけだ。現れてくる図形を眺めなが 
ら頭を抱え，首の筋を違えるくらいひねる 
ような楽しみ方なら十分にできるだろうと 


思ぅ。 

言語としては X - BASIC を使ったが，た 
かだか70行程度のプログラムであるから他 
の言語で書き直す こと もそれほど難し〈は 
ないだろう。 

SF ノリで仮説を作る 

なんともよくわからないことだらけの相 
対論で，重力による空間の番みを考えてい 
くと，やれ時間の進み方が変わるだの，口 
ーレンツ短縮が起こるだのとごちゃごちゃ 
といろいろなことが混ざってきてわけがわ 
からなくなる。私もこれにはまってしまい， 
まるまる一週間もの間頭を抱え込んでしま 
った〇 

で，あれこれと突っついたあげく，たど 
りついたのが「等価原理 J である。そうい 
えばそんなものがあったっけと気づくのが 
相当に遅〈なってしまった。等価原理とい 
うのは惯性系の間で考えられていた相対性 
原理を加速度系をも含めた系の問で成り立 
つように拡張するために持ち込まれたもの 
である。 

「等価原理」などといかめしい字面であ 
るがその考え方自体はごく単純である。加 
速度系にある物体には，その質 i と系の加 
速度とに応じた慣性力が働く。これを系の 
加速度のせいであると考えるのではなく， 
系自体は惯性系なのである力へその外側に 
重力を及ぼすような星があると考えてもか 
まわないだろうということなのである。 


特集歪められた光 



















電車に乗ったとき，発車や停車の際に私 
たちは横方向に結構な力を感じる力 ? ，この 
力を進行方向と平行に働く重力と区別する 
ことはできない。また，自由落下する飛行 
機の中では無重力状態を体験できる。飛行 
機自体に注目すればこれはまぎれもな〈加 
速度系であり，地球の重力はもちろん働い 
てはいるのである力す，その中にあるものに 
とってはなんらかの原因で重力が消し去ら 
れてしまったと考えることができる。 

これをひっくり返せば，重力の影響下で 
の物体のふるまいは，その重力と同じ力を 
及ぼす加速度で動いている系での運動とし 
て考えることができることになる。光の進 
み方にもこの等価原理が適用できるはずで 
ある。つまり，光は真っ直ぐ進んでいるつ 
もりなのであるが，系自体が動いていって 
しまうために，光は「置き去り」にされる 
かたちとなり，進路が曲がってしまうと考 
えて計算すればよいことになる（図1)。 

これで見通しがよくなってきた。加速度 
系として処理できるなら話はずっと簡単で 
ある。まず，星の中心からの距離と，その 
場所での重力の強さの関係を知る必要があ 
る。このあたりについても，あまり記述が 
ないのであるが，どこを眺めても， 
f = GMm / R 2 

G は重力定数， M は星の， m はその物 
体の質量， R は星の中心からの距離 
という恒例の，距離の2乗に反比例する式 
をそのまま適用している例しか見当たらな 
いところを見ると，これをそのまま拝借し 
てかまわなさそうである。 

ここで， 

f =ma ( a は加速度） 

といういつもの式を代入することで， 
a = GM / R 2 

となる。つまり，星の中心からの距離尺の 
位置における物体のふるまいは， GM / R 2 
の加速度が系に働いていると考えて計算す 

図1加速度系と重力の影響の対比 


ればよいことになる。 

力まかせに問題を解く 

ここまでわかれば，あとは幾何学で攻め 
ていけばよいだろう。 

図2に示すように，中心から半径尺のと 
ころで，半径と角度4で交わる直線上を光 
が進んできたとき，この光が Z / JT だけ進む 
のにかかる時間は zJjc / C ( C は光速度）であ 
る。一方，加速度 a で時間 t だけ加速され 
たときに進む距離は（初速度は0とする）， 
a を t で2回積分すればよいから， 
at 2 /2 

となる。ここで， a に GM / R 2 を， t に先ほど 
の Ax / C を代入し，系が進んでしまう距離， 
すなわち光が星の側に落ち込む距離 zJ R を 
求めれば， 

Z / R =( GM / R 2 ) Ur / C ) 2 /2 
となる。 

さて，ここで光はどの程度曲がって進む 
のであろう。省初の方向にだけ進む間に 
中心方向に ZIR だけ引きずりこまれること 
になるので，進路は図の平行四辺形の対角 
線の向きになる。 

一方，進む距離は通常の物体なら「加速」 
されることになるので，進む距離はまさに 
対角線の長さそのものになるのであるが， 
ここで相手にしているのは光であるから， 
光速度一定の法則が適用される。いくら引 
きずりこまれてはいても zJjc / C の時間では d 
j しか進むことはできない。これと，今度 
は平行四辺形を半分にした三角形から，こ 
のときの/9については， 

tan^ = zIRcos^/(z/Rcos^+zJjr) 

が成立することがわかる。現在の BASIC 
には tan の逆関数として atan が用意されて 
いるのが普通なので，ここから即座に沒を 
求めることができる。 

これで，光の曲がる角度は計算できた。 

図2進路計算 


それではこの方向に zlr だけ進めることにし 
よう。さて次の計算のために，新しい進入 
角必と，中心からの距離 R を求めておかな 
くてはならない。これには，先ほどの平行 
四辺形に半分かかるような形になっている 
三角形 （ R と R ’ を二辺としているもの）を 
利用するとうま〈いきそうである。 

まず，新しい R ( R ’ としておく）を求めて 
しまおう。最初の R を底辺と見たときの頂 
点から図のように垂線をおろして，図の左 
半分について三平方の定理を適用すれば， 
R ，2 =( R - Zlxcos (0 -め） 2 + 

( Axcos (( p - 0)) 2 

= R 2 - 2 R • zJjccos (0 - 6 )+ / lx 2 
R , R ’ はいつでら正の数だから，ここで両 
辺の平方根をとって， R ’ を求めることがで 
きる。 

つぎに新しいゾを求めるわけだが，その 
ド準備として図の円の中心で R と R ’ のなし 
ている角，アを求めよう。ここに先ほど使 
った直角三角形を当てはめれば，次の式が 
成り立つ。 

R’cos (ア ） =Zlccos (^- 6 ) 

ここから， 

cos (ア） =^ Jxcos (0 — 6 )/ R ' 

さて，ここで cos の逆関数 ATAN に習う 
なら ASIN のようなものがあれば，いっぺ 
んにアが求められるのだが，残念ながら X 
- BASIC には ATAN しかないので ， ASIN 
を ATAN で表さなくてはならない。 

ここで， 

tan ^ = sin ^/ cos ^ 

= sin 6 /V (1— sin 2 の 

から， 

ASIN ( X ) =ATAN ( X / SQR (1- X 2 )) 
となる。 

これでようやくアを求めることができた。 
ここまでくれば，当初の目的である，次の 
計算で使う0を求めることは簡単な角の和 
と差で求めることができるのである。 




重い星 



光の進入路 
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(p' = (p — 6 + y 

ちなみに新しい R は先ほど行った計算結果 

から， _ 

R ’ = v / (R 2 — 2R*Zlxcos((p — 6) + Ax 2 ) 
となる。 

■: 

エイヤツでプログラミング 

ここまでできれば，プログラムを組んで 
みることができる。 / lx や6, M などの値を 
適当に決めて，あとはジタジタとコンピュ 
ータに計算させ続ければ，進路を表示させ 
ることができる。私の作ったプログラム 
(リスト 1) では，前方に，タイルのよう 
な正方形の集まった図形を，その手前にブ 
ラック ホールを おいて，それを望遠鏡で視 
いたような状態を計算させてみることにし 
た。 

走らせると，まず画面の真ん中，ブラッ 
クホールを置いたところを中心とする円を 
描いたあと，右側（視点）から出た光の進 
みぐあいを計算しながら，その結果が表示 
される。左の端に，タイルが並んでいると 
考えてもらいたい。 

ひと通り計算が終わると，いよいよ，ど 
のように見えるかの表示に移ることになる。 
数値演算が多いのでかなり遅いがじっと我 
慢の子でいるしかない。 

出てきた結果はいかがであったろうか？ 
私は初めて結果を見たとき，思いっ切り首 
をかしげてしまったのであるが……。 

プログラムはもはや解説するほどのもの 
ではないだろう。ちょっと触れておくと， 

図3タイルパターンの見え方 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

II 

12 

13 

14 

15 

16 


16色に塗り分けられた 
タイルパターン 



このプログラムでは GM /2 C 2 を K という変 
数で表しており，この ffl ： が大きいほど，大 
袈裟な曲がり方をする。コンピュータであ 
るからいくらでも大きな値にすることが可 
能であるが，面白いのはせいぜい10から20 
くらいまでで，それ以上になると曲がり方 
が激しすぎて，わけがわからないだけのも 
のになってしまうようである。 

で’はまた 

これでめでた〈完成となったのであるが， 
なにぶんにも私の勝手な思い込みと，想像 
ででっち上げた式に基づいているので，ひ 
よっとしたら，というより，ほぼ間違いな 


くとんでもないチョンボをしでかしている 
ような気がしなくもない。 

さらに付け足すと，本当はブラックホー 
ルの近くを通った光は大きな赤方変移を受 
けるはずだと思うのだが，それをどのよう 
に カラー.パレット コードに 変換したらよ 
いのか考え切れなかったので，今回のプロ 
グラムではここまで対応し切れていない。 

まあ，それでも光が曲がって進むと，ど 
んなことになるかということを目にするこ 
とができたのはなかなか感動的なものがあ 
った。もし，読者のなかで，「相対論なら 
まかせておけ」という方がおられたら，ぜ 
ひまともな理論ではどうなっているか教え 
ていただきたい。 


リスト1曲がった光を見るプログラム 


1000 screen 2,0,1,1 

1010 circlet 300,200, 10,15) 

1020 int i , j , x,y 

1030 float r 

1040 dim int taget(200) 

1050 float py 

1 060 st.r s 

1070 for i=0 to199 

1080 py=bh_cal(atan(i/600#)) 

1090 if py> = 0 then { 

1100 taget(i)=399-py 

1110 } else taget(i) =-8000 

1120 next 

1130 wipe() : els 

1140 circle(200,200,200,15) 

1150 for j=0 to 399 
1160 for i=0 to 399 

1170 r=sqr((i-200} 本 <i-200)+(j-200} 本 tj-200}> 

1180 if r > 199 then continue 

1190 if taget(r) =-8000 then continue 

1200 x=taget(r> 本 l#/r 本 （ i-200}+20O 

1210 y=taget(r)*l#/r*(j-2O0)+200 

1220 pset(i,j,get_col(x,y)) 

1230 next 

1240 next 

1250 img_save{ M B し ACKS"> 

1260 print " .ワタシ ノ 、. • • "；：input s 

1270 end 

1280 / 本 */ 

1290 func get_col(x ； int,y ； int) 

1300 if x<0 or x>399 or y<0 or y>399 then return(0) 

1310 x=x ¥ 100 

1320 y=y ¥ 100 

1330 return{((y*4+x> mod 15)+1) 

1340 endfunc 
1350 / 本本 / 

1360 func float bh_cal(P ； float) 

1370 int i,px,py,nx,ny 

1380 int DX 

1390 float R.K.DR.RD,tmp 

1400 float T,G 

1410 float anglesum 

1420 /**/ 

1430 anglesum=0 

1440 DX=5 

1450 K=10# 

1460 R=300# 

1470 px=R+300 ： py=200 

1480 for i=0 to 150 

1490 DI?=I {本 DX»DX/(R 本 !？} 

1500 T=at£in{DR 本 sin< P)/<DX + DR 本 cos{P> > > 

1510 RD=sqr(R»R-2«R*DX*cos(P-T)+DX*DX> 

1520 if RD < 10 then ny=-1 : break 

1530 trap=DX*sin(P-T)/RD 

1540 G=atan(tmp/sqr(l-tmp*trap)) 

1550 if tmp<0 then G=-G 

1560 /tt%%/ 

1570 P=P-T+G 

1 580 anglesum=anglesum+G 

1590 R=RD 

1600 nx=cos(anglesum)*RD+300 : ny=sin(anglesum)*RD+200 

1610 if nx く 0 then ny= {px 本 ny-py 本 nx ) / < px-nx > :line ( px , py, nx* ， ny,15 ) : break 

1620 if nx>60O or ny<0 or ny>400 then ny=-1 : break 

1630 line(px,py,nx,ny,15) 

1640 px=nx : py=ny 

1650 next 

1660 if (i>150) then ny=-l 

1670 returntny) 

1680 endfunc 
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_ 特集真夏の夜の数値演算- 

超応用 AD PCM 音の数学 

自然の音をそのまま再生してくれる AD PCM 。 これをうまく使えば，いろいろ 
できるのでは？「音は連続関数だ。連続関数ならなんとかなる j こうして，フ 



微積分による究極の音声合成への挑戦が始まったのです。 




Katou Masaya 
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音を表す 

はるかな昔，人間に許された情報交換の 
手段は音声であり，人の音声をそのままに 
伝えることができたのは，その人の声が届 
〈範囲内だけだった。ある程度の文明が現 
れると，太鼓などの人間の声よりも大きな 
音を発生するものや，煙などの視覚に訴え 
るものにより，かなり遠方との間で情報交 
換が可能となった。文字が発明されるとよ 
り細かい意思疎通ができるようになった力 ? ， 
それはかなり時間を要する方法に頼るしか 
な〈，ごく近代まではリアルタイムな情報 
交換の手段としては適当ではなかった。こ 
のような状態に新風を吹き込んだのは電気 
(動電気)の実用化である。これにより，有 
線電信が可能となった。そして，電波の発 
見により無線電信が実用化されたのだ。 

さて，音声は空中や電線の中をどのよう 
に伝わっているのだろう力、そのままのか 
たちで伝わっていないことは電話線に耳を 
あてるまでもなく明らかだ。 

音声の変調方法でよく知られているのが 
次の2つだろう。すなわち ， AM (振幅変 
調）と FM (周波数変調）だ。これらは放 
送電波のフォーマットとして有名だが，こ 
こで取り上げるのはパルス変調という方法 
である。というのも ， AD PCM という方 
式はパルス変調の一種なのだ0 
パルス変調には， 

1) PAM 

2 ) PCM 

3) PWM 

4) PDM 

などがある。これらについてざっと解説し 

よぅ。 

PAM はパルス振幅変調であるが，私はこ 
れがどのようなものに使われているか知ら 
ないので特に説明はしない。信号系のエン 
ハンスが楽にできるのでビデオ機器などで 
使われることもあるらしい。 

PCM はパルスコード変調で情報を符号化 
して伝送する方法である。モールス信号な 


どが代表的なものであるが，コード化と共 
に エラー チヱックなどを加える こ とで高い 
信頼性を持たせることもできる。情報機器 
の通信などに使われることが多い。 

PWM はパルスの幅に情報を持たせるも 
のであり， シャープ 系の マシンのデータレ 
コーダに採用されている伝送方法だ。これ 
は 速度変化に強い（追従性に富む〉という 
特徴を持つ。 よってシャープ 系の データレ 
コーダでは 高い ボーレート にも かかわらず， 
データエラーが ほとんどな いのだ。 

PDM はパルスの密度で信号を送るもの 
で，すべての動物の神経系で行われている 
情報伝達方式だ。神経を伝わる信号はパル 
ス密度の変化によって表される。最近では 
脳に電極を取り付けて怒りたくないのに怒 
ったり，なにもしないのに激痛を与えたり 
することができるそうである。 

AD PCM とはなにか 

というわけで，問題の PCM である力 ? ，も 
っとも身近な PCM はなにか？まず，一部 
のビデオには PCM 変調による音声記録方式 
が採用されている。 CD プレイヤーは PCM 
復調機といえる0そして， DAT は明ら力、に 
PCM 変/復調機である。それではこのなか 
でもっとも普及していると思われる CD プ 
レイヤーを例に PCM というものを見てみ 
よぅ。 

CD の基本フォーマットは量子化16ビット， 
サンプリング周波数44 .1 kHz である。これ 
は1秒間に44100回音の大きさを調べ，それ 
を65536段階に分けて表現するということ 
を意味している。 

さて，音の高さはどこへいってしまった 
のかと思う人もいるかもしれない。基準音 
の A (ラの音）は 440 Hz だそうだ。これが 
仮にサイン波だとすると，〜のような波形 
が1秒間に440回あるということである。 

1オクターブ上のラの音は 880 Hz だ。当然 
〜が1秒間に880回あることになる。音と 
いうのは基本的に周期関数で表すことがで 
きるので，すべての音階は1秒間に何回そ 


の波形が現れるかで決定できることになる。 
そして，ひとつの波形は音量の変化として 
表すことができる。というわけで，音の高 
さのパラメータはなくてもいいのだ。音色 
なども波形の変化によって表されるので， 
特別なパラメータは一切必要ない。 PCM で 
は音量の変化だけですベてが決定される。 

ふつうの CD は1枚に74分入るので， 

74 X 60 X 44100 X 16 + 8 = 391608000 
すなわち， 400 M バイト近い容量:を持つこと 
になる。最近の高級機の標準は18ビット8 
倍オーバーサンプリング （352.8 kHz > だか 
ら， 1.7 G バイトものデータ量となる。はっ 
きりいって，これは容易に扱える大きさで 
はない。もっと効率のよい方法はないのだ 
ろうか？ 

音声には基本的に連続性がある。すなわ 
ち，前後のデータに関連があるといえる。 
そこで登場するのが」 PCM 方式だ。」はデ 
ルタと読み，差分を表す場合に多用される 
記号である。 

たとえばここに， 

2,3,5,7,11,13,17,19,23 
という数列があったとする。これをそのま 
ま PCM で保存するためには，9個 X 5ビッ 
卜（データの範囲），つまり最低 45 ビット必 
要である。しかし，これを， 
2，1，2,2,4,2,4,2,4 

という差分に置き換え，それぞれから1を 
引いてしまうと， 9個 X 2ビット，すなわ 
ち18ビットと半分以下の容量ですむ。 

CD の場合，音の大きさを〇から最大値ま 
での65536段階に分けているのだが，これ 
が1/44100秒の間に全体の1/256も変化する 
ことがあるだろうか？これは音が1秒間 
に127回，最低値から最大値まで変化でき 
るほどの変イ匕量である。ほとんどの場合(特 
に音楽でなく音声の場合)，8ビット，44.1 
kHz の z/PCM でも十分な音質を得ること 
ができる。これでメモリの使用量は半分に 
なった。 

それでは欠点はないのかというと，もち 
ろんある。それは勾配過負荷といって変化 
M が大きすぎてその 」PCM の差分の範囲で 
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は信号の変化に追従できない場合もありう 
るということだ。 

さて，困った。なるべく過負荷を起こさ 
ないようにできないものか。そこで考案さ 
れたものが D PCM 方式である。 D とは Dif 
ferential の頭文字だ。 」 PCM では差分は前 
または後ろのデータとの差分であった 。 D 
PCM 方式では，差分は過去のデータから予 
測された値と実際に入力された値との差を 
その差分値とする。これで勾配過負荷の発 
生はぐんと少なくなり，差分のビット数も 
少し減らすことができるようになった。 

しかし，これでも勾配過負荷はまったくな 
なくなったわけではない。そこで，ある人 
がいいことを思いついた。3ビットの DP 
CM では， 

+ 3, + 2, +1，0,一1，一2, 一3 
という7通りの差分しか表せない。もしも 
4以上の差分がきたら勾配過負荷が発生し 
てデータが不正確になってしまう。それで 
は4以上の差分が発生したときはきざみを 
倍にして， 

+ 6, +4, + 2,0, —2, — 4, 一6 
として処理してしまおう。う一ん ， Adapti 
ve だ。といったかどうかは知らないが，こ 
の方式を使えば勾配過負荷の発生は疑似的 
に0になる。しかし多少の不正確さは残る。 
これが AD PCM 方式である。 

さて， X 68000 の AD PCM であるが，困 
ったことに」 PCM らしい。というか 」 PC 
M 的なデータを送るとそのとおりに動いて 
しまうのだ。どうやら，線形予測器が作動 
していない（と思う）のだが，どうしたもの 


だろう。今回のサンプルも強引に」 PCM 用 
のデータに対応するものと仮定して作成さ 
れている力す，一応うまく動いている。内部 
で線形予測器が動作していると振幅(音量） 
に誤差が出る力夂周波数にはほとんど影響 
ないはずなのであまり問題はないだろう。 

音を考える 

さて，雑な説明だが AD PCM について 
はある程度のイメージをつかんでもらえた 
と思う。ここで改めて，音とはなにかを考 
えてみたい。 

我々が音として認識しているものは空気 
などの振動である。音を直接目で見ること 
はできないが，マイクで拾ってオシロスコ 
ープなどを使うと音の波形を見ることもで 
きる。図1のようなものは誰でも見たこと 
があるだろう。ここで横軸は時間であり， 
縦軸は振幅すなわち空気の粗密状態を表す。 
こういった図ではわかりやすく横波の形で 
表現される力 ? ，実際には振動は縦波として 
伝播する。 

図を見てもわかるとおり，ある時間には 
必ずあるひとつの対応する状態がある。よ 
って，これは関数であるということができ 
る。しかも値が離散的になることはなく， 
常に滑らかな変化量を持った周期関数とし 
て表される。これは音を数学的に扱ううえ 
で重要なボイントである。 

さて，こういった振動のもっとも基本と 
なるのが単振動という運動だ。これは図2 
のようなばね仕桂卜けを想像してもらうとわ 


かりやすい。左右のばねはまったく同じ強 
度の完全弾性体で，ついでに質量は0に等 
しい。当然，摩擦係数は0だ。こういった 
運動を式にすると， 
f ( t ) = k.sin 17 it 

となる。これをそのまま音にすると，「ぼ 
一」という感じのサイン波となる。 

サイン波合成 

たとえば，サンプリングシンセサイザと 
して有名なフェアライト CMI などでは，あ 
る基音に対して32倍音(機種によっては256 
倍音）までのサイン波を自由なエンべロー 
プをつけて足しあわせることができる。基 
本的に楽器の音では基音に対する倍音構成 
がその音色を決定しているといってよい。 
実際には倍音以外の音も混じってはいる力 5 '， 
その量はごく微量である。リスト1では32 
図1音の波形 



図2単振動のイメージ 




リスト1 

1000 int t,r,e,w,x,y,hz,rn l kz=1950,st=7 
1010 float z,q,s,a0(99),al(99) f a2(99),n(32787) 

1020 char a(65535) 

1030 float p,nc=261.6255653#,pi=3.14 15926535898# 

1040 screen 2 ， 0 ， 1 ， 1 
1050 console ,,0 
1060 mouse(0) 

1070 mouse(1) 

1080 mouse(4) 

1090 msarea(1,257,766,478) 

1100 atr k 

1110 box(0,256, 767,479, 15) 

1120 for t=0 to 31 

1130 line(t*24,256,t* 24,479 ,15) 

1140 locate -(t<9)+t*3,30 
1150 print str$(t+1 )； 

1160 next 
1170 locate 0，0 
1180 repeat 
1190 mspoa(x,y) 

1200 msstat<w ， w ， t,r> 

1210 if t=-l then { 

1220 x=x¥24 

1230 fill(x*24+3,257,x*24+20 f y,0) 

1240 fill(x*24+3 l y,x*24+20 l 478,13) 

1250 a0(x)=(479#-y)/223# 

1260 } 

1270 until r=-l 

1280 line(0, 128,767,128, 15) 

1290 z=0 

1300 for t=0 to 383 
1310 q=0# 

1320 for w=0 to 31：if a0(w)=0 then continue 
1330 q=q+a0(w)*sin(pi*2#*t*(w+l)/768#) 

1340 next 

1350 if q>z then z=q 


サイン波合成 

1360 t=t+15 

1370 next 
1380 q=0 

1390 for t=st to 389 
1400 p=q 
1410 q=0 

1420 for w=0 to 31:if a0(w)=0 then continue 
1430 q=q+a0(w)*ain(pi*2*t*(w+l)/767) 

1440 next 

1450 line(t-st,128-p*100/z,t,128-q*100/z,13) 

1460 line(767-t+st,128+p*100/z,767-t,128+q*100/z,13) ： t=t+at 

1470 next 

1480 print time$ 

1490 q=15600#/nc 
1500 for t=1 to kz 
1510 z=(t/q-int(t/q))*q 
1520 p=0 

1530 for r=0 to 31:if a0(r)=0 then continue 
1540 p=p+a0(r)*ain(2*pi*z/q*(r+l)) 

1550 next 
1560 n(t)=p 

1570 if aba(p-n(t-1))>a then a=abs(p-n(t-1)) 

1580 next 
1590 8 = 6/8 

1600 for t=0 to kz/2-1 

1610 e=int((n(t*2+1)-n(t*2))*a) 

1620 if e<0 then e=8-e : if e>15 then e=15 
1630 r=int((n(t*2+2)-n(t*2+l))*a) 

1640 if r<0 then r=8-r : if r>15 then r=15 
1650 a(t)=e*16+r 
1660 next 

1670 a_play(a,4,3,kz) 

1680 print"a_play(a,4,3," ； kz；")" 

1690 print time$ 

1700 end 
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倍音までのサイン波を223段階で合成する 
ことができる0起動後マウスで各波形成分 
の割合を指定すると波形表示後，その音の 
合成して鳴らすというものだ。 

なぜ，サイン波を足しあわせることで音 
を作ろうとしているのだろうか？それは 
先ほど述べたとおり，音が連続かつ周期関 
数であるという事実に由来する。ざっと解 
説しよう。昔，フーリエという学者が金属 
板の1点を熱した場合の熱伝導が2階の偏 
微分方程式で表されることを発見し，その 
一般解を求めようとした力 5 '，それまでの方 
法ではどうもうまくいかない。さんざん考 
えた 末，ついに 大胆な 仮説に基づいて この 
問題を解決した。そのとき持ち出された仮 
説というのが， 

すべての連続関数は無限個の三角関数 

の和で表すことができる 

というものだ。やがて，周期関数のうち， 



が無限大にならないものについては，この 
仮説が適用できることが証明された。今日 
では フーリェ級数は弦の振動や電流の状態 
などを表す偏微分方程式に関連して物理学, 
工学などで幅広く応用されている。ちなみ 
に級数というのは似たような項がたくさん 
の足し算でつながった式のことだと思って 
おいてほしい。 

すべての連続関数に対応するには，サイ 
ン波だけでなく，90°位相のずれた cosi 9 に 
相当する波の成分も必要なのだが，これは 
単一楽器の音色としては無視しておいても 
よいだろう。 

音声を変調する 

リスト2と3だがリスト2はファイルよ 
り読み込んだサンプリングデータを任意の 
周波数にできるだけ正確に変調しようとい 
うプログラム，リスト3は任意の i 皮形を手 
書きしてそれを任意の周波数のデータに落 
とすためのプログラムだ 0 リスト2では ‘‘ ba 
ch . pcm ” というファイル名を適当に変えて 


リスト2データを補間する 

1000 int t,r=256 l e l w,x,y,xl,yl,x2 l y2,n( 19999) ,hz=83 

1010 float z,q,m(99),tt(99),xx(99),f(99),a0(99),al(99),a2(99),a3(99) 

1020 char a(7800) 

1030 float p 
1040 str k 

1050 fread(a,7800,fopen( "bach.pcm ,, f "r")) 

1060 fcloseall() 

1070 screen 2,0,1 ， 1 
1080 for t=l to 383 
1090 w=r 

1100 e=a(t+0) shr 4 
1110 if e>7 then e=8-e 
1120 r=r+e 

1130 line(t*2-l,w f t*2,r,15) 

1140 n(t*2)=r 
1150 w=r 

1160 e=a(t) and 15 

1170 if e>7 then e=8-e 

1180 r=r+e 

1190 line(t*2,w,t*2+l,r,15) 

1200 n(t*2+l)=r 

1210 next 

1220 /*k=inkey$ 

1230 a_play(a,4,3) 

1240 print"8tart point" 

1250 repeat 
1260 mspoa(x,y) 

1270 msstatlw^.r.w) 

1280 until r=~l 
1290 xl=x 
1300 yl=y 
1310 print x,y 
1320 for t=0 to 500 
1330 next 

1340 print’.end point" 

1350 repeat 
1360 mspos(x,y) 

1370 m88tat(w,w,r|W) 

1380 until r=-l 

1390 x2=x 

1400 y2=y 

1410 print x，y 

1420 r=x2-xl 

1430 p=l#*(y2-yl)/r 

1440 for t=xl to x2 

1450 n(t)=n(t)-p*(t-xl) 

1460 pset(t,n(t),13) 

1470 next 

1480 screen 2,0,1,1 

1490 console ,,0 

1500 box(l 92,128,576, 383,15) 

1510 line(192,256,576,256,14) 

1520 line(384, 128,384 ,383,14) 

1530 p=r/32# 

1540 f(0)=256 
1550 for t=0 to 32 
1560 xx(t)=192+t*12 

1570 f(t)=n(xl+p*t) 

1580 next 

1590 for t=0 to 32 

1600 (c(t+l))-f(t))/(xx(c(t+l))-xx(t)) 

1610 next 

1620 for t=0 to 32 

1630 r:abB(m{c(t+1))-m(t))*m(c(t-1))+abs(m(c(t-1))-m(c(t-2)) 

1640 e=(aba(m(c(t+1))-m(t))+abs(m(c{t-1))-m(c<t-2)))) 

1650 if e=0 then tt(t)=(m{c(t-1))+m{t))/2 else tt(t)=r/e 
1660 next 
1670 /* 

1680 for t=0 to 31 
1690 a0(t)=f(t) 

1700 al(t)=tt(t) 

1710 a2(t)=(3*(f(c(t+l))-f(t))/(xx(c(t+l))-xx(t))-2*tt(t)-tt(c(t+l)))/(xx(c(t 

+l))-xx(t)) 

1720 a3(t)=(tt(t)+tt(c(t+l))-2*(f(c(t+l))-f(t))/(xx(c(t+l))-xx(t)))/pow(xx(c( 

t+l))-xx(t),2) 

1730 for r=0 to11 

1740 pset(192+t*12+r,a0(t)+al(t)*r+a2(t)*r*r+a3(t)*r*r*r,11) 

1750 next 

1760 next 

1770 q=15600#/hz 

1780 p=q/32 : r=0 

1790 for t=0 to 15599 

1800 e=(t/p) mod 32 

1810 z=t/p-int(t/p/32)*32 

1820 z=(z-int(z))*12 

1830 n(t)=a0<e)+al<e) 本 z + a2(e > 本 z»z+a3(e) 本 z 本 z 本 z 

1840 next 

1850 for t=0 to 7800 
1860 e=n<t*2+U-n(t*2) 

1870 if e<0 then e=8-e : if e>15 then e=15 
1880 r=n(t*2+2)-n(t*2+l) 

1890 if r く 0 then r=8-r : if r>15 then r=15 
1900 a(t)=e*16+r 
1910 next 

1920 a_play(a,4,3) 

1930 print"a_play(a,4,3) 

1940 end 
1950 func c(t) 

1960 if t=32 then return(t) 

1970 t=(t+32) mod 32 

1980 return(t) 

1990 endfunc 
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表示したいデータを指定し，起動後は マウ 
スで1波長分のデータを切り取ってほしい。 
リスト3の使い方は特に説明するまでもな 
いだろう。 

これらは要するに1波長分のデータを連 
続関数と見てそれに相当する関数を近似し， 
その関数から音長分のデータを算出してい 
るわけだ。プログラム自体は非常にシンプ 
ルである。唯一わかりにくいと思われると 
ころは，データの補間の部分だろう。 

音声を変調する場合にもっとも単純な方 
法は与えられたデータを基準周波数のもの 
と見たてて，そのデータを時間軸方向に定 
数倍するというものだ。この場合のデータ 
は差分であるから，適当に詰めたり間引い 
たりして望みの周波数に近い波形を得るよ 
うにするわけだ。この方法では変調する周 
波数によっては，誤差が積もり積もって音 
色が変わったり，パ、ラツキが出てくるなど 
の問題があり，どうもいまひとつ面白くな 
い。そこでデータを補間してもっと奇麗な 
音を出してみようと思う。 

補間といってもわからない人のほうが， 
多いと思われるので簡単に解説しよう。補 
間とは与えられた数個の点とその値より， 
求めたい点の値を計算することおよび，こ 
のための近似関数を求めることである。 

補間法には全体をひとつの関数で補間す 
る方式といくつかの小区間に分けて補間す 
る方式がある。前者の方式として， 
LAGRANGE 
HERMITE 
NEWTON 
GAUSS 

の方法などが有名である。なかでも，ラグ 
ランジュ ( LAGRANGE ) の方法は基本で 
あり，簡単なものであるが，高次 （4 次以 
上）になると独特のゆれが生じて使いもの 
にならない。そのほかの方法もラグランジ 
ュの方法と根本的には変わらないので，こ 
こではこれらの方法は用いない。 

さて，区分を分けて補間する方法（区分 
多項式）のうち，誰でも名前くらいは聞い 
たことがあると思われるのが SPLINE )^。 
しかし， SPLINE 関数はときどき異常屈曲 
点が生じるのと，連立方程式を解かねばな 
らな いので ここでは 用いない。応力 SPLI 
NE 関数にすれば異常屈曲点はなくなるが， 
やはり行列式を解くのは面倒だから，ここ 
ではアキマの方法というものを用いること 
にする。 

アキマの方法も SPLINE の異常屈曲点を 
なくすために考えられたもので，与えられ 
た2点と幾何学的に求められた1次の微分 


微分とは 

中学生以下の人には馴染みがない概念でしょ 
うが，ここでは曲線（関数のグラフなど）のイ頃 
きを求めることと思っておいてください。とい 
っても曲線は「曲がって」いますから厳密には 
傾きはありません。そこで，曲線をごく小さな 
区間で区切った場合には直線に近似できるとし 
て計算することを微分するといいます。もちろ 
ん，これは関数が滑らかに連続している場合に 
のみ有効で，双曲線の原点のように非連続な点 
では微分不可能です。 

関数 y = x 2 では任意の点 （ X , x 2 ) で接する直線 
の傾き y ' は常に y '=2 x で表されます。同様に y = 
x 3 では y =3 x 2 , y = x 4 では 〆 =4 x 3 となります。 


当然， y = x 10<) では/ = IOOx 99 です。 n 次の関数に 
対してははっきりした規則性がありますね（証 
明はしません)。 

y = lllx 5 + 7 x 3 + l 2.5 x+IO 
といった，少しこみいった関数も， 
y =555 x 4 + 2 lx 2 + l 2.5 

のようにそのまま計算可能です。最後の10の部 
分は接片にあたる部分ですから，傾きを求める 
際には無視されます。 

y=log x とか y=sin x といったかたちの関数も 
y = l / x ， y =- cosx というぐあいに微分できま 
すが，ここではなぜこうなるのかといった疑問 
に答えることは割愛しましよう。とにかく，そ 
ういう考え方で式が展開されていると思ってお 
いてください。 


リスト3波形を入力 

1000 int t,r=256 ， e ， w ， x2,y2,n{19999},hz=83 

1010 float z iqi m(99),tt(99),xx(99),f(99),a0(99),al(99),a2(99),a3(99) 

1020 char a(7800) 

1030 float p 
1040 atr k 
1050 screen 2,0,1,1 
1060 console ,,0 
1070 mouse(1) 

1080 mouse(4) 

1090 msarea(193,128,576,383) 

1100 box(192,128, 576,383 ,15) 

1110 line(192,256,576,256,14) 

1120 line(384, 128,384 ,383,14) 

1130 setmspoa( 193,256) 

1140 int x,y,xl=192,yl^ 256,1 s,r8 

1150 xx(0)=192 

1160 f(0)=256 

1170 for t=l to 32 

1180 print t 

1190 maarea(191+t*12,128,192+t*12,383) 

1200 repeat 

1210 ms8tat(x,y,la,ra) 

1220 mspo8(x,y) 

1230 if ls=-l then{ 

1240 if t=32 then y=256 

1250 paet(x,y,13) 

1260 xx(t)=x 

1270 f(t)=y 

1280 for r=0 to199 

1290 next 

1300 } 

1310 until la=-l 
1320 next 

1330 for t=0 to 32 

1340 m(t)=(f(c(t+l))-f(t))/(xx(c(t+l))-xx(t)) 

1350 next 

1360 for t=0 to 32 

1370 r=aba(m(c(t+1))-m(t))*m(c(t~l))+aba(m(c(t-1))-m(c(t-2))) *m( t) 

1380 e=(abs(m(c(t+1))-m(t))+abs(m(c(t-1))-m(c(t-2)))) 

1390 if e=0 then tt(t)=(m(c(t-1))+m(t))/2 else tt(t)=r/e 
1400 next 
1410 /* 

1420 for t=0 to 31 
1430 a0(t)=f(t) 

1440 al(t)=tt(t) 

1450 a2(t) = (3*(f(o(t+l))-f(t))/(xx(c(t+1))-xx(t))-2»tt(t)-tt(c(t+1)))/(xx(c( t 

+1))-xx(t)) 

1460 a3(t)=(tt(t)+tt(c(t+l))-2*(f(c(t+l))-f(t))/(xx(c(t+l))-xx(t)))/pow(xx(c( 

t+1))-xx(t),2) 

1470 for r=0 to11 

1480 paet(192+t*12+r,a0(t)+al{t)*r+a2(t)*r*r+a3(t)*r*r*r,11) 

1490 next 

1500 next 

1510 q=15600#/hz 

1520 p=q/32 : r=0 

1530 for tr0 to 15599 

1540 e=(t/p) mod 32 

1550 z=t/p-int(t/p/32)*32 

1560 z=(z-int(z))*12 

1570 n(t)=a0(e)+al(e)»z+a2(e)*z*z+a3(e)*z*z»z 
1580 next 

1590 for t=0 to 7800 
1600 e=n(t*2+l)-n(t*2) 

1610 if e<0 then e=8-e : if e>15 then e=15 
1620 r=n(t*2+2)-n(t*2+l) 

1630 if r<0 then r=8-r : if r>15 then r=15 
1640 a(t)=e*16+r 

1650 next 

1660 a_play(a,4,3) 

1670 print"a_play(a,4,3) 

1680 end 
1690 func c(t) 

1700 if t=32 then return(t) 

1710 t=(t+32) mod 32 

1720 return(t) 

1730 endfunc 
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値により，3次の多項式を決定するもので 
ある。この方法では与えられた分点を通る 
手書きの曲線に近い自然なものを得ること 
ができる。加えて，ほかの補間法よりもプ 
ログラム化が簡単であるという特徴を持っ 
ている。 

それではアキマの方法のアルゴリズムを 
解説してみよう。ここから先は微分法の知 
識がないとわかりにくいかもしれない。 

アキマの方法 


いま与えられた点を （ XO , fo )， （ XI ， fl )， 
…… ( x „, fn ) として，分割された小区間を 
[Xj ， Xj+1] (ただし， OSjSn -1) とする。 
このときこの閉区間の区分多項式 Pi を， 

Pj = aoj + aiiix — xj ) + a2j ( x — xj ) 2 
十 a 3 j (x — xj ) 3 

とするとき， aoj , aij , a2j ， a 3 j は， 

Pj ( Xj ) =fj 
Pj ( ( xj ) =tj 
Pj ( Xj + l ) = fj+l 
Pj ^ Xj + l ) = tj+l 

により決定される。 tj とは点 Xj における勾 
配であり，アキマの方法の特徴的な変数と 
いえる。それではアキマの方法により，上 
の区分多項式を解くために必要な各係数を 
求めてみよう。 

まず， xj の両側に分点を2個ずつ加えて 

これを図3のように A ， B ， C ， D ， E とする。 

これらの点による線分の勾配を mj -2， mj - i , 

mj , mj + i とすると， 

fi+l — fi 
rrii = - 

Xi+l—Xi 

となる（ただし ， j — + l とする）。 

これにより， Xj における勾配 ti を Xj の両 

側の線分の比例配分と考えて， 

lmj + i—mj lmj - i + lmj - i + mj - 2imj 
= - 

lmj + i—mj I + lmj-i — mj - 2l 
とする。ただし，式の分母が 0 になるとき 
には， 

mj+i H-rrij 
として処理する。 

さて，先ほどの条件式を検討すると， 


図3アキマの方法 



Xj-2 Xj-1 Xj Xj+1 Xj+2 


Pj(Xj)=fj 
上り， 

aoj +aii (xj — xj ) + a2j (xj — xj ) 2 
+ a 3 j ( xj - x ,) 3 = fj 
..aoj = fj 
また， 

Pj ’ ( x ) =aij + 2a2j ( x — xj ) +3 a 3 j 
(x — Xj ) 2 

よって， Pj' (Xj) =tj は， 

aij + 2 a 2 j (xj — x ) +3 a(xj — xj ) = tj 

となり， Pj (Xj+l) =fj+l は， 

aoj -faij ( xi+i — xj ) + a2j ( xj+i — xj ) 2 
+ a 3 j ( xj+i —xj 尸 = fj+i 
aoj = fj , aij=tj を代入して， 

fj +tj ( xj+i — Xj ) + a2j ( xj+i — xj ) 2 

+ a 3 j ( xj+i — Xj ) 3 = fj+i .(1) 

となる。 

Pj’(Xj + l) =tj + l は， 

aij — 2a2j ( xj+i — xj ) +3 a 3 j (Xj+i — Xj) 2 
= tj+i 

図 4 基本的な関数の積分 


となり， aij = tj を代入して， 

tj + 2a2j ( xj + i — xj ) +3 a 3 j ( xj+i — xj ) 2 


= t,+i …… (2) 

となる。 

(1)，（2) の式において， a 2i = X ， a 3 j = Y , 
Xj+i-xj=A と置いて連立すると， 

fj + tjAH - XA 2 + YA 3 = f j+ i ……(1)， 

tj + 2 XA + 3 YA 2 = tj+i …… (2/ 

となる。 

ここで， 3 X(iy — AX (2) ，は， 


3fj + 3tj A + 3XA 2 + 3YA 3 = 3f j+ i 
— ) tjA+2XA 2 H- 3 YA 3 =t j+ iA 

3fj + 2tj A + XA 2 = 3fj-fi-tj+iA 

XA 2 = 3f j+i — 3f j — 2tjA —tj+iA 
3 (f j+i—fj) — A (2tj + tj+i) 

A 2 

また， 2x(lV—Ax(2X は， 

2fj + 2ti A + 2XA 2 + 2 YA 2 = 2f j+ i 
-) tjA + 2XA 2 + 3Y A 3 =t 出 A 

2fj +tjA —YA 3 = 2fj+i—tj+i A 

YA 3 =2fj + tjA - 2fj+i + tj+iA 


⑴ム 1dX = 27T 
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よって， 


A(tj +tj+i) +2(fj +fj+i) 
= A 5 


a 2 j : 


3(fj+i—fj) — (xj+i—Xj) ( 2tj + ti+i) 

(Xj+1-Xj) 2 

0 fi+i-fj 上 

3 - 2tj 一 tj+i 

Xj+l—Xj 


a 3 j : 


Xj+l —Xj 

(xj+i —Xj) (tj +tj+i) +2(fj —fj+i) 


tj + tj+i — 2: 


(Xj+1-Xj) 3 


Xj+l —Xj 


( xj+l — Xj ) 2 

となり，これですベての係数が決定した。 

アキマの方法では区間 [ Xi ， Xj + l ] の条 
件を求めるためには，区間外の点が両側に 
2つずつ必要である。したがって，端点で 
は勾配が決められないので，点を追加する 
必要がある。しかし，ここで扱うのは音声 
データであり，周期関数といえるのでそう 
いった処理は省略することができる。 

これで，すべての小区間に おいて 区分多 
項式 Pi ( x ) を求めることができるようにな 
り，連続的な補間が可能になった。理解し 
ていただけただろうか？ 

波形解析 

さて，すでに音が疑似的な周期関数であ 
ること，ある条件のもとでは周期関数が三 
角関係の和として表されることを述べた。 
これを利用して，先ほどサンプリングし関 
数のかたちに変換された音声を'波形成分に 
分解してみよう。これにはフーリエ級数展 
開と呼ばれる手法を用いる。実際，任意の 
連続関数は周期無限大の周期関数とみなし 
て フーリエ 級数に展開することが可能であ 
る。 

m , n を自然数とするとき， 


ldx = 2?r 


⑴ 


/ cos nx dx = 0, / sin mx dx = 0 
一 " (2,3) 

/ cos mx'cos nx dx = 7r (m = n ) 

“ ⑷ 

〃 =0 ( m ^ n ) 

f sin mx.sin nx dx = ?r (m = n ) 

J ~ n ⑸ 

" =0 ( m ^ n ) 

/ cos mx.sin nx dx =0 (6) 

J—n 

式の頭にある曲がった記号はインテグラ 
ルといい，積分を表す0積分について習っ 
ていない人はとりあえず，グラフの面積を 


図5フーリエ級数展開の実際 

誓 = 堂 ' 1 (aoj + ai j (x - Xj) + a 2 j (x - Xj) 2 + a3 j (x - xj) 3 ) dx j 

= m S Y^aojx+yaij ((x—Xj) 2 —xj 2 ) + ya 2 j((x—Xj) 3 +Xj :, ) + 士 a3j((x - Xj) 4 - Xj 4 )] Xi ] 

= 2 | y ((aojXj+i+-|-aij ((xj+i—xj) 2 — Xj) + y a 2 j ((xj+i-xj) 3 + Xj 3 ) + ^-a3j ((xj+i-xj) 4 - xj 4 )) 
一 (aojXj - yaijXj 2 + ya 2 jXj 3 --^aajXj 4 ) ) J 
= 2 (aoi(xj+i-xj) + yaij(xj+i-xj) 2 + yazj(xj+i-xj) 3 + +a3f(xj+i - Xj) 4 )} 


,=J!: •[ 辛ん (aoj + aij(x + Xj) +a2j(x-Xj) 2 +a3j(x-Xj) 3 )cos^~x dx} 

= 2 仏 [(aoj+aij(Xj+i-Xi)+a2i(x-Xj) 2 +a3i(x-Xi) 3 )sin 爭 x] Xj - 士ム (aij+2a2i(x-Xj) +3ajj(x-xj) 2 )sin^-x dxj 

= 2 |^~^(aoi + aii(xifi-Xj)+a2i(xjH-Xj) 2 +a3i(xj+i-Xj) 3 )sin^Xi+i)-|aoisin^Xj|J + 2^[(aij + 2a2j(x-Xj) 

+3a3j(x_Xi) 2 )cos 早 xJ X | 一 ^^ ん (2a2i+6a3“x-Xj))cos_x dx} 

= 2 |~(((aoi+aii(xj+i~Xi)+a2j(xj+i-Xj) 2 +a3j(xj+i-Xj) 3 )sin^Xj+ij-(aojsin^Xjj)+2^2((aii+2a2j(xj+i-Xj) 

+3a3i(Xi+i-Xj) 2 )cos 亨 Xi”-aucos 亨 Xj)- 点 ^ [(2a2j+6a3i(x-xj))sin 爭 xj Xj ム 6a3j$in^x dxj 

= { 点 (((aoj+aij(Xj+i-Xj) +a 2 j(Xj+i-Xj) 2 +a3j(Xj+i - Xj) 3 )sin_Xj+i)-aojsin_Xi) +^j^((aij+2a2j (Xj+i-Xj) 
+3a3j (xj+i-Xj) 2 )cos^-Xj+i-aijcos^^xjj -^3-- 3 ^(2a2j+6a3j (xjfi-Xj))sin^^xj+i-2a2jsin^xjj 
一 (^ a3i cos ^ x i+i~ 6a3jCOS _ XjJJ 


bn= S |yJ^. *( aoi+aij(x—x,) +a2j(x—xi) 2 + a3i(x—Xj) 3 )sin^^x dxj 
=S | —^： [ (aoj + a i j (x - xj) + a 2 j (x - Xj) 2 + a3j (x - Xj) 3 ) cos^A- x j 
+^r/* x .(aij + 2 a 2 j(x-xj) +3aai (x-xj) 2 ) cos^dx} 

= 2 | 一 K(aoj + aij(XH.i -Xj) +a 2 j(Xj+i-Xj) 2 + ar t (xj h - xj) 3 ) cos^^Xj+i-ao ： 
+ ふ !-: 2 [ (ai j + 2 a 2 i (x _ Xj) + 3a3i (x - Xj) 2 ) sin^^-xj x ， 

~2nV^Xj ( 2a2 i + 6a3 j( x - x i)) sin ^^ x dx } 


2n7t.. 


2 { 一士 (（aoj + aij(xj+i—xj) +a2j(xj+i—Xj) 2 + a3j(xj+i —xj) 3 )cos^^( 卜 i— aojcos^^xi) 
+ 2 n ^2 (( a + 2a2j (Xj+i—Xj) + 3a3j (xj+i — Xj) 2 )sin ^^Xj+i —aij sin 

+ 上 

十 4n 3 7r 3 


|( 2 a 2 j+ 6 a 3 j(x-xj))cos^^xj Xi -^— 3 ^. 6 a 3 jcos^^x dx| 


aoj cos^^Xj) 


=] { 一 "^((3(” +a”(xj+i-xj) +a 2 j(xj+i-Xj ) 2 + a 3 j(xj+i-Xj) 3 )cos^y-Xj+i 
+ 2 nt (^ a, i + 2 a 2 j(xj+i —Xj) + 3 a 3 j(xj+i-xj) 2 )sin^^Xj+i-aij sin^^Xj) 

+ 4 ^3 (( 2a 2i + 6a3j (xj+i - xj)) cos-^- Xj+ 1 - 2a2j cos^^Xj+i^ — j|^6a3j sin^^x^. j 

= 2 〇 {— 士 ((aoj + aij(xj+i—Xj) +a 2 j(xj+i —Xj ) 2 + a 3 j(xj+i —Xj) 3 )cos^^Xj+i —aoj cos^^Xj 
+ 23 2 ^(aij + 2 a 2 j(xj 4 -i—Xj) + 3 a 3 j(xj+i—Xj) 2 )sin^^Xj+i—aij sin^^Xj) 

+ An 3 7 i : ' (^a2j+6a3j(xj^i-Xj))cosXj+i-2a2j cos^^Xj) 


_6 a 3 jT 3 / .2 n ^ 


8n 4 ?r 4 


sin^Xj-H-sin 


2 nn . 
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求めることだと思っておいてほしい。後ろ 
の dx というのは変数 x について積分すると 
いうことを表すもので縁起ものと考えてお 
けばよい。これらの式では X が一 7T 〜 7T ま 
での区間で各関数の X 軸と囲む面積がいく 
らであるかを表している。 X 軸より下の部 
分はマイナスの面積として考えてほしい。 

というわけで，⑴から (6) までの方程式の 
グラフを図4に示す。ちなみに m ， n は自 
然数であればなんでもよいので，もっとも 
単純なかたち ， n = l，m = l とした。 

いま，関数 f ( x ) がすべての実数値に対し 
て定義され，周期が 2； r であるとする。この 
とき f ( x ) が三角級数， 

f u ) =—+ cos nx + bn sin nx ) 

2 n=1 


=—+ (ai cos x + bi sin x ) 

+ ( a2 cos 2x + b2 sin 2 x ) +. 

+ (an cos nx+bn sin nx ) + . 

というかたちで表されたとする。この式の 
両辺に1 ， cos mx，sin mx をそれぞれか 
けて，形式的に項別積分できるものと考え 
て計算すると， 

[f ( x ) dx =— J_dx = 7 rao (1) 

j f ( x)cos mx dx 


= 2 an 
n=l 


J cos nx*cos mx dx = 7 ra m 


(2, 3,5) 


f ( x)sin mx dx 


oo / •n 

= 2 Jbn / sin nx*sin mx dx = 7 rbm 

n=l J—n 


(2, 4, 5) 


となる c 


これらをまとめると周期 2? r の関数は， 
f (x) + 2 (an cos nx + bn sin nx) 

ただし， 

a n = -^J f(x)cos nx dx 

(n = 0， l ，2) 

b n = iy* f (x)sin nx dx 

. (n = l ， 2,3) 

と表される。これがフーリエ級数展開だ。 

さて，フーリエ級数の展開法はわかった 
が，ここで用いるのは区間 2 tt ではない関数 
の展開法である。そこで区間が任意と考え 
た場合のフーリエ級数展開を考えてみよう。 

まず，周期を T と置く。すると基準の区 
間が [-1/2T ， 1/2T] となるので，以下の 
ように変数変換を行う。 

^ = ¥ x ， x= ^ 

この結果， x の区間[一 1/2T ， 1/2T] 

は衣の区間[― TT ，7 T ] に移される0さて， 
このとき， 

であることを考えて先ほどの式を書き換え 
てみると，周期 T なる関数 f(x) のフーリエ 
級数は， 

f (x)2 贊 + 2 o (a n cos^^x + bn sin^?x) 

ただし， 

a n = 辜 ^ l/2T ： f(x)cos^?x dx 

(n = 0,l ， 2 , …… ） 

b n = 亭ム /2T f(x)sin^^x dx 

. (n = l,2,3, …… > 


となる。 

これを実際にアキマの方法で算出した関 
数に適用すれば，求める波形分析が可能に 
なるわけだ。ということで，また計算だが 
今回の式は複雑なのでとても文中には挿入 
できない（難解ではない力”。詳しくは図5 
をじっくりと見ていただきたい。 

なお，リスト4はリスト2と同様な使用 
方法だが，画面上の赤い線が sin 成分，青い 
線力 ? cos 成分を表す。データは32倍波までし 
か取っていない（それ以上が必要とは思わ 
れないが)。ものすごく汚いプログラムなの 
で解析は元の数式を頼りに行ってほしい。 
間違ってもリストを読もうとしてはいけな 

い0 

最後に 

今回はさまざまな方法により ADPCM で 
音を合成することを試みた。特に中心とな 
ったのは周波数変調についてだが，この部 
分さえクリアしてしまえば音量調節や経時 
的変化などは比較的簡単に解決できるもの 
である。 

AD PCM の問題点は量子化ビット数が 
4ビットと小さく，音質がいまいちという 
ことであろう。これはサンプリング周波数 
を上げることができれば解決される問題だ。 
たとえばサンプリング周波数が現在の8倍 
であれば，理論的には CD と同等の音質を 
得ることができる。つまり，1/8倍速でサン 
プリングして処理し，8倍速で再生してや 
ればよいわけだ（？）。こういったものは実 
用的ではない力 5 '，やろうと思えばサンプリ 
ングに不可能はないのだ。要は心意気。こ 
れを機会に X 68000 のもうひとつの音楽デバ 
イスを見直してみてほしい0 


リスト4波形分析 


1000 int t. , r = 256 ,e , w, x ,y , xl,yl,x2 , y2 ,n(1999y ) , hz = 8：i 

1010 float z,q,m(99) ,tt(99),x\(99),f(99),a0{99),al(99),a2(99),a3(99) 
1020 char a(7800 ) 

1030 float p,pai=3.1415926535898# 

1040 str k 

1050 fread(a,7800•fopen("bach.pern","r")) 

1060 fcloseall() 

1070 screen 2,0,1,1 
1080 for t=l to 383 
1090 w=r 

1100 e = a ( t. + 0 ) shr 4 
1110 if e> 7 then e = 8-e 
1120 r=r+e 

1130 line{t*2-l,w,t*2 f r,15) 

1140 n(t*2)=r 

1150 w=r 

1160 e=a{t) and 15 

1170 if e>7 then e = 8-e 
1180 r=r+e 

1190 line(t*2,w,t*2+l,r,15) 

1200 n(t*2+l)=r 

1210 next 

1220 /*k=inkey$ 

1230 a_play(a,4,3) 

1240 print’.start point" 

1250 repeat 
1260 mspos(x,y) 

1270 msatat(w,w,r,w) 

1280 until r=-l 
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1290 xl=x 
1300 yl=y 
1310 print. x，y 
1320 for t=0 to 500 
1330 next 

1340 print"end point" 

1350 repeat 
1360 mspos{x,y) 

1370 msstat(w,w,r,w) 

1380 until r=-l 

1390 x2=x 

1400 y2=y 

1410 print x,y 

1420 r=x2-xl 

1430 pr 1#* (y2-yl)/r 

1440 for t=x1 to x2 

1450 n(t)=n(t-xl) 

1460 pseUt ,nlt),13) 

1470 next 

1480 screen 2,0,1,1 

1490 console ,,0 

1500 box(192,128,576,383,15) 

1510 line(192,256,576,256,14) 

1520 line(384,128,384,383,14) 

1530 p=r/32# 

1540 f(0)=256 
1550 for t=0 to 32 
1560 xx(t)=192 + t* 12 
1570 f(t)=n(xl+p*t) 

\580 next 

1S90 for fr=« to : <2 

1600 m(t) = (f(c{t + 1))-f(t))/(xx(c(t+1))-xx(t)) 

1610 next 

1620 for t=0 to 32 

1630 r=abs(m(c( t+1))-m( t) ) *m(c{ t-1))+abs (m( c( t -1))-m(c( t-i：) ) ) *m( t) 

1640 e=(abs(m(c(t+l))-m(t))+abs(m(c(t-1))-m(c(t-2)))) 

1650 if e = 0 then tt (t) = (m( c(t-1))+m( t.) )/2 else tt( t) =r/e 
1660 next 
1670 /* 

1680 for t=0 to 31 
1690 aO(t)=f(t) 

1700 al(t)=tt(t ) 

1710 a2( t ) = (3#( f (c(t + J ) )-f (t) )/(xx(c( t+1) )-\x{ t.) )-2 * 1 1 ( t) -11 < c( t + 1))> / « xx { c (t 

+ 1) 丨 -xx(t)) 

1720 a3(t) = (tt{t) + tt(c(t+l))-2»(f(c{t+l))-f(t))/(xx(c(t-HJ )-xx( t.) ) ) /pow( xx(c( 

t+1 I)-xx(t),2) 

1730 for r=0 to11 

1740 pset.( l92 + t*12 + r,a«( t )+al(t > 拿 r + 11 * r 本 r+a3 (t > ♦ r 本 r ， U » 

1750 next 
1760 next 
1770 /t 
l7 H0 wipe() 

1790 els 

1800 print •• 解析の結果 .. • 

1810 z=(x2-xl)/15600# 

1820 box(0,0,767,16,15) 

1830 line(0, 256,767 ,256,15) 

1840 print" 冏波数 ： '* ； 1/z 
1850 p=0 

1860 for t=0 to 32 
1870 xx(t)=z/32*t 
1880 next 
1890 p=0 
1900 q=0 

1910 for t=0 to 32 
1920 tt(t}=0 
1930 m(t)=0 

1940 next 

1950 for t=l to 32 
1960 for e=0 to 31 

1970 m( t) =m( t) ■<■ ( <a0( e ) -t^a 1(e ) *(xx( e-t-1)-xx(e) ) +a2( e ) *pow(xx(e+1)-xx(e) , 2 ) +a3( 

e)*pow(xx(e+1)-xx(e),3))*sin(2<t*pai*xx(e+l)/z)-a0(e)*sin(2*pai*t*xx(e)/z))/(t *p 
ai ) 

1980 m(t)=m(t)+z*((al<e}+2 拿 a2{e}*(xjc<e+l>-xx(e}}+3 本 *pow(\\(e +1)-x x(e), 

2 ) )*coa(2*t*pai*xx(e+l)/z ) -a 1(e ) *cos (2 拿 t 本 pai 本 xx(e}/z> ) / ( 2 * pox%' (t *pa i , 2 ))' 

1990 本 z*( (2<a2{el+ti 本 a3(e} 本 （ jcx{e+l)-\x l e ) I ) *sin( 2<t*pai *xx(e+l)/z 

)-2*a2(e)*sin(2*t*pai*xx(e)/z))/(4*pow(t^pai,3)) 

2000 本 cos { 2t t *pai *xx ( e+1)/z ) -cos (2 窣 本 w<e>/z} }/ 

(8*pow(t*pai,4 )) 

2010 tt(t)=tt(t)-((a0(e)+al(e)*(xx(e+l)-xx(e))+a2(e)»pow(xx» e+l)-\x(e),2)+a 

3(e) *pow( xx ( e+1)-xx ( e ) , 3 ) }*cos<2 本 t 本 pai 本 xx<e+l)/z ) -a0 ( e ) 拿 cos {2*t 本 pai^wteJ/zJ ) / ( t k 

本 pai ) 

2020 tt{t>=tt(t)+z*({al(e}+2<a2<el*<xx<e+l>-xx(e}}+a3|e> *pow(xx(e+1)-xx(e), 

2 ) > 本 sin(2 本 t 本 pai 聿 xx(e+l}/z>-al(el 本 sin{2 拿 t*pai*xx(e)/z}) / (2 本 pow(t 本 pai•2)) 

2030 tt;(t)=tt{t)+z<z*( (2 本 £12(6}+6 拿 £13(6> 拿 {>:?4(6+1>->:?:(6}}} 寒 cos < 2 本 t * pa i * xx { e+ 1} 

/z)-2*a2(e)*cos(2*t*pai#x\(e)/z))/(4 *pow(ttpai,3)) 

2040 = 零 z 本 6 本本 （ sin{2*t. 拿卩 £11 本？（ \{0+1)/2 ： 1-£51_11{2 拿七拿 ^)811 拿 >::<{0}/2> 

) / (8*pow(t»pai,4)) 

2050 next 
2060 next 

2070 for t =1 to 32 

2080 if p く abs ( m ( t.) ) then p=abs ( m (t)) 

2090 if p < abs(tt{t)) then p=abs(tt(t)) 

2100 next 
2110 q=200#/p 
2120 for t=1 to 32 

2130 ii LI ( け - 1)»24f6,li56, ( t-1)*kJ4+l1 t 256-q*m( t ： ) , 2) 

2110 Hil((t-l)*Z4+-12,256 ,(t-l>»^4 + l 7,id5b-q*t.tl l) , i) 

2150 next 
2160 end 
2170 func c(t) 

2180 if t=32 then return(t) 

2190 t=(t+32) mod 32 

2200 return(t) 

22 10 f*ndfunc 
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特集 M の夜の数値演算-- 

数値演算プロセッサの活用 FLOAT3+.X 

— 

X 68000 で数値演算といえば，6888彳を使った数値演算ボードを忘れることはできませ /C Nagai Ki Y oshi 民 井 清 

しかし， FLO AT 3. X を導入したものの，いまひとつ実行速度で不満のある方もいるので Hirano Teruhiko 平野照比古 

はないでしょうか 0 そこで完全コンパチの高速版， FL 0 AT 3 + . X をお届けしま Nakano Shuichi ff — 


X 68000 による実数演算 

すでにご存じのように， X 68000 では浮動 
小数点 i 寅算は FLOATn . X というデ、パ、イスド 
ライバによって実行します。これは68020の 
コードのうちの FE 系列にあたるユーザー 
定義コプロセッサ命令を用いることでデバ 
イスドライバを呼び出し，演算を実行して 
います。 

もともと，こういった命令は68000にとっ 
ては未実装命令ですので実行しようとする 
とトラップが発生し，所定の例外処理ルー 
チンに制御が移されます。その飛び先で実 
数演算をまとめて行えば，デバイスドライ 
バの交換で，浮動小数点演算プロセッサを 
つけたマシンとつけていないマシンとで， 
まったく同じオブジエタトコードが実行で 
きるわけです。これが X 68000 の数値演算の 
方法です。 

ちなみに，68020の F 系列の命令コード 
(命令コードが16進数の F で始まるもの） 

は， 

15 丨丨 9 _5_3_0 


レジスタ 
—モード 

-コプロ ID 

---—— F ( 川 1b) 

のような構成になっており， 「 FE 系列の命 
令 j とはコプロセッサ ID 番号が7#にあた 
るコプロセッサを動かすための命令に対応 
します。同様な方法による OS の ファンクシ 
ヨン コールは FF 系列のコードを使っていま 
したが，これも ID 番号7にあたるコプロセ 
ッサ用命令エリアを使用しているわけです。 
Macintosh の Toolbox 呼び出しを見てもわか 
るように，こういった手法は68000系プロセ 
ッサの ファンクシヨン コールの常套手段と 
いえるものでしよう。 

Oh ! X 1988.8. 


コプロセッサインタフェイス 

それでは，こういうとき決まって引き合 
いに出される，68020のコプロセッサインタ 
フェイスというものについて，ざっと解説 
してみましょう。 

現在，モトローラからコプロセッサとし 
て発表されているのはメモリ管理ユニット 
68851 ( ID 0) と浮動小数点演算プロセッサ 
68881，68882 ( ID 1) だけですが，68020で 
はユーザーが自由にコプロセッサを設計で 
きるように，コプロセッサインタフェイス 
が公開されています。これはメインプロセ 
ッサとどのようにデータをやりとりする力*， 
コプロセッサに必要なハードウェアはなに 
かなどといった情報をまとめて表したもの 
です。 

まず，すべてのコプロセッサは図1のよ 
うなレジスタを備えていなければなりませ 
ん（一部は省略可)。コプロセッサを組み込 
んである場合，まず MPU は命令をデコード 
し， F 系列の命令かどうかを確認して F 系 
列の命令ならば，コプロセッサのコマンド 
レジスタにコマンドワードを書き込みます0 
コプロセッサはコマンドを評価し，パラメ 
ータに応じてメインプロセッサと双方向通 
信を始めます。先ほど示した F 系列の命令 
の直後にはコマンドワードが，その後ろに 
は拡張ワード群が並んでいますが，これら 
の命令は次々とコプロセッサに送られるわ 
けです。 

68020ではアセンブラの1命令でこれら 
の動作が自動的に行われますが，68000など 
ではこういった操作をプログラムによって 
ェミュレート しなければなりません0 

68881の概要 

X 68000の数値演算ボードに取り付けら 
れている68881浮® J 小数点演算プロセッサ 
の演算フォーマットは IEEE 754 という2進 
浮®小数点演算規格に完金準拠しています。 
また，68881は独自の内部レジスタとして浮 


動小数点演算用に8つの80ビットレジスタ 
( FP 0 〜 7) とステータスレジスタ，制御 
レジスタ，命令アドレスレジスタを備えて 
います。 

まずは浮動小数点レジスタから見てみま 
しょう。通常， X 68000の浮動小数点演算と 
いえば，64ビットの倍精度演算を指します 
が，68881の内部ではすべての演算は96ビッ 
卜の拡張精度演算で行われます（実際には 
96ビットのうちの80ビット分だけが使われ 
る）。拡張精度のフォーマツトを以下に示し 
ます。 


95 94 80 63 0 









-仮数部 64 ビット 

ね由田 


4to3Wr3iRlC k 


符号ビット 


未使用の部分は将来的な拡張用というこ 
とであり，使用する際には0で埋めるよう 
に指導されています。 

ステータスレジスタや制御レジスタは32 
ビットの レジスタを1 バイト ずつ4つに分 
けて別々の目的に使用されます。これらは 
例外処理などの際に使用されたり，フラグ 
の役目をするレジスタです。最後の命令ア 
ドレスレジスタは68020と 並行動作してい 
る際の浮動少数点例外発生アドレスを調べ 
るために使われます。このあたりの詳しい 
ところは 『 MC 68881 ユーザーズ •マニュア 
ル』を 参照してください0 

命令セットについて 

68881 は 1 個の MPU なのですが，数値演 
算専用に 68020 と組み合わせて使うことを 
意識して作られて いるた め， ふつうの マイ 
クロフ。ロ セッサの ような ブログラムを 作る 
ことはできません。データの移動や演算， 
分岐命令はあっても 68881 自体ではアドレ 
ス計算は行うことはできず， 68020 に対して 






























オペランドを要求するわけです。命令は大 
きく，入出力（データ転送）命令，レジス 
夕間データ転送命令，単項/二項演算命令， 
分岐命令などを備えており，ふつうの CPU 
が整数の加算を行うように，やすやすと倍 
精度関数演算をこなしてしまいます。 

はっきりいってこの68881という石は利 
口な石です。内蔵された関数は BASIC のそ 
れよりも多く ， Hyperbolic tangent (双曲線 
正接）を求めるといった操作なら ， BASIC 
や C 言語を使うよりもアセンブラのほうが 
簡単かもしれません。 

FLOAT 3 +.X 

以前， X 68000 に Xlturbo の WORD POW 
ER を移 f 直した 長 井さんによる プログラム 
です。 プログラムの 名前から だいたいの 見 
当はつくでしょうが， FL 0 AT 3. X を解析 
して無駄と思われる部分を改善したものが 
この FL 0 AT 3+. X です。基本的なアルゴリ 
ズムは 同じでも，平均25%程度速度が上が 
り，かつ プログラムサイズ も小さくなって 
います（注：十は全角です）。 

残念ながらソースリストを掲載するスぺ 
ースがないのですが， 62 K バイトに及ぶ逆 
アセンブルリストと格闘した長井さんには 
まったく脱帽です。このプログラムでは明 



自己平方フラクタル C-TRACE68 の実行結果 


らかに無駄と思われるフラグチェックはし 
ない，できるだけレジスタを使用するよう 
に心力 ？ けるといった方針でプログラムされ 
ています。数値演算プロセッサを入手され 
ている方はぜひ活用してみてください（ダ 
ン プリストは6 月号の マシン語 入カツール 
を使用して打ち込んでください）。 

以下に FL 0 AT 2. X ， FL 0 AT 3. X，FLOA 
T 3 + . X による演算速度変イ匕を見てみましょう。 

より現実的なプログラムで実験してふま 
しょう 。 Oh ! X 1988 年2月号に掲載された 
自己平方フラクタルのプログラムを実行し 
た結果， FL 0 AT 2 .X (68881 なし）では18時 
間16分4秒， FL 0 AT 3. X では9時間20分45秒， 
そして FLOAT 3 + . X では5時間44分31秒と 
なりました。 

市販のソフトウェアに対してはどうでし 
よう力以下は C - TRACE68 でレイトレーシ 


ングを行った際の，描画時間を比べたもの 
です（3八]\^1^2，八1^八=512\512，3丁 

EP =2,2) 0 

FL 0 AT 2 .X 9時間26分45秒 

FL 0 AT 3 .X 3時間18分28秒 

FL 0 AT 3 +.X 2時間25分41秒 
当然ながら，浮動小数点演算プロセッサ 
なしの場合は圧倒的に遅いことがおわかり 
でしよう。いまのところ， FL 0 AT 3+. X で 
もほとんどのソフトは支障なく動作するよ 
うです。 

8086系のマシ ン では コン ハ。イラなどで8087 
オプションを指定すると，劇的に高速化さ 
れるのに対して， X 68000 ではそれほど極端 
には速くなりません（もちろん， 80 x 86 マシ 
ン 用の コ プロ対応プログラムを コブ ロを持 
たないマシンで実行すれば一■生かかっても 
結果は出てきませんから，一概に遅いとは 


図1コプロセッサのレジスタ 


アドレス 

名称 

$00 

レスポンスレジスタ 

$02 

コントロールレジスタ 

$04 

セーブレジスタ 

$06 

リストアレジスタ 

$08 

オペレーシヨンレジスタ 

$0A 

コマンドレジスタ 

$0E 

コンデイシヨンレジスタ 

$ 10 

オペランドレジスタ 

$ 14 

レジスタセレクトレジスタ 

$ 18 

インストラクシヨンアドレスレ 
ジスタ 

$ 1 C 

オペランドアドレスレジスタ 


ット長 

リード/ 
ライト 

必須 

機能 

16 

R 

〇 

メインプロセッサへのサービス要 
求 

16 

W 

〇 

ェクセプションクリア，アポート 
の指不 

16 

R 

〇 

内部状態退避の開始を指示 

16 

R/W 

〇 

内部状態の回復の開始を指示 

16 

W 

〇 

オペレーションワードを受け取る 

16 

W 

〇 

コマンドワ ー ドを受け命令を開始 

16 

W 

〇 

条件選択コードを受け命令を開始 

32 

R/W 

〇 

あらゆるオペランド，データの受 
け渡し 

16 

R 


レジスタ選択コードを示す 

32 

R/W 


コプロセッサ命令のアドレスを格 
納 

32 

R/W 


オペランドの実効アドレスを格納 


構成 


CA I>C] フアンクシヨン I: パラメータ 


不使用 


]XA [XB I 


フオーマツトコード厂 バイト長 


フオー7ツト」ート] ノ、イト長 ] 


オペレーシヨンワ 


コマンドワード 


不使用 


I 条件 ■コード j 


-各種- 


レジスタ コード 
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0100 

0108 

0110 

0118 

0120 

0128 

0130 

0138 

0140 

0148 

0150 

0158 

0160 

0168 

0170 

0178 


SUM ： CA 53 9C 24 7F 53 84 5E 


FI 

E9 

79 

6C 

EF 

72 

96 

06 

D5 

4F 

9E 

4E 

•1G 

C4 

9A 

AD 


SUM ： 

FI 

60 

3D 

40 

9F 

96 

7F 

9B 1C34 

0180 

01 

FF 

70 

80 

4E 

4F 

23 

C0 

70 

0188 

00 

00 

01 

7E 

4E 

75 

42 

90 

14 

0190 

20 

10 

48 

40 

33 

C0 

00 

E9 

94 

0198 

E0 

06 

32 

00 

02 

41 

FF 

00 

5A 

01A0 

67 

14 

41 

F9 

00 

E9 

E0 

10 

8E 

01A8 

12 

00 

E4 

09 

48 

81 

53 

41 

5C 

01B0 

20 

90 

51 

C9 

FF 

FC 

20 

79 

5E 


いえません力”。その代わり，どのマシンで 
も同じオブジェクトが実行でき，数値演算 
ボードを組み込むだけですベてのアプリヶ 
ーシヨンが高速化されるのです。将来，688 
82ボードと専用ドライバが出現してくれば， 
もっと楽しくなることでしょう。 

また，今回の FLOAT 3+. X の例を見ても 
わかるように，デバイスドライバの部分が 
最適化されていくと，ハードウェアが同じ 
でもすベてのものが高速化されていくので 
す。こうなると， FLOAT 2. X も最適化すれ 
ばもっと速くなるのではないかという気が 
してきませんか？ というわけで ， FLOA 
T 2 +• X など作ってみたいという方も歓迎い 
たします。 

参考までに68000で68881アセンブリ言語 
から直接扱うためのマクロ群を紹介しまし 
よう（リスト2 FPPMAC . H )。 これは平野 
さんの投稿によるもので，演算プロセッサ 
に対し直接的な操作をすることで68881の 
能力を十分に引き出すことができます。 

これらのマクロは，具体的にはコプロセ 
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ッサとメイン フロ セッサ間のデータ転送を 
行う命令群が用意されています。数値演算 
プロセッサのデバイスアドレス指定は A 5 
を用いて行われていますが，これはアセン 
ブル時に発生するアブソリュートアドレシ 
ングという警告をできるだけ少なくするた 
めです。68881のデバイスアドレスはユーザ 
ーモードからアクセスできない領域なので， 
必ずスーパーバイザモードに切り換えてか 
ら実行せねばなりません。 

マクロの定義部を見ればおおよその使い 
方はわかると思いますが，具体的な使用例 
として2月号で掲載された自己平方 フラク 
タルのプログラムをリス ト1,2 に 挙げておき 
ます。 FLOAT 3+. X が多少速いといっても， 
石の性能を考えると十倍の速度でもおかし 
くはありません。参考まで にこの マクロを 
使って68881を直接ドライブしてやる場合， 
このフラクタル 図形を描き終えるまで1時間 
とかかりません。気持ちがいいほどの高速 
さです。 

実行方法は前もって FRFPP . S をアセンブ 

リスト 1 FLOAT3+.X 
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ノレしておき， 

CC FRACT.BAS FRFPP .0 

として，コンパイラでリンクしてください。 
これで実行ファイル FRACT . X ができあが 
ります。 

このようにすると確かに計算速度は向上 
するのですが，プログラムの実行には68881 
が必須となります。どのようなマシンでも 
まったく同じプログラムが動作する FLOA 
Tn . X の発想に比べると美しくないことは 
否定できません。自分ひとりで使うことし 
か考えないのであればともかく，少しでも 
他人に見せることを考えるなら，ハードウ 
ヱアチヱックを行って2種類の演算処理部 
を切り換えるといった処理が必要となるで 
しよラ。 
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4F 

06B0 

4E 

75 

48 

E7 

80 

00 

4C 

D6 

94 

06B8 

00 

01 

61 

00 

10 

00 

48 

D6 

90 

06C0 

00 

01 

4C 

DF 

00 

01 

4E 

75 

F0 

06C8 

48 

E7 

80 

00 

4C 

D6 

00 

01 

1)2 

06D0 

61 

00 

0F 

AE 

48 

D6 

00 

01 

3D 

06D8 

4C 

DF 

00 

01 

4E 

75 

48 

E7 

IE 

06E0 

C0 

00 

4C 

D6 

00 

03 

61 

00 

46 

06E8 

10 

B2 

48 

D6 

00 

03 

4C 

DF 

0E 

06F0 

00 

03 

4E 

75 

48 

E7 

C0 

00 

Q5 

06F8 

4C 

D6 

00 

03 

61 

00 

10 

30 

C6 

SUM ： 

13 

8E 

48 

C3 

5E 

50 

6B 

98 3EAF 

0700 

48 

D6 

00 

03 

4C 

DF 

00 

03 

4F 

0708 

4E 

75 

48 

E7 

F0 

00 

4C 

D6 

04 

0710 

00 

0F 

61 

00 

14 

02 

4C 

DF 

B1 

0718 

00 

0F 

4E 

75 

48 

E7 

C0 

00 

Cl 

0720 

4C 

D6 

00 

03 

61 

00 

15 

A4 

3F 

0728 

4C 

DF 

00 

03 

4E 

75 

4E 

75 

B4 

0730 

48 

E7 

20 

00 

61 

00 

12 

F4 

B6 

0738 

4C 

DF 

00 

04 

4E 

75 

4A 

81 

BD 

0740 

67 

10 

48 

E7 

30 

00 

61 

00 

37 

0748 

13 

98 

22 

02 

4C 

DF 

00 

0G 

06 

0750 

4E 

75 

00 

3C 

00 

01 

4E 

75 

C3 

0758 

24 

00 

08 

82 

00 

IF 

84 

81 

D2 

0760 

67 

20 

24 

00 

C4 

BC 

7F 

F0 

9A 

0768 

00 

00 

El 

9A 

E9 

9A 

94 

BC 

4E 

0770 

eo 

00 

03 

FF 

C0 

BC 

80 

0F 

0D 

0778 

FF 

FF 

80 

BC 

3F 

F0 

00 

00 

69 

SUM ： 

14 

20 

u 

65 

IE 

B3 

DD 

03 96F7 

0780 

4E 

75 

42 

80 

42 

81 

42 

82 

0C 

0788 

4E 

75 

48 

E7 

20 

00 

D4 

BC 

A2 

0790 

00 

00 

03 

FF 

2F 

02 

24 

00 

57 

0798 

08 

82 

00 

IF 

84 

81 

67 

30 

45 

07A0 

24 

00 

C4 

BC 

7F 

F0 

00 

00 

13 

07A8 

El 

9A 

E9 

9A 

94 

BC 

00 

00 

4E 

07B0 

03 

FF 

D4 

9F 

67 

26 

B4 

BC 

72 

07B8 

00 

00 

07 

FF 

64 

IE 

E8 

9A 

0A 

07C0 

E0 

9A 

C0 

BC 

80 

0F 

FF 

FF 

83 

07C8 

80 

82 

4C 

DF 

00 

04 

4E 

75 

F4 

07D0 

58 

8F 

42 

80 

42 

81 

4C 

DF 

97 

07D8 

00 

04 

4E 

75 

00 

3C 

00 

01 

04 

07E0 

4C 

DF 

00 

04 

4E 

75 

22 

00 

14 

07E8 

C2 

BC 

7F 

FF 

FF 

FF 

67 

IE 

7F 

07F0 

C2 

BC 

7F 

80 

00 

00 

El 

99 

F7 

07F8 

E3 

99 

92 

BC 

00 

00 

00 

7F 

49 

SUM ： 

17 

A4 

41 

48 

02 

38 

40 

4E 6F10 

0800 

C0 

BC 

80 

7F 

FF 

FF 

80 

BC 

: B5 

0808 

3F 

80 

00 

00 

4E 

75 

42 

80 

: 44 


0810 

4E 

75 

48 

E7 

40 

00 

D2 

BC 

C0 

0818 

00 

00 

00 

7F 

2F 

01 

22 

00 

D1 

0820 

C2 

BC 

7F 

FF 

FF 

FF 

67 

2E 

8F 

0828 

C2 

BC 

7F 

80 

00 

00 

El 

99 

F7 

0830 

E3 

99 

92 

BC 

00 

00 

eo 

7F 

49 

0838 

D2 

9F 

67 

24 

B2 

BC 

00 

00 

6A 

0840 

00 

FF 

64 

1C 

E2 

99 

E0 

99 

73 

0848 

C0 

BC 

80 

7F 

FF 

FF 

80 

81 

7A 

0850 

4C 

DF 

00 

02 

4E 

75 

58 

8F 

D7 

0858 

42 

80 

4C 

DF 

00 

02 

4E 

75 

B2 

0860 

00 

3C 

00 

01 

4C 

DF 

00 

02 

6A 

0868 

4E 

75 

20 

3C 

49 

45 

45 

45 

37 

0870 

22 

3C 

46 

50 

4 3 

50 

4E 

75 

4A 

0878 

0D 

0A 

95 

82 

93 

AE 

8F 

AC 

AA 

SUM ： 

51 

72 

EA 

CF 

07 

61 

26 

C4 8F64 

0880 

90 

94 

93 

5F 

89 

89 

8E 

5A 

10 

0888 

20 

43 

6F 

2D 

50 

52 

4F 

43 

33 

0890 

45 

53 

53 

4F 

52 

20 

44 

52 

42 

0898 

49 

56 

45 

52 

20 

66 

6F 

72 

9D 

08A0 

20 

58 

36 

38 

30 

30 

30 

20 

96 

08A8 

76 

65 

72 

73 

69 

6F 

6E 

20 

26 

08B0 

31 

2E 

31 

58 

0D 

0A 

81 

69 

E9 

08B8 

82 

68 

82 

64 

82 

64 

82 

64 

9C 

08C0 

83 

74 

83 

48 

81 

5B 

83 

7D 

9E 

08C8 

83 

62 

83 

67 

81 

6A 

0D 

0A 

D1 

08D0 

00 

00 

61 

12 

64 

0E 

B0 

3C 

D1 

08D8 

00 

41 

65 

08 

B0 

3C 

00 

5B 

F5 

O8E0 

0A 

3C 

00 

01 

4E 

75 

BO 

3C 

F6 

08E8 

00 

61 

65 

08 

B0 

3C 

00 

7B 

35 

08F0 

0A 

3C 

00 

01 

4E 

75 

B0 

3C 

F6 

08F8 

00 

30 

65 

08 

B0 

3C 

00 

3A 

C3 

SUM ： 

A1 

F3 

8B 

6F 

85 

DF 

D1 

B9 9F65 

0900 

0A 

3G 

00 

01 

4E 

75 

B0 

3C 

F6 

0908 

00 

30 

65 

08 

B0 

3C 

00 

32 

BB 

0910 

0A 

3C 

00 

01 

4E 

75 

B0 

3C 

F6 

0918 

00 

30 

65 

08 

B0 

3C 

00 

38 

Cl 

0920 

0A 

3C 

00 

01 

4E 

75 

61 

CE 

39 

0928 

64 

1A 

B0 

3C 

00 

41 

65 

14 

24 

0930 

B0 

3C 

00 

47 

65 

0A 

BO 

3C 

8E 

0938 

00 

61 

65 

08 

B0 

3C 

00 

67 

21 

0940 

0A 

3C 

00 

01 

4E 

75 

61 

9E 

09 

0948 

65 

04 

90 

3C 

00 

20 

4E 

75 

18 

0950 

61 

84 

65 

04 

D0 

3C 

00 

20 

7A 

0958 

4E 

75 

61 

F4 

B0 

3C 

00 

61 

65 

0960 

65 

04 

D0 

3C 

FF 

D9 

D0 

3C 

59 

0968 

FF 

DO 

4E 

75 

74 

0E 

2F 

08 

4B 

0970 

61 

00 

05 

B2 

20 

57 

61 

08 

F8 

0978 

20 

5F 

61 

00 

06 

7E 

4E 

75 

27 

SUM ： 

35 

37 

B9 

36 

C6 

27 

33 

BC 1133 

0980 

10 

18 

67 

12 

BO 

3C 

00 

2E 

BB 

0988 

66 

F6 

10 

10 

61 

00 

FF 

68 

44 

0990 

64 

04 

53 

88 

61 

02 

4E 

75 

69 

0998 

10 

E8 

00 

01 

66 

FA 

4E 

75 

1C 

09A0 

48 

E7 

E0 

40 

4F 

EF 

FF 

F0 

7C 

09A8 

22 

48 

20 

4F 

61 

58 

20 

4F 

01 

09B0 

61 

IE 

74 

20 

92 

00 

6B 

08 

18 

09B8 

67 

06 

12 

C2 

53 

01 

60 

F6 

EB 

09C0 

20 

4F 

61 

1A 

20 

49 

4F 

EF 

91 

09C8 

00 

10 

4C 

DF 

02 

07 

4E 

75 

07 

09D0 

42 

80 

4A 

10 

67 

06 

52 

88 

63 

09D8 

52 

80 

60 

F6 

4E 

75 

12 

D8 

D5 

09E0 

66 

FC 

53 

89 

4E 

75 

10 

18 

29 

09E8 

66 

06 

4A 

11 

66 

12 

4E 

75 

02 

09F0 

12 

19 

67 

06 

B0 

01 

67 

EE 

9E 

09F8 

4E 

75 

44 

FC 

00 

00 

4E 

75 

C6 

SUM ： 

FC 

3C 

EF 

B7 

A8 

D3 

99 

71 5D8D 

0A00 

44 

FC 

00 

01 

4E 

75 

48 

E7 

33 

0A08 

El 

60 

4E 

56 

FF 

F6 

22 

4F 

4B 

0A10 

45 

FA 

00 

56 

42 

47 

4A 

80 

E8 

0A18 

6A 

04 

44 

80 

46 

47 

24 

12 

F5 

0A20 

67 

12 

42 

01 

52 

01 

90 

82 

21 

0A28 

64 

FA 

D0 

82 

53 

01 

12 

Cl 

D7 

0A30 

58 

8A 

60 

EA 

42 

01 

22 

4F 

E0 

0A38 

4A 

11 

66 

0A 

52 

89 

52 

01 

F9 

0A40 

B2 

3C 

00 

09 

65 

F2 

4A 

47 

DF 

0A48 

67 

04 

10 

FC 

00 

2D 

10 

19 

CD 

0A50 

DO 

3C 

00 

30 

10 

C0 

52 

01 

5F 

0A58 

B2 

3C 

00 

0A 

65 

F0 

42 

10 

9F 

0A60 

4E 

5E 

4C 

DF 

06 

87 

4E 

75 

27 

0A68 

3B 

9A 

CA 

00 

05 

F5 

El 

00 

7A 

0A70 

00 

98 

96 

80 

00 

0F 

42 

40 

3F 

0A78 

00 

01 

86 

A0 

00 

00 

27 

10 

5E 

SUM ： 

65 

4A 

AC 

E2 

F3 

DF 

74 

91 B45A 

0A80 

00 

00 

03 

E8 

00 

00 

00 

64 

4F 

0A88 

00 

00 

00 

0A 

00 

00 

00 

01 

0B 

0A90 

00 

00 

00 

00 

61 

00 

04 

46 

AB 

0A98 

B0 

3C 

00 

26 

66 

00 

01 

FE 

77 

0AA0 

52 

88 

10 

18 

61 

00 

FE 

A0 

01 

OAA8 

B0 

3C 

00 

42 

67 

12 

B0 

3C 

93 

0AB0 

00 

4F 

67 

12 

B0 

3C 

00 

48 

FC 

0AB8 

67 

12 

44 

FC 

00 

09 

4E 

75 

85 

0AC0 

61 

00 

01 

1A 

60 

0A 

61 

00 

47 

0AC8 

00 

9C 

60 

04 

61 

00 

00 

E0 

41 

0AD0 

65 

08 

61 

00 

0E 

26 

44 

FC 

42 

0AD8 

00 

00 

4E 

75 

48 

E7 

7F 

00 

71 

0AE0 

4H 

56 

00 

00 

42 

80 

61 

00 

C7 

0AE8 

03 

F4 

67 

4 4 

61 

00 

03 

D8 

DE 

0AF0 

10 

10 

61 

00 

FE 

02 

65 

38 

IE 

0AF8 

90 

3C 

00 

30 

42 

81 

12 

00 

D1 

SUM ： 

D0 

9B 

96 

87 

39 

71 

00 

2E C0F1 

0800 

52 

88 

10 

10 

61 

00 

FD 

F0 

: 48 

0BO8 

65 

32 

90 

3C 

00 

30 

2F 

01 

: C3 


0B1O 

E3 

89 

65 

10 

E3 

89 

65 

0C 

BE 

OB 18 

D2 

9F 

65 

08 

E3 

89 

65 

04 

B3 

OR20 

D2 

80 

64 

DC 

4E 

5E 

4C 

DF 

69 

0B28 

00 

FE 

44 

FC 

00 

03 

4E 

75 

04 

0B30 

4E 

5E 

4C 

DF 

00 

FE 

44 

FC 

15 

0B38 

00 

09 

4E 

75 

4A 

47 

6B 

12 

DA 

0B40 

4A 

81 

6B 

E0 

20 

01 

4E 

5E 

H3 

01348 

4C 

DF 

00 

FE 

44 

FC 

00 

00 

69 

0B50 

4E 

75 

4A 

81 

6A 

0A 

B2 

BC 

70 

0B58 

80 

00 

00 

00 

67 

E6 

60 

C4 

FI 

0B60 

44 

81 

60 

E0 

2F 

01 

42 

80 

F7 

0B68 

10 

10 

61 

00 

FD 

AA 

65 

36 

C3 

OB70 

90 

3C 

00 

30 

22 

00 

52 

88 

F8 

0B78 

10 

10 

61 

00 

FD 

9A 

65 

14 

91 

SUM ： 

E4 

79 

83 

FF 

3F 

1A 

FD 

93 D81C 

0B80 

E3 

89 

65 

1A 

E3 

B9 

65 

16 

D2 

0B88 

E3 

89 

65 

12 

90 

3C 

00 

30 

I)F 

OB90 

82 

00 

60 

E2 

20 

01 

22 

IF 

26 

0B98 

44 

FC 

00 

00 

4E 

75 

22 

IF 

44 

0BA0 

44 

FC 

00 

03 

4E 

75 

22 

IF 

47 

0BA8 

44 

FC 

00 

09 

4E 

75 

2F 

01 

3C 

6BB0 

42 

80 

10 

10 

61 

00 

FD 

70 

B0 

0BB8 

65 

EC 

61 

00 

FD 

9E 

22 

00 

6F 

0BC0 

52 

88 

10 

10 

61 

00 

FD 

60 

B8 

0BC8 

65 

CA 

B2 

BC 

10 

00 

00 

00 

AD 

0BD0 

64 

CC 

E9 

89 

61 

00 

FD 

84 

84 

0BD8 

82 

00 

60 

E4 

2F 

01 

42 

80 

B8 

OBE0 

10 

10 

61 

00 

FD 

22 

65 

BE 

C3 

0BE8 

90 

3C 

00 

30 

22 

00 

52 

88 

F8 

0BF0 

10 

10 

61 

00 

FD 

12 

65 

9C 

91 

0BF8 

E3 

89 

65 

A2 

90 

3C 

00 

30 

6F 

SUM ： 

EB 

75 

CD 

35 

88 

34 

71 

8A 0D7D 

0C00 

82 

00 

60 

EA 

48 

E7 

EO 

40 

IB 

0C08 

4E 

56 

FF 

DE 

22 

4F 

72 

IF 

83 

0C10 

74 

30 

E3 

88 

64 

02 

52 

02 

C9 

0C18 

12 

C2 

51 

C9 

FF 

F4 

60 

5A 

9B 

0C20 

48 

E7 

E0 

40 

4E 

56 

FF 

DE 

D0 

0C28 

22 

4F 

74 

0A 

42 

01 

60 

06 

98 

OC30 

42 

01 

E3 

88 

E3 

11 

E3 

88 

0D 

0C38 

E3 

11 

E3 

88 

E3 

11 

D2 

3C 

61 

0040 

00 

30 

12 

Cl 

51 

CA 

FF 

EA 

07 

0C48 

60 

30 

48 

E7 

E0 

40 

4E 

56 

83 

0C50 

FF 

DE 

22 

4F 

74 

07 

42 

01 

0C 

0C58 

E3 

88 

E3 

11 

E3 

88 

E3 

11 

BE 

0C60 

E3 

88 

E3 

11 

E3 

88 

E3 

11 

BE 

0C68 

B2 

3C 

00 

0A 

65 

02 

5E 

01 

BE 

0C70 

D2 

3C 

00 

30 

12 

Cl 

51 

CA 

2C 

0C78 

FF 

DE 

42 

11 

22 

4F 

0C 

11 

BE 

SUM ： 

8D 

34 

31 

D7 

27 

D8 

28 

A2 6A27 

0C80 

00 

30 

66 

0A 

4A 

29 

00 

01 

14 

0C88 

67 

04 

52 

89 

60 

F0 

10 

D9 

7F 

0C90 

66 

FC 

53 

88 

4E 

5E 

4C 

DF 

14 

0C98 

02 

07 

4E 

75 

48 

E7 

3F 

60 

9A 

0CA0 

4E 

56 

FF 

E2 

61 

00 

02 

36 

IE 

0CA8 

67 

00 

00 

E6 

61 

00 

02 

18 

C8 

0CB0 

3D 

7C 

FF 

FF 

FF 

FA 

42 

AE 

A0 

0CB8 

FF 

FC 

10 

10 

42 

86 

B0 

3C 

CF 

0CC0 

00 

2E 

66 

0C 

08 

C6 

00 

IF 

8D 

0CC8 

42 

6E 

FF 

FA 

52 

88 

10 

10 

A3 

0CD0 

61 

00 

FC 

24 

65 

00 

00 

BA 

A0 

0CD8 

52 

88 

61 

00 

00 

DC 

43 

EE 

48 

OCE0 

FF 

E2 

12 

FC 

00 

30 

24 

49 

8C 

0CE8 

12 

C0 

7A 

01 

10 

10 

B0 

3C 

59 

0CF0 

00 

2E 

66 

12 

4A 

86 

66 

00 

DC 

0CF8 

00 

98 

08 

C6 

00 

IF 

42 

6E 

35 

SUM ： 

C6 

91 

23 

66 

5C 

ED 

60 

IB 0A3F 

0D00 

FF 

FA 

52 

88 

60 

E6 

61 

00 

7A 

0D08 

FB 

EE 

65 

14 

12 

C0 

52 

88 

0E 

0D10 

61 

00 

00 

A6 

52 

45 

BA 

7C 

D4 

0D18 

00 

0F 

66 

D0 

61 

00 

01 

64 

0B 

0D20 

61 

00 

00 

F4 

61 

00 

00 

9A 

50 

0D28 

4A 

47 

6A 

04 

61 

00 

0D 

CE 

3B 

0D30 

2D 

40 

FF 

F2 

2D 

41 

FF 

F6 

Cl 

0D38 

4A 

6E 

FF 

FA 

67 

24 

61 

00 

9D 

0D40 

0C 

16 

65 

1A 

28 

00 

61 

00 

2A 

0D48 

0B 

B2 

24 

2E 

FF 

F2 

26 

2E 

54 

0D50 

FF 

F6 

61 

00 

0D 

C2 

66 

06 

91 

0D58 

2D 

44 

FF 

FC 

60 

04 

42 

6E 

80 

0D60 

FF 

FA 

20 

2E 

FF 

F2 

22 

2E 

88 

0D68 

FF 

F6 

42 

82 

34 

2E 

FF 

FA 

14 

OD70 

26 

2E 

FF 

FC 

4E 

5E 

50 

8F 

DA 

0D78 

4C 

DF 

06 

F0 

B0 

BC 

80 

00 

0D 

SUM ： 

30 

EB 

D5 

D6 

40 

42 

FB 

IF 67EC 

0D80 

00 

00 

66 

06 

4A 

81 

66 

02 

9F 

0D88 

42 

80 

44 

FC 

00 

00 

4E 

75 

C5 

OD90 

4E 

5E 

4C 

DF 

06 

FC 

42 

80 

9B 

0D98 

42 

81 

44 

FC 

00 

09 

4E 

75 

CF 

ODA0 

4E 

5E 

4C 

DF 

06 

FC 

44 

FC 

19 

0DA8 

00 

01 

4E 

75 

4E 

5E 

4C 

DF 

9B 

0DB0 

06 

FC 

44 

FC 

00 

03 

4E 

75 

08 

0DB8 

4A 

86 

6A 

02 

53 

46 

4E 

75 

98 

0DC0 

42 

80 

42 

81 

24 

3C 

40 

24 

49 

0DC8 

00 

00 

76 

00 

61 

00 

14 

2E 

19 

0DD0 

24 

00 

26 

01 

42 

80 

10 

1A 

37 

0DD8 

90 

3C 

00 

30 

61 

00 

0B 

1C 

84 

0DE0 

61 

00 

14 

02 

53 

45 

66 

DC 

51 

0DE8 

D8 

46 

67 

28 

6B 

14 

24 

3C 

8C 

ODF0 

40 

24 

00 

eo 

76 

00 

61 

00 

3B 

0DF8 

14 

04 

65 

B0 

53 

44 

66 

HE 

18 

SUM ： 

F3 

6A 

40 

BB 

A6 

82 

30 

BF 79ED 

OE0O 

4E 

75 

24 

3C 

40 

24 

00 

00 

: 87 

0E08 

76 

00 

61 

00 

13 

FC 

65 

90 

: DB 
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0F80 

61 

60 

10 

BC 

00 

2E 

61 

72 

8E 

1280 

00 

04 

66 

0F88 

61 

76 

10 

FC 

00 

45 

53 

80 

FB 

1288 

66 

IE 

08 

0F90 

61 

1C 

42 

10 

60 

10 

61 

4A 

EA 

1290 

4A 

86 

67 

0F98 

10 

FC 

00 

30 

61 

44 

10 

FC 

ED 

1298 

FD 

4A 

10 

0FA0 

00 

2E 

61 

56 

61 

5A 

61 

52 

53 

12A0 

4A 

86 

66 

0FA8 

4C 

DF 

00 

06 

4E 

75 

12 

3C 

42 

12A8 

61 

00 

FD 

0FB0 

00 

2B 

4A 

80 

6A 

06 

12 

3C 

B3 

12B0 

70 

2B 

60 

0FB8 

00 

2D 

44 

80 

10 

Cl 

32 

3C 

30 

12B8 

4A 

86 

66 

0FC0 

00 

64 

61 

0E 

32 

3C 

00 

0A 

4B 

12C0 

70 

2D 

10 

0FC8 

61 

08 

D0 

3C 

00 

30 

10 

CC 

75 

12C8 

08 

2B 

00 

0FD0 

4E 

75 

14 

3C 

00 

2F 

52 

02 

96 

12D0 

20 

6E 

FF 

0FD8 

90 

41 

64 

FA 

D0 

41 

10 

C2 

12 

12D8 

10 

BC 

00 

0FE0 

4E 

75 

48 

E7 

C0 

80 

10 

18 

5A 

12E0 

48 

C7 

9E 

0FE8 

12 

10 

10 

C0 

67 

04 

10 

01 

6E 

12E8 

20 

6E 

FF 

0FF0 

60 

F6 

4C 

DF 

01 

03 

4E 

75 

48 

12F0 

08 

2E 

00 

0FF8 

52 

88 

4A 

10 

66 

FA 

4E 

75 

57 

12F8 

70 

2A 

61 


1C 

08 

00 

00 

05 

93 

1580 

61 

00 

05 

EC 

67 

1C 

61 

00 

00 

00 

06 

66 

24 

1C 

1588 

OD 

CE 

65 

14 

61 

00 

0C 

6E 

0A 

70 

2D 

61 

00 

3F 

1590 

65 

0E 

60 

00 

0D 

B6 

50 

8F 

80 

52 

47 

4E 

75 

33 

1598 

20 

3C 

3F 

F0 

00 

00 

72 

00 

F0 

70 

2B 

60 

EE 

0F 

15A0 

4E 

75 

4A 

82 

6A 

FA 

20 

3C 

50 

4A 

86 

66 

10 

F4 

15A8 

7F 

FF 

FF 

FF 

72 

FF 

44 

FC 

0E 

61 

00 

FD 

44 

AB 

15B0 

00 

05 

4E 

75 

4C 

DF 

00 

03 

04 

70 

20 

60 

02 

2C 

15B8 

48 

E7 

31 

00 

4E 

56 

00 

00 

C0 

42 

10 

4E 

75 

82 

1500 

48 

E7 

C0 

00 

2F 

02 

08 

82 

01 

00 

17 

67 

0E 

C3 

15C8 

00 

IF 

20 

02 

22 

03 

61 

00 

EA 

61 

00 

FD 

0C 

El 

15D0 

03 

86 

65 

22 

2E 

00 

61 

48 

5C 

52 

47 

4E 

75 

84 

15D8 

65 

1C 

4A 

9F 

6A 

10 

24 

ee 

AE 

00 

04 

64 

1C 

DF 

15E0 

26 

01 

20 

3C 

3F 

F0 

00 

00 

EA 

44 

87 

70 

20 

D2 

15E8 

72 

00 

61 

00 

0C 

1C 

4E 

5E 

00 

00 

17 

67 

02 

B6 

15F0 

4C 

DF 

00 

BC 

4E 

75 

40 

C0 

00 

FC 

E6 

10 

80 

6D 

15F8 

4A 

AE 

FF 

F4 

6A 

04 

08 

40 


SUM ： 

D0 

78 

E8 

6A 

7A 

BA 

0A 

CF ECB5 

1000 

0C 

20 

00 

30 

67 

FA 

52 

88 

97 

1008 

42 

10 

4E 

75 

48 

E7 

3F 

E0 

63 

1010 

4E 

56 

FF 

EA 

61 

00 

02 

F0 

E0 

1018 

30 

2E 

FF 

EE 

61 

00 

03 

18 

C7 

1020 

30 

2E 

FF 

EE 

61 

00 

03 

2C 

DB 

1028 

4E 

SE 

30 

07 

48 

C0 

22 

06 

13 

1030 

4C 

DF 

07 

FC 

4E 

75 

48 

E7 

20 

1038 

3F 

E0 

4E 

56 

FF 

EA 

61 

00 

0D 

1040 

02 

C6 

30 

2E 

FF 

EE 

D0 

47 

2A 

1048 

61 

00 

02 

EC 

30 

2E 

FF 

EE 

9A 

1050 

D0 

‘17 

61 

00 

02 

FE 

4E 

5E 

24 

1058 

30 

07 

48 

C0 

22 

06 

4C 

DF 

92 

1060 

07 

FC 

4E 

75 

48 

E7 

3F 

E0 

14 

1068 

4A 

83 

6A 

02 

42 

83 

61 

00 

5F 

1070 

0A 

FE 

67 

06 

08 

04 

00 

03 

84 

1078 

66 

76 

08 

04 

00 

04 

67 

02 

55 

SUM: 

F9 

06 

D2 

IF 

4C 

92 

D4 

E0 7103 

1080 

52 

82 

48 

E7 

30 

00 

4E 

56 

D7 

1088 

FF 

EA 

24 

03 

61 

00 

02 

78 

EB 

1090 

30 

2E 

FF 

EE 

D0 

47 

61 

00 

C3 

1098 

02 

9E 

30 

2E 

FF 

EE 

D0 

47 

02 

10A0 

61 

00 

02 

B0 

61 

00 

01 

36 

AB 

10A8 

61 

00 

01 

56 

61 

00 

01 

6A 

84 

10B0 

61 

00 

01 

9E 

61 

1C 

61 

00 

DE 

10B8 

02 

10 

61 

00 

01 

BA 

61 

00 

8F 

10C0 

02 

20 

4E 

5E 

30 

07 

48 

C0 

0D 

10C8 

22 

06 

SO 

8F 

4C 

DF 

07 

FC 

35 

10D0 

4E 

75 

08 

2E 

00 

03 

00 

17 

13 

10D8 

67 

14 

20 

6E 

FF 

EA 

61 

00 

53 

10E0 

FF 

1A 

10 

FC 

00 

45 

42 

80 

2C 

10E8 

61 

00 

FE 

C4 

42 

10 

4E 

75 

38 

10F0 

08 

04 

00 

04 

66 

1A 

08 

04 

9C 

10F8 

00 

05 

66 

14 

08 

04 

00 

06 

91 

SUM ： 

G9 

1A 

3A 

OB 

AF 

51 

8D 

87 

4376 

1100 

66 

0E 

4A 

82 

67 

0A 

53 

82 

: 86 

1108 

66 

06 

4A 

83 

66 

02 

74 

01 

: 16 


SUM ： 

9A 

3B 

IB 

97 

BA 

41 

83 

A4 

54E6 

1300 

53 

87 

66 

F6 

4E 

75 

2D 

48 


6E 

1308 

FF 

EA 

42 

6E 

FF 

EE 

ID 

42 


E5 

1310 

FF 

EF 

61 

6A 

43 

EE 

FF 

F0 


D9 

1318 

12 

FC 

00 

30 

2F 

09 

61 

00 


D7 

1320 

00 

FB 

41 

EE 

FF 

FF 

61 

00 


8C 

1328 

01 

1C 

22 

5F 

B1 

C9 

64 

04 


80 

1330 

22 

48 

52 

47 

4E 

75 

4A 

40 


50 

1338 

6B 

16 

B0 

7C 

00 

0E 

64 

10 


2F 

1340 

41 

FI 

00 

00 

61 

00 

00 

FE 


91 

1348 

B1 

C9 

64 

04 

22 

48 

52 

47 


E5 

1350 

4E 

75 

20 

6E 

FF 

EA 

4A 

40 


C4 

1358 

67 

20 

6B 

IE 

42 

41 

B2 

7C 


Cl 

1360 

Q0 

FF 

67 

16 

B2 

40 

67 

12 


E7 

1368 

B2 

7C 

00 

0E 

64 

06 

10 

D9 


8F 

1370 

52 

41 

60 

EA 

10 

FC 

00 

30 


19 

1378 

60 

F6 

42 

10 

4E 

75 

42 

86 


33 

SUM ： 

FC 

D5 

66 

BC 

F5 

CF 

24 

70 

1299 

1380 

24 

00 

C0 

BC 

7F 

FF 

FF 

FF 


1C 

1388 

66 

‘， H 

4A 

81 

66 

04 

42 

47 


2C 

1390 

4E 

75 

2E 

00 

CE 

BC 

7F 

F0 


EA 

1398 

00 

00 

BE 

BC 

7F 

F0 

00 

00 


E9 

13A0 

66 

06 

20 

07 

53 

80 

72 

FF 


D7 

13A8 

E3 

8A 

E3 

96 

7E 

0F 

24 

3C 


D3 

13B0 

43 

0C 

6B 

F5 

26 

3C 

26 

34 


6B 

13B8 

00 

00 

61 

00 

07 

5A 

64 

24 


4A 

13C0 

24 

3C 

3F 

F0 

00 

00 

76 

00 


05 

13C8 

61 

00 

07 

4C 

64 

2C 

24 

3C 


A4 

1300 

43 

0C 

6B 

F5 

26 

3C 

26 

34 


6B 

13D8 

00 

00 

61 

00 

0E 

20 

9E 

7C 


A9 

13E0 

eo 

0F 

60 

CA 

24 

3C 

43 

0C 


E8 

13E8 

6B 

F5 

26 

3C 

26 

34 

00 

00 


1C 

13F0 

61 

00 

0E 

16 

DE 

7C 

00 

0F 


EE 

13F8 

60 

B4 

24 

3C 

42 

D6 

BC 

C4 


0C 

SUM ： 

58 

19 

8F 

14 

32 

IE 

3D 

94 


4C6F 

1400 

26 

3C 

IE 

90 

00 

00 

61 

00 


: 71 

1408 

07 

0E 

64 

10 

24 

3G 

40 

24 


: 4D 


SUM ： 

E6 

AE 

E0 

65 

37 

9A 

17 

60 7CA6 

1600 

00 

ei 

08 

00 

00 

01 

66 

0A 

7A 

1608 

42 

80 

42 

81 

44 

FC 

00 

01 

C6 

1610 

60 

DC 

20 

3C 

7F 

FF 

FF 

FF 

14 

1618 

72 

FF 

44 

FC 

00 

03 

60 

CE 

E2 

1620 

4A 

87 

67 

28 

08 

07 

00 

00 

6F 

1628 

67 

14 

53 

87 

67 

24 

61 

F0 

31 

1630 

65 

C4 

24 

2E 

FF 

F8 

26 

2E 

C6 

1638 

FF 

FC 

60 

00 

0B 

C0 

E2 

8F 

97 

1640 

61 

DE 

65 

B2 

24 

00 

26 

01 

A1 

1648 

60 

00 

0B 

B2 

42 

80 

42 

81 

A2 

1650 

4E 

75 

20 

2E 

FF 

F8 

22 

2E 

58 

1658 

FF 

FC 

4E 

75 

48 

E7 

71 

00 

5E 

1660 

2E 

00 

67 

0A 

4A 

81 

67 

0C 

DD 

1668 

61 

00 

04 

76 

20 

02 

4C 

DF 

28 

1670 

00 

8E 

4E 

75 

42 

80 

4C 

DF 

3E 

1678 

00 

8E 

00 

3C 

00 

01 

4E 

75 

8E 

SUM ： 

C6 

22 

83 

CE 

95 

45 

76 

74 2BB7 

1680 

48 

E7 

40 

00 

4A 

80 

67 

2E 

CE 

1688 

2F 

00 

02 

97 

80 

00 

00 

00 

48 

1690 

22 

3C 

00 

00 

00 

9E 

4A 

80 

C6 

1698 

6A 

02 

44 

80 

6B 

06 

53 

41 

35 

16A0 

E3 

88 

60 

F8 

E8 

99 

EA 

99 

C7 

16A8 

E3 

88 

E8 

88 

EA 

88 

08 

80 

D5 

16B0 

00 

IF 

80 

9F 

80 

81 

4C 

DF 

6A 

16B8 

00 

02 

4E 

75 

40 

E7 

2F 

01 

1C 

16C0 

22 

00 

l*K 

80 

48 

40 

48 

C0 

20 

16C8 

C0 

BC 

80 

00 

00 

FF 

El 

81 

5D 

16D0 

08 

81 

00 

IF 

80 

81 

22 

IF 

EA 

16D8 

46 

DF 

90 

3C 

00 

7F 

65 

2C 

01 

16E0 

B0 

3C 

00 

IF 

64 

2A 

48 

E7 

C8 

16E8 

E0 

00 

42 

81 

12 

00 

24 

00 

D9 

16F0 

08 

C2 

m 

IF 

42 

80 

42 

02 

EF 

16F8 

E3 

8A 

E3 

90 

51 

C9 

FF 

FA 

F3 

SUM ： 

74 

FA 

BF 

D5 

98 

5F 

CE 

57 i 

6139 

1700 

4A 

9F 

6A 

02 

44 

80 

4C 

DF 

: 44 

1708 

00 

06 

4E 

75 

42 

80 

4E 

75 

: 4E 


►乩数でメ ロディを作るのによく似たアイデアであらかじめ作っておいた曲の断片を衍禪 
名のイ ンスピ レー シヨンでつな. いでいくというものがあります。あの ワルツ 王 ヨハン•シ 
ユトラウスの常勋曲という曲です（昔「オーケストラがやってきた J のテーマ曲で使われ 
た)。 m 舆人 （ 24 ) 京都府 


0E10 

52 

44 

66 

EE 

4E 

75 

42 

84 

73 

1110 

48 

E7 

30 

00 

4E 

56 

FF 

EA 

EC 

1410 

00 

00 

76 

00 

61 

00 

0D 

E6 

CA 

0E18 

B0 

3C 

00 

45 

67 

08 

BO 

3C 

8C 

1118 

D4 

83 

61 

00 

01 

EA 

30 

2E 

01 

1418 

53 

47 

60 

DE 

4E 

75 

38 

3C 

OF 

0E20 

00 

65 

67 

02 

4E 

75 

42 

6E 

41 

1120 

FF 

EE 

61 

00 

02 

12 

30 

2E 

C0 

1420 

00 

0E 

45 

FA 

00 

3E 

12 

BC 

59 

0E28 

FF 

FA 

52 

88 

10 

10 

B0 

3C 

DF 

1128 

FF 

EE 

61 

00 

02 

26 

61 

28 

FF 

1428 

00 

30 

41 

D2 

61 

00 

00 

AC 

50 

0E30 

00 

2B 

67 

0A 

B0 

3C 

00 

2D 

B5 

1130 

20 

6E 

FF 

EA 

61 

00 

Ki •: 

C4 

9A 

1430 

65 

08 

52 

11 

61 

00 

00 

B8 

E9 

0E38 

66 

08 

08 

C4 

00 

IF 

52 

88 

33 

1138 

10 

FC 

00 

45 

30 

07 

48 

C0 

90 

1438 

60 

F2 

52 

89 

50 

8A 

51 

CC 

24 

0E4O 

10 

10 

61 

00 

FA 

B2 

65 

00 

92 

1140 

61 

00 

FE 

6C 

42 

10 

61 

2E 

AC 

1440 

FF 

E6 

4E 

75 

0C 

10 

00 

35 

F9 

0E48 

FF 

48 

90 

3C 

00 

30 

18 

00 

5B 

1148 

4E 

5E 

30 

07 

48 

C0 

22 

06 

13 

1448 

65 

0E 

52 

20 

0C 

10 

00 

39 

3A 

0E50 

4 2 

40 

52 

88 

10 

10 

61 

00 

DD 

1150 

50 

8F 

4C 

DF 

07 

FC 

4E 

75 

DO 

1450 

63 

06 

10 

BC 

00 

30 

60 

F2 

B7 

0E58 

FA *9E 

65 

IE 

90 

3C 

00 

30 

17 

1158 

20 

2E 

00 

04 

4A 

AE 

00 

10 

5A 

1458 

4E 

75 

43 

0C 

6B 

F5 

26 

34 

CC 

0E60 

3F 

04 

E5 

4C 

D8 

5F 

E3 

4C 

DA 

1160 

6B 

10 

20 

6K 

FF 

EA 

41 

F0 

23 

1460 

00 

00 

42 

D6 

BC 

C4 

IE 

90 

46 

0E68 

D8 

40 

B8 

7C 

03 

E8 

65 

E2 

7E 

1168 

00 

00 

61 

00 

FE 

76 

10 

BC 

A1 

1468 

00 

00 

42 

A2 

30 

9C 

E5 

40 

D5 

0E70 

4A 

84 

6A 

00 

FF 

38 

60 

00 

CF 

1170 

00 

2E 

9E 

40 

4E 

75 

20 

6E 

5D 

1470 

00 

00 

42 

6D 

1A 

94 

A2 

00 

FF 

0E78 

FF 

28 

4A 

84 

6A 

02 

44 

44 

E9 

1178 

FF 

EA 

20 

2E 

00 

14 

08 

00 

53 

1478 

00 

00 

42 

37 

48 

76 

E8 

00 

IF 

SUM ： 

D6 

AD 

OC 

F5 

F4 

2C 

65 

51 22AE 

SUM ： 

9F 

07 

9F 

66 

D7 

EE 

17 

48 6038 

SUM ： 

5A 

38 

7D 

5D 

B6 

28 

5C 

96 B75D 

0E80 

4E 

75 

52 

46 

53 

45 

0C 

21 

20 

1180 

00 

04 

66 

28 

08 

00 

00 

05 

9F 

1480 

00 

00 

42 

02 

A0 

5F 

20 

00 

63 

0E88 

00 

35 

r.5 

OE 
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02 

3C 

00 

00 

4E 

75 

B0 

82 


33 

1E60 

67 

34 

4C 

DF 

00 

01 

61 

00 

28 

1868 

67 

22 

24 

00 

ED 

9A 

ED 

9A 

BB 

1B68 

66 

02 

B2 

83 

4E 

75 

4A 

80 


2A 

1E68 

FE 

4C 

67 

1A 

61 

00 

07 

B2 

E5 

1870 

C4 

BC 

00 

00 

07 

FF 

B4 

7C 

B6 

1B70 

6B 

0A 

66 

06 

4A 

81 

02 

3C 


EA 

1E70 

65 

12 

61 

00 

06 

64 

65 

0C 

B3 

1878 

04 

33 

64 

10 

61 

00 

FF 

60 

6B 

1B78 

00 

17 

4E 

75 

48 

E7 

80 

00 


89 

1E78 

60 

00 

07 

9A 

58 

8F 

20 

3C 

44 

SUM ： 

7C 

2C 

49 

79 

69 

3D 

77 

53 1AFE 

SUM ： 

3F 

7A 

C8 

18 

29 

35 

6E 

78 

21ED 

SUM ： 

54 

52 

12 

02 

73 

65 

CC 

FC 4F8E 

1880 

24 

3C 

3F 

F0 

00 

00 

76 

00 

05 

1B80 

02 

9F 

7F 

FF 

FF 

FF 

66 

04 


87 

1E80 

3F 

80 

ee 

00 

4E 

75 

4A 

81 

4D 

1888 

61 

00 

09 

5A 

4C 

DF 

00 

0C 

FB 

1B88 

4A 

81 

67 

EE 

00 

3C 

00 

08 


64 

1E88 

6A 

FA 

20 

3C 

7F 

FF 

FF 

FF 

3C 

1890 

4E 

75 

48 

E7 

30 

00 

24 

00 

46 

1B90 

4E 

75 

20 

3C 

69 

65 

65 

65 


B7 

1E90 

44 

FC 

00 

05 

4E 

75 

4C 

DF 

33 

1898 

26 

00 

ED 

9A 

ED 

9A 

C4 

BC 

B4 

1B98 

22 

3C 

66 

70 

63 

70 

4E 

75 


CA 

1E98 

00 

01 

48 

E7 

21 

00 

4E 

56 

F5 

18A0 

00 

00 

07 

FF 

B4 

7C 

03 

FF 

38 

1BA0 

D0 

BC 

00 

00 

80 

00 

B0 

BC 


78 

1EA0 

00 

00 

48 

E7 

80 

00 

2F 

01 

DF 

18A8 

65 

3C 

B4 

7C 

04 

33 

64 

40 

AC 

1BA8 

00 

01 

00 

00 

65 

04 

70 

FF 


D9 

1EA8 

08 

81 

00 

IF 

20 

01 

61 

00 

2A 

18B0 

C0 

BC 

00 

0F 

FF 

FF 

E3 

89 

F5 

1BB0 

4E 

75 

48 

E7 

40 

00 

C0 

BC 


AE 

1EB0 

F8 

0C 

65 

IE 

2E 

00 

61 

40 

56 

18B8 

B3 

90 

53 

42 

B4 

7C 

03 

FF 

3A 

1BB8 

00 

00 

FF 

FF 

E5 

88 

72 

01 


DE 

1EB8 

65 

18 

4A 

9F 

6A 

0C 

22 

00 

FE 

18C0 

64 

F4 

08 

00 

00 

14 

6G 

0A 

E4 

1BC0 

08 

80 

00 

02 

67 

02 

72 

03 


68 

1EC0 

20 

3C 

3F 

80 

00 

00 

61 

00 

7C 

18C8 

4A 

80 

66 

EA 

4A 

81 

66 

E6 

31 

1BC8 

80 

81 

23 

C0 

00 

00 

1C 

06 


06 

1EC8 

06 

1C 

4E 

5E 

4C 

DF 

00 

82 

7B 

18D0 

60 

IE 

C0 

BC 

00 

0F 

FF 

FF 

07 

1BD0 

4C 

DF 

00 

02 

42 

80 

4E 

75 


B2 

1ED0 

4E 

75 

40 

C0 

4A 

AE 

FF 

F8 

B2 

1808 

4A 

83 

6A 

04 

84 

7C 

08 

00 

43 

1BD8 

61 

24 

48 

E7 

30 

00 

61 

00 


45 

1ED8 

6A 

04 

08 

40 

00 

ei 

08 

00 

BF 

18E0 

EC 

9A 

EC 

9A 

80 

82 

02 

3C 

4C 

1BE0 

FD 

1A 

24 

3C 

40 

F0 

00 

00 


A7 

1EE0 

00 

01 

66 

08 

42 

80 

44 

PC 

71 

18E8 

00 

FE 

4C 

DF 

00 

0C 

4E 

75 

F8 

1BE8 

76 

00 

61 

00 

06 

1C 

4C 

DF 


24 

1EE8 

00 

01 

60 

DE 

20 

3C 

7F 

FF 

19 

18F0 

42 

80 

42 

81 

4C 

DF 

00 

0C 

BC 

1BF0 

00 

0C 

4E 

75 

61 

08 

C0 

BC 


B4 

1EF0 

FF 

FF 

44 

FC 

00 

03 

60 

D2 

73 

18F8 

4E 

75 

4A 

80 

67 

54 

48 

E7 

77 

1BF8 

00 

00 

7F 

FF 

4E 

75 

48 

E7 


70 

1EF8 

4A 

87 

67 

22 

08 

07 

00 

00 

69 

SUM ： 

D5 

DB 

E7 

BB 

D5 

84 

16 

22 40CF 

SUM ： 

82 

2D 

70 

DA 

A3 

A7 

FC 

5E 

2B91 

SUM ： 

79 

75 

A5 

CD 

74 

4A 

81 

3D CD19 

1900 

30 

00 

42 

81 

26 

00 

C6 

BC 

9B 

1C00 

40 

80 

41 

FA 

00 

42 

2F 

10 


7C 

1F00 

67 

10 

53 

87 

67 

1C 

61 

F0 

25 

1908 

80 

00 

00 

00 

4A 

80 

6A 

02 

B6 

1C08 

20 

10 

22 

3C 

00 

0 0 

03 

83 


14 

1F08 

65 

C8 

22 

2E 

FF 

FC 

60 

00 

D8 

1910 

44 

80 

74 

0B 

4A 

82 

67 

08 

7E 

1C10 

61 

00 

FE 

0A 

C0 

BC 

00 

03 


E8 

1F10 

05 

C8 

E2 

8F 

61 

E2 

65 

BA 

A0 

1918 

E2 

88 

E2 

91 

53 

82 

60 

F4 

06 

1C18 

FF 

FF 

20 

80 

20 

IF 

42 

81 


A0 

1F18 

22 

00 

60 

00 

05 

BC 

42 

80 

05 

1920 

34 

3C 

04 

IE 

C0 

BC 

00 

IF 

2D 

1C20 

E2 

88 

E2 

88 

D1 

41 

4C 

DF 


11 

1F20 

4E 

75 

20 

2E 

FF 

FC 

4E 

75 

CF 

1928 

FF 

FF 

08 

00 

00 

14 

66 

0E 

8E 

1C28 

01 

02 

4E 

75 

61 

DO 

48 

E7 


26 

1F28 

48 

E7 

20 

00 

40 

E7 

65 

52 

2D 

1930 

E3 

89 

E3 

90 

53 

42 

60 

F2 

C6 

1030 

40 

00 

61 

00 

FA 

4C 

22 

3C 


45 

1F30 

24 

00 

C4 

BC 

7F 

F0 

00 

00 

13 

1938 

C4 

BC 

00 

00 

07 

FF 

C0 

BC 

02 

1C38 

47 

80 

00 

00 

61 

00 

08 

A6 


D6 

1F38 

67 

00 

00 

8A 

B4 

BC 

47 

F0 

98 

1940 

00 

0F 

FF 

FF 

EC 

9A 

EC 

9A 

19 

1C40 

4C 

DF 

00 

02 

4E 

75 

00 

00 


F0 

1F40 

00 

00 

64 

00 

00 

8C 

B4 

BC 

60 

1948 

80 

82 

80 

83 

4C 

DF 

00 

0C 

3C 

1C48 

00 

01 

61 

00 

03 

A6 

61 

00 


6C 

1F48 

38 

10 

00 

00 

65 

00 

00 

96 

43 

1950 

4E 

75 

42 

81 

4E 

75 

48 

E7 

78 

1050 

F3 

BC 

4E 

75 

61 

00 

03 

9C 


72 

1F50 

4A 

80 

6B 

04 

61 

58 

60 

0C 

5E 

1958 

68 

00 

24 

00 

ED 

9A 

ED 

9A 

9A 

1C58 

61 

00 

F3 

DC 

4E 

75 

61 

00 


54 

1F58 

08 

80 

00 

IF 

61 

50 

80 

BC 

94 

1960 

C4 

7C 

07 

FF 

94 

7C 

03 

FF 

58 

1C60 

03 

92 

61 

00 

F2 

C0 

4E 

75 


6B 

1F60 

80 

00 

00 

00 

24 

00 

08 

82 

2E 

1968 

65 

36 

B4 

7C 

00 

IF 

64 

38 

86 

1C68 

48 

E7 

40 

00 

61 

00 

03 

84 


57 

1F68 

00 

IF 

B4 

BC 

7F 

80 

00 

00 

8E 

1970 

48 

E7 

90 

00 

26 

00 

42 

80 

A7 

1C70 

61 

00 

F3 

F2 

61 

00 

02 

B2 


5B 

1F70 

64 

5E 

B4 

BC 

00 

7F 

FF 

FF 

AF 

1978 

38 

3C 

00 

0A 

E3 

89 

E3 

93 

60 

1C78 

4C 

DF 

00 

02 

4E 

75 

48 

E7 


IF 

1F78 

65 

6A 

46 

DF 

4C 

DF 

00 

04 

23 

SUM ： 

8F 

63 

B7 

53 

37 

41 

2A 

06 A682 

SUM ： 

C2 

8D 

48 

04 

6F 

3F 

92 

ED 

1BBC 

SUM ： 

E7 

F3 

38 

32 

54 

57 

FD 

80 0B49 

1980 

51 

cc 

FF 

FA 

08 

C3 

00 

IF 

00 

1C80 

40 

00 

61 

00 

EE 

10 

61 

00 


00 

1F80 

4E 

75 

67 

0C 

6B 

1C 

69 

48 

6E 

1988 

E3 

8B 

E3 

90 

51 

CA 

FF 

FA 

F5 

1C88 

02 

AO 

4C 

DF 

00 

02 

4E 

75 


92 

1F88 

61 

00 

FB 

E4 

67 

56 

60 

A0 

FD 

1990 

4A 

9F 

6A 

02 

44 

80 

02 

3C 

57 

1C90 

48 

E7 

40 

00 

61 

00 

F0 

06 


C6 

1F90 

46 

DF 

4C 

DF 

00 

04 

20 

3C 

B0 

1998 

00 

FE 

4C 

DF 

00 

08 

60 

02 

93 

1C98 

61 

00 

02 

8E 

4C 

DF 

00 

02 


IE 

1F98 

7F 

FF 

FF 

FF 

44 

FC 

00 

05 

Cl 

19A0 

42 

80 

4C 

DF 

00 

16 

4E 

75 

C6 

1CA0 

4E 

75 

2F 

01 

61 

00 

03 

4C 


A3 

1FA0 

4E 

75 

46 

DF 

4C 

DF 

00 

04 

17 

19A8 

66 

1C 

4A 

80 

6A 

18 

B0 

BC 

3A 

1CA8 

61 

00 

EC 

C2 

61 

00 

02 

7A 


EC 

1FA8 

44 

FC 

00 

09 

4E 

75 

90 

BC 

58 

19B0 

Cl 

E0 

00 

00 

66 

10 

C2 

BC 

95 

1CB0 

22 

IF 

4E 

75 

4A 

80 

6A 

10 


48 

1FB0 

38 

00 

00 

00 

34 

3C 

00 

02 

AA 

19B8 

FF 

E0 

00 

00 

66 

08 

20 

3C 

A9 

1CB8 

48 

E7 

80 

00 

02 

9F 

7F 

FF 


CE 

1FB8 

E3 

89 

E3 

90 

51 

CA 

FF 

FA 

F3 

19C0 

80 

00 

00 

00 

60 

DC 

4C 

DF 

E7 

1CC0 

FF 

FF 

67 

04 

00 

3C 

00 

08 


AD 

1FC0 

42 

81 

4E 

75 

46 

DF 

42 

81 

6E 

19C8 

00 

16 

44 

FC 

00 

03 

4E 

75 

1C 

1CC8 

4E 

75 

48 

E7 

C0 

00 

B0 

BC 


IE 

1FC8 

42 

80 

4C 

DF 

00 

04 

4E 

75 

B4 

19D0 

48 

E7 

61 

00 

2E 

00 

67 

3C 

61 

1CD0 

80 

00 

00 

00 

66 

02 

42 

80 


AA 

1FD0 

46 

DF 

42 

81 

20 

3C 

7F 

FF 

C2 

19D8 

6A 

02 

44 

80 

B3 

87 

4A 

81 

35 

1CD8 

B2 

BC 

80 

00 

00 

00 

66 

02 


56 

1FD8 

FF 

FF 

44 

FC 

00 

03 

4C 

DF 

6C 

19E0 

67 

32 

6A 

02 

44 

81 

61 

42 

6D 

1CE0 

42 

81 

61 

06 

4C 

DF 

00 

03 


58 

1FE0 

00 

04 

4E 

75 

46 

DF 

42 

80 

AE 

19E8 

4A 

80 

66 

IE 

20 

01 

4A 

87 

40 

1CE8 

4E 

75 

2F 

00 

B3 

9F 

6B 

0E 


BD 

1FE8 

44 

FC 

00 

01 

4C 

DF 

00 

04 

70 

19F0 

6A 

14 

B0 

BC 

80 

00 

00 

00 

6A 

1CF0 

4A 

80 

6A 

IE 

61 

1C 

67 

1C 


52 

1FF0 

4B 

75 

BO 

BC 

80 

00 

00 

00 

AF 

19F8 

62 

10 

44 

80 

02 

3C 

00 

FE 

72 

1CF8 

0A 

3C 

00 

F9 

4E 

75 

2F 

00 


31 

1FF8 

67 

26 

4A 

80 

67 

22 

6A 

08 

52 

SUM： 

95 

25 

DB 

A2 

FA 

7F 

37 

58 6DCB 

SUM ： 

67 

E4 

01 

AD 

7D 

5D 

E6 

C5 

6803 

SUM ： 

E3 

C7 

3E 

C9 

14 

CE 

7F 

45 B7FA 

1A00 

4C 

DF 

00 

86 

4E 

75 

4A 

80 

: 3E 

1D0O 

E3 

D7 

58 

8F 

64 

06 

44 

FC 


4B 

2000 

61 

06 

08 

C0 

00 

IF 

4E 

75 

: 11 

1A08 

6A 

F6 

4C 

DF 

00 

86 

44 

FC 

: 51 

1D08 

00 

F9 

4E 

75 

02 

3C 

00 

00 


FA 

2008 

08 

80 

00 

IF 

72 

07 

E2 

88 

: 8A 


►シャープが 14 型の液晶カラーデイスプレイを閒発したと新聞に故っていました。これを 
内蔵したラップトップパソコンがまた「世界初」というかたちでシャープから発表される 
のもそう遠くないのかもしれません。 中山_ (19> 長崎県 
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SUM ： CB 38 A1 B0 

2580 01 02 78 01 
2588 48 E7 0E G0 
2590 44 00 2F 07 
2598 00 00 60 26 
25A0 28 3C 44 28 
25A8 2E 3C 3F 80 
25B0 48 E7 0E E0 
25B8 44 00 2F 07 
25C0 00 00 4C F9 
25C8 26 54 32 84 
25D0 4A 50 48 44 
25D8 67 FC 24 87 
25E0 60 00 FF 58 
25E8 28 3C 00 00 
25F0 48 E7 0E E0 
25F8 44ID 60 68 


SUM ： 5A 

2600 28 
2608 48 


28 2C 85 

3C 00 00 
E7 0E E0 


6173 2C 

44 0F 60 
28 3C 00 


DA 1079 

5C : 73 
00 : 81 


2310 

00 

00 

4A 

50 

2E 

IF 

60 

00 

47 

2318 

FF 

4C 

48 

E7 

0E 

EO 

28 

3C 

CC 

2320 

00 

00 

54 

0E 

60 

78 

48 

E7 

69 

2328 

0E 

E0 

28 

3C 

00 

00 

54 

ID 

C3 

2330 

60 

6C 

48 

E7 

0E 

E0 

28 

3C 

4D 

2338 

00 

00 

54 

OF 

60 

(iO 

48 

E7 

52 

2340 

OE 

E0 

28 

3C 

00 

00 

54 

0A 

B0 

2348 

60 

54 

48 

K7 

0H 

E0 

28 

3C 

35 

2350 

00 

(U 】 

54 

10 

60 

48 

61 

00 

6D 

2358 

F8 

16 

6B 

0E 

67 

16 

48 

E7 

33 

2360 

0E 

EO 

28 

3C 

00 

00 

54 

14 

BA 

2368 

60 

34 

42 

80 

42 

81 

44 

FC 

59 

2370 

00 

01 

4E 

75 

44 

FC 

00 

05 

09 

2378 

4E 

75 

61 

00 

F7 

F2 

6B 

0E 

86 

SUM ： 

40 

B8 

5E 

B4. 

B2 

A4 

76 

03 31C1 

2380 

67 

16 

48 

E7 

OE 

E0 

28 

3C 

FE 

2388 

00 

00 

54 

04 

60 

10 

42 

80 

8A 

2390 

42 

81 

44 

FC 

00 

01 

4E 

75 

C7 

2398 

44 

FC 

00 

00 

4E 

75 

4C 

F9 

48 

23A0 

07 

60 

00 

00 

26 

54 

32 

84 

97 

23A8 

4A 

50 

24 

80 

24 

81 

4A 

50 

7D 

23B0 

60 

00 

FE 

B2 

48 

E7 

0E 

E0 

2D 

23B8 

28 

3C 

44 

22 

44 

00 

60 

5A 

C8 

23C0 

48 

E7 

0E 

E0 

28 

3C 

44 

28 

ED 

23C8 

44 

00 

60 

4B 

48 

E7 

OK 

EO 

OF 

23D0 

28 

3C 

44 

23 

44 

00 

60 

42 

B1 

23D8 

48 

E7 

0E 

E0 

4C 

EE 

00 

10 

67 

23E0 

00 

04 

02 

84 

7F 

FF 

FF 

FF 

06 

23E8 

67 

08 

28 

3C 

44 

20 

44 

00 

7B 

23F0 

60 

28 

2C 

BC 

7F 

FF 

FF 

FF 

EC 

23F8 

4C 

DF 

07 

70 

44 

FC 

00 

05 

E7 

SUM ： 

D5 

9C 

63 

58 

18 

4D 

E2 

95 ADD6 

2400 

4E 

75 

48 

E7 

OE 

EO 

4C 

EE 

1A 

2408 

00 

10 

00 

04 

02 

84 

7F 

FF 

18 

2410 

FF 

FF 

67 

DE 

28 

3C 

44 

21 

0C 

2418 

44 

00 

4C 

F9 

07 

(；0 

00 

oe 

F0 

2420 

26 

54 

32 

84 

4A 

50 

24 

96 

84 

2428 

4A 

50 

48 

44 

32 

84 

BA 

50 

E6 

2430 

67 

FC 

24 

AE 

00 

04 

4A 

50 

D3 

2438 

32 

86 

BA 

50 

67 

FC 

2C 

92 

E3 

2440 

4A 

50 

48 

46 

32 

86 

4A 

50 

7A 

2448 

2C 

12 

4A 

50 

4A 

46 

67 

18 

E7 

2450 

08 

06 

00 

0B 

66 

1C 

08 

06 

A9 

2458 

00 

07 

66 

24 

08 

06 

00 

06 

A5 

2460 

66 

18 

42 

84 

60 

00 

02 

1C 

C2 

2468 

4C 

DF 

07 

70 

44 

FC 

00 

00 

E2 

2470 

4E 

75 

42 

96 

78 

01 

60 

00 

74 

2478 

02 

0A 

78 

03 

60 

00 

02 

04 

ED 

SUM ： 

1A 

8F 

4E 

DA 

88 

BF 

80 

6A 9ED2 

2480 

78 

01 

60 

00 

01 

FE 

48 

E7 

07 

2488 

0E 

E0 

28 

3C 

44 

22 

44 

00 

FC 

2490 

60 

0A 

48 

E7 

0B 

E0 

28 

3C 

EB 

2498 

44 

28 

44 

00 

4C 

F9 

07 

60 

5C 

24A0 

00 

00 

26 

54 

32 

84 

4A 

50 

CA 

24A8 

24 

96 

4A 

50 

48 

44 

32 

84 

96 

24B0 

BA 

50 

67 

FC 

24 

BC 

3F 

80 

0C 

24B8 

00 

00 

4A 

50 

60 

00 

FF 

7A 

73 

24C0 

48 

E7 

0E 

EO 

28 

3C 

44 

22 

E7 

24C8 

44 

00 

60 

52 

48 

E7 

0E 

E0 

13 

24D0 

28 

3C 

44 

28 

44 

00 

60 

46 

BA 

24D8 

48 

E7 

0E 

EO 

28 

3C 

44 

23 

E8 

24E0 

44 

00 

60 

3A 

48 

E7 

OB 

E0 

FB 

24E8 

28 

01 

02 

84 

7F 

FF 

FF 

FF 

2B 

24F0 

67 

08 

28 

3C 

44 

20 

44 

00 

7B 

24F8 

60 

24 

20 

3C 

7F 

FF 

FF 

FF 

5C 

SUM ： 

37 

30 

9F 

83 

03 

El 

BB 

9A C065 

2500 

4C 

DF 

07 

70 

44 

FC 

00 

05 

E7 

2508 

4E 

75 

48 

K7 

0E 

EO 

28 

01 

09 

2510 

02 

84 

7F 

FF 

FF 

FF 

67 

E2 

4B 

2518 

28 

3C 

44 

21 

44 

00 

4C 

F9 

52 

2520 

07 

60 

00 

00 

26 

54 

32 

84 

97 

2528 

4A 

50 

24 

80 

4A 

50 

48 

44 

64 

2530 

32 

84 

BA 

50 

67 

FC 

24 

81 

C8 

2538 

4A 

50 

32 

86 

BA 

50 

67 

FC 

BF 

2540 

20 

12 

4A 

50 

48 

46 

32 

86 

12 

2548 

4A 

50 

2C 

12 

4A 

50 

4A 

46 

02 

2550 

67 

18 

08 

06 

00 

0B 

66 

1C 

1A 

2558 

0B 

06 

00 

07 

66 

24 

08 

06 

AD 

2560 

00 

06 

66 

18 

42 

84 

60 

00 

AA 

2568 

01 

1A 

4C 

DF 

07 

70 

44 

FC 

FD 

2570 

00 

00 

4E 

75 

42 

80 

78 

01 

FE 

2578 

60 

00 

01 

08 

78 

03 

60 

00 

44 


2010 

E2 

91 

51 

C9 

FF 

FA 

D0 

BC 


12 

2018 

38 

00 

00 

00 

42 

41 

4E 

75 


7E 

2020 

42 

80 

42 

81 

4E 

75 

4A 

96 


28 

2028 

67 

2E 

48 

E7 

06 

E0 

4C 

F9 


EF 

2030 

07 

60 

00 

00 

26 

54 

32 

BC 


CF 

2038 

40 

00 

4A 

50 

24 

96 

4A 

50 


2E 

2040 

32 

86 

BA 

50 

67 

FC 

2C 

92 


E3 

2048 

2D 

52 

00 

04 

4A 

50 

4C 

DF 


48 

2050 

07 

60 

44 

FC 

00 

00 

4E 

75 


6A 

2058 

42 

AE 

00 

04 

60 

F4 

48 

E7 


77 

2060 

06 

E0 

4C 

F9 

07 

60 

00 

00 


92 

2068 

26 

54 

32 

BC 

54 

03 

4A 

50 


59 

2070 

24 

96 

24 

AE 

00 

04 

4A 

50 


2A 

2078 

32 

BC 

60 

00 

BA 

50 

67 

FC 


BB 

SUM ： 

9D 

91 

2D 

17 

77 

97 

69 

32 

AA41 

2080 

2C 

92 

42 

AE 

00 

04 

4A 

50 


4C 

2088 

48 

46 

32 

86 

4A 

50 

2C 

12 


IE 

2090 

08 

06 

00 

OD 

4A 

50 

66 

0A 


25 

2098 

4C 

DF 

07 

60 

44 

FC 

00 

00 


D2 

20A0 

4E 

75 

42 

86 

32 

BC 

88 

00 


01 

20A8 

4A 

50 

24 

86 

4C 

DF 

07 

60 


D6 

20BO 

44 

FC 

00 

03 

4E 

75 

48 

E7 


35 

20B8 

0E 

EO 

28 

3C 

54 

22 

54 

00 


1C 

20C0 

60 

62 

48 

E7 

0E 

E0 

28 

3C 


43 

20C8 

54 

28 

54 

00 

60 

56 

48 

E7 


B5 

20D0 

0E 

E0 

28 

3C 

54 

23 

54 

00 


ID 

20D8 

60 

4A 

48 

E7 

0E 

E0 

4C 

EE 


01 

20E0 

00 

30 

00 

08 

08 

84 

00 

IF 


E3 

20E8 

8A 

84 

67 

08 

28 

3C 

54 

20 


55 

20F0 

54 

00 

60 

30 

2C 

BC 

7F 

FF 


4A 

20F8 

FF 

FF 

2D 

7C 

FF 

FF 

FF 

FF 


A3 

SUM ： 

B1 

C5 

09 

B2 

23 

86 

E9 

0i 

A887 

2100 

00 

04 

4C 

DF 

07 

70 

44 

FC 


B6 

2108 

00 

05 

4E 

75 

•18 

E7 

0E 

E0 


B5 

2110 

4C 

EE 

00 

30 

00 

08 

08 

84 


FE 

2118 

00 

IF 

8A 

84 

67 

D6 

28 

3C 


CE 

2120 

54 

21 

54 

00 

4C 

F9 

07 

60 


75 

2128 

00 

00 

26 

5 4 

32 

84 

4A 

50 


CA 

2130 

24 

96 

24 

AE 

00 

04 

4A 

50 


2A 

2138 

48 

44 

32 

84 

BA 

50 

67 

FC 


AF 

2140 

24 

AE 

00 

08 

24 

AE 

00 

0C 


B8 

2148 

4A 

50 

32 

86 

BA 

50 

67 

FC 


BF 

2150 

2C 

92 

2D 

52 

00 

04 

4A 

50 


DB 

2158 

48 

46 

32 

86 

4A 

50 

2C 

12 


IE 

2160 

4A 

50 

4A 

46 

67 

18 

08 

06 


B7 

2168 

00 

0B 

66 

1C 

08 

06 

00 

07 


A2 

2170 

66 

28 

08 

06 

00 

06 

66 

1C 


24 

2178 

42 

84 

60 

00 

05 

06 

4C 

DF 


5C 

SUM ： 

E0 

EE 

9D 

5C 

8A 

82 

IB 

0A 

67A1 

2180 

07 

70 

44 

FC 

00 

00 

4E 

75 


7A 

2188 

42 

96 

42 

AB 

00 

04 

78 

01 


45 

2190 

60 

00 

04 

F0 

78 

03 

60 

00 


2F 

2198 

04 

EA 

78 

ei 

60 

00 

04 

E4 


AF 

21A0 

48 

E7 

0E 

E0 

28 

3C 

54 

22 


F7 

21A8 

54 

00 

60 

0A 

48 

E7 

0E 

E0 


DB 

21B0 

28 

3C 

54 

28 

54 

00 

4C 

F9 


79 

21B8 

07 

60 

00 

00 

26 

54 

32 

84 


97 

21C0 

4A 

50 

24 

96 

24 

AE 

00 

04 


2A 

21C8 

4A 

50 

48 

44 

32 

84 

BA 

50 


E6 

21D0 

67 

FC 

24 

BC 

3F 

F0 

00 

00 


72 

21D8 

24 

BC 

00 

00 

00 

00 

4A 

50 


7A 

21E0 

60 

00 

FF 

68 

48 

E7 

0E 

E0 


E4 

21E8 

28 

3C 

54 

22 

54 

00 

60 

54 


E2 

21F0 

48 

E7 

OE 

E0 

28 

3C 

54 

28 


FD 

21F8 

54 

60 

48 

48 

0E 

B0 


19 

SUM ： 

BB 

EE 

15 

F5 

63 

AA 

DE 

B9 

529B 

2200 

28 

3C 

54 

23 

54 

00 

60 

3C 


CB 

2208 

48 

E7 

0E 

E0 

28 

02 

08 

84 


D3 

2210 

00 

IF 

88 

83 

67 

08 

28 

3C 


FD 

2218 

54 

20 

54 

00 

60 

26 

20 

3C 


AA 

2220 

7F 

FF 

FF 

FF 

72 

FF 

4C 

DF 


18 

2228 

07 

70 

44 

FC 

00 

05 

4E 

75 


7F 

2230 

48 

E7 

0E 

EO 

28 

02 

08 

84 


D3 

2238 

00 

IF 

88 

83 

67 

E0 

28 

3C 


D5 

2240 

54 

21 

54 

00 

4C 

F9 

07 

60 


75 

2248 

00 

ee 

26 

54 

32 

84 

4A 

50 


CA 

2250 

24 

80 

24 

81 

4A 

50 

48 

44 


6F 

2258 

32 

84 

BA 

50 

67 

FC 

24 

82 


C9 

2260 

24 

83 

4A 

50 

32 

86 

BA 

50 


03 

2268 

67 

FC 

20 

12 

22 

12 

4A 

50 


63 

2270 

48 

46 

32 

86 

4A 

50 

2C 

12 


IE 

2278 

4A 

50 

4A 

46 

67 

18 

08 

06 


B7 

SUM ： 

59 

11 

55 

37 

78 

DF 

6F 

7A 

BEEA 

2280 

00 

0B 

66 

1C 

08 

06 

00 

07 


A2 

2288 

66 

26 

08 

(d6 

00 

06 

66 

1A 


20 

2290 

42 

84 

60 

00 

03 

EE 

4C 

DF 


42 

2298 

07 

70 

44 

FC 

00 

00 

4E 

75 


7A 

22A0 

42 

80 

42 

81 

78 

01 

60 

00 


5E 

22A8 

03 

DA 

78 

03 

60 

00 

03 

D4 


8F 

22B0 

78 

01 

60 

00 

03 

CE 

48 

E7 


D9 

22B8 

0E 

E0 

28 

3C 

54 

22 

54 

00 


1C 

22C0 

2F 

07 

2B 

3C 

3F 

F0 

00 

00 


CF 

22C8 

60 

26 

48 

E7 

OE 

E0 

28 

3C 


07 

22D0 

54 

28 

54 

00 

2F 

07 

2E 

3C 


70 

22D8 

3F 

FO 

00 

00 

60 

12 

48 

E7 


D0 

22E0 

OE 

E0 

28 

3C 

54 

20 

54 

00 


1A 

22E8 

2F 

07 

2E 

3C 

40 

00 

00 

00 


E0 

22F0 

4C 

F9 

07 

60 

00 

00 

26 

54 


26 

22F8 

32 

84 

4A 

50 

24 

80 

24 

81 


99 

SUM ： 

57 

09 

C5 

29 

CE 

74 

3B 

64 

F1CC 

2300 

4A 

50 

48 

44 

32 

84 

BA 

50 


: E6 

2308 

67 

FC .24 

87 

24 

BC 

00 

00 


: EE 


2610 

44 

0A 

60 

50 

48 

E7 

0B 

EO 


: IB 

2618 

28 

3C 

00 

00 

44 

10 

60 

44 


: 5C 

2620 

61 

00 

F6 

92 

6B 

0E 

67 

14 


: DD 

2628 

48 

E7 

OE 

EO 

28 

3C 

00 

00 


: 81 

2630 

44 

14 

60 

30 

42 

80 

4 4 

FC 


: EA 

2638 

00 

01 

4E 

75 

44 

FC 

00 

05 


: 09 

2640 

4E 

75 

61 

00 

F6 

70 

6B 

0E 


: 03 

2648 

67 

14 

48 

E7 

0E 

E0 

28 

3C 


: FC 

2650 

00 

00 

44 

04 

60 

OE 

42 

80 


: 78 

2658 

44 

FC 

00 

01 

4E 

75 

44 

FC 


: 44 

2660 

00 

00 

4E 

75 

4C 

F9 

07 

60 


: 6F 

2668 

00 

00 

26 

54 

32 

84 

4A 

50 


: CA 

2670 

24 

80 

4A 

50 

32 

86 

BA 

50 


:00 

2678 

67 

FC 

20 

12 

4A 

50 

60 

00 


: 8P 

SUM ： 

4D 

66 

EB 

5E 

BD 

2E 

FD 

5B 


12E9 

2680 

FE 

BA 

42 

86 

32 

BC 

88 

00 


F6 

2688 

4A 

50 

24 

86 

44 

C4 

4C 

DF 


77 

2690 

07 

70 

4E 

75 

00 

00 

89 

00 


C3 

2698 

A8 

00 

74 

00 

00 

E9 

E0 

00 


B5 

26A0 

00 

E9 

E0 

0A 

00 

E9 

B0 

10 


AC 

26A8 

00 

06 

00 

04 

00 

12 

00 

0C 


28 

26B0 

00 

2E 

00 

2A 

00 

IE 

00 

3E 


B4 

26B8 

00 

16 

00 

0A 

00 

0E 

00 

08 


36 

2600 

00 

0C 

00 

0E 

00 

0C 

00 

10 


36 

26C8 

00 

30 

00 

52 

00 

04 

00 

04 


8A 

26D0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

26D8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

26E0 

ee 

04 

00 

04 

00 

04 

00 

04 


10 

26E8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

26F0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

26F8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

SUM ： 

F7 

01 

08 

3B 

76 

B8 

ID 

6D 

C6AB 

2700 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2708 

00 

04 

00 

04 

00 

0 4 

00 

04 


10 

2710 

00 

0 4 

00 

04 

00 

04 

00 

04 


10 

2718 

00 

04 

00 

04 

00 

04 

60 

04 


10 

2720 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2728 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2730 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2738 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2740 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2748 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2750 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2758 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2760 

00 

64 

00 

04 

00 

04 

00 

04 


10 

2768 

00 

04 

00 

04 

00 

04 

eo 

04 


10 

2770 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2778 

00 

04 

00 

04 

00 

04 

00 

04 


10 

SUM ： 

00 

40 

00 

40 

00 

40 

00 

40 

A830 

2780 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2788 

00 

04 

00 

04 

00 

04 

00 

04 


ie 

2790 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2798 

00 

04 

ee 

04 

00 

04 

00 

04 


10 

27A0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27A8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27B0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27B8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27C0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2708 

00 

04 

00 

04 

00 

04 

ee 

04 


10 

27D0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27D8 

00 

04 

00 

04 

00 

04 

ee 

04 


10 

27E0 

00 

04 

00 

04 

00 

04 

00 

04 


ie 

27E8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27F0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

27F8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

SUM ： 

00 

40 

00 

40 

00 

40 

00 

40 

A83D 

2800 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2808 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2810 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2818 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2820 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2828 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2830 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2838 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2840 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2848 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2850 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2858 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2860 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2868 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2870 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2878 

00 

04 

00 

04 

00 

04 

00 

04 


10 

SUM ： 

00 

40 

00 

40 

00 

40 

00 

40 

A83D 

2880 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2888 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2890 

00 

04 

00 

04 

00 

04 

00 

04 


10 

2898 

00 

04 

00 

04 

00 

04 

00 

04 


10 

28A0 

00 

04 

00 

04 

00 

0-1 

00 

04 


ie 

28A8 

00 

04 

oe 

04 

00 

04 

00 

04 


10 

28B0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

28B8 

00 

04 

00 

04 

00 

04 

00 

04 


10 

28C0 

00 

04 

00 

04 

00 

04 

00 

04 


10 

28C8 

00 

04 

15 

C6 

04 

66 

00 

34 


7D 

28D0 

00 

C2 

00 

92 

0 0 

8E 

00 

AC 


8E 

28D8 

00 

AE 

00 

7C 

00 

82 

00 

82 


2E 

28E0 

00 

A4 

00 

A2 

00 

00 

00 

00 


46 

28E8 

00 

00 

00 

00 

00 

0 0 

00 

00 


00 

28F0 

00 

00 

oe 

00 

(U) 

00 

00 

00 


00 

28F8 

00 

00 

oe 

00 

00 

00 

00 

00 


00 

SUM: 

00 

3C 

15 

9A 

04 

9A 

00 

86 

E411 


0 8733AB54CE654A16 
D DEAA49E2A6EFD884 


F28E012A 

6 04FEF 04004 AEE00E 
4 0430264402 B 20600 

7 0CC700CC 00407 EC7 
0 033E 00336585 E03E 


62244022043 -TT 


78 Oh ! X 1988.8. 


►烺近 オクラ入り していた MZ-80K を学校に持っていって活用して いる。 学校に持ってい 
<ときは疲れました。あれって重いんだもん。 村•上 秀広 ⑽北海道 








































リスト E FPPMAC.H 



fpp is idle 

request to send double pr. data 

request to send long integer 

ready to send double pr. data 

ready to Bend long integer 


to fpp 
to fpp 
from fpp 
from fpp 


70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
: U 

34 

35 

36 

37 


define macros 


wait until required status 

l_fppadr ： macro 

lea FPPADR,a5 
endn 

w_atat : macro 
local 

wjoop: 

cmp. w 
bne 
endro 


cond 

w_JLoop 


tcond,(a5) 
w_ 10 op 


load double pr. nun to fpp with operation 


Iddble ： macro 
w_8tat 

w_8tat 
move.1 
move.1 
endro 


si f a2 ,fppreK t op 
nullres 

#$54O0^fppreg<<7^op,FPPCMD(a5) 

snddbl 

si f FPPDATREQ(a5) 
82,FPPDATREG(a5) 


store fpp to double pr. num to 81,82 


macro 
w_stat 
move•w 
w_8tat 
move•1 
move.1 
endro 


81,82,fppreg 
nullres 

#$740O^fppreg<<7,FPPCMD(a5) 

recdbl 

FPPDATRE0(«5) f si 
FPPDATREG(a5 ),b2 


1 move nura in sfppreg to dfppreg with operation 

movedbl : macro sfpprefi,dfppreg,op 
w^stat nullres 

move.w #sfppreg<<104dfppreg< <7 + op,FPPCMD(a5) 
endm 

load long integer to fpp with operation 


macro 
w_stat 
move.w 
w_»tat 
move.1 
endm 


si,fppretf,op 
nullres 

#$40OO>op^fppreg<<7,PPPCMD(a5) 
sndl A 

sl,FPPDATREG(a5) 


store num in fppreg to si 


macro 
w^stat 
move•w 
w_stat 
move.i 
endm 


sl,FPPDATHKG(a5) 


iond constant, to fppreu 
not available ? 


macro 
w_stal 
move.w 
endm 


fppreg.cnatno 

nullres 

零 S 5600 +cn8tno+fppreg< <7,FPPCMD(a5) 


リスト 3 FRACT. BAS 

20 screen 1,2,1,1：oonsole ,,0 
30 float T,U,V,W,X,Y 

50 dim float p(5)={-0.5#,0.5#,-0.5#,0.4#,0.34#,-0.4#} 

60 T=(p(l)-p(0))/511# : U=(p(3)-p(2))/5111 : V=p(4) : W=p(5) 

70 for t=l to 255 : u=co8(pi((t mod 42)/21#}> 本 12 + 27.5# : if u>31 then u=31 
80 v=cos(pi(((t + 21)mod 42>/21 川本 7 + 23.5# : if v>31 then v=31 

90 palet(t,h8v(190*t/255+l,u,v)) 

100 comment 
110 next 

180 uaefpp( V , W , T , U , p{0) , p(2) , 511 , 255 ， &HFF ) 


リスト 4 FRFPP.S 


dx 

dy 


retain 
immin 
MAXD0T1 ds. 
MAXREP 
MASK 

.XDBF 

.XREF 

.text 

_uaefpp: 

link 


include fppmac.h 
•offset 8 
dtt.l 2 
2 

ds 
d8 


_usefpp 

_pset 


clr •1 
dc.w .SUPER 
move.l MAXDOTl(a6) r d4 
move.l MAXREP(a6),d5 
move.l MASKU6) ,d6 
move.1 dO ， - <sp) 
l_fppadr 

clr.w FPPREST(aS) 

Iddble recon(a6),recon+4(a6),fp2 


26 ： 

of const 
27 ： 

28: Lll ： 
29 ： 

30: 

31 ： 

32: L14: 
33 ： 

34 ： 

35 ： 

36 ： 

37 ： 

38 ： 

39 ： 

40 ： 


iddble imcon(a6),imcon+4(a6) t fp3 v _load 
CLR.L dO 

CMP •し d4 f d0 
BGT LI2 
CLR.L dl 

CMP,L d4 t dl 

BGT L15 

ld!4 d0,fp0, — load 

Iddble dx(a6),dx^4(a6)»fp0. fnul 

iddble remin(a6),renin44< a6}•fp0. fadd 

ldI4 dl t fpl,_load 

iddble dy(a6),dy+4(a6).fpl し一 fmul 

Iddble immin(a6),imrain44(a6),fpl t 一一 fadd 


塞 real part of o 
• imaginary part 


41: 

42 ： L17: 
43 ： 

44: 

45: 

46: 

47: 

48: 

49: 

50 ： 

51: 

52 ： 

53 ： 

54 ： 

55 ： 

56 ： 

57 ： 

58 ： 

59 ： 

60: 

61 : 

62 ： 

63: L19: 
64 ： 

65 ： 

66 ： L18: 
67 ： 

68 ： L21 : 
69 ： 

70: 

71 ： 

72 ： L16 ： 
73: 

74: 

75: L15: 
76: L13: 
77 ： 

78: 

79: L12: 
80: 

81 ： 


MOVE.L #0,d2 


CMP.L 

BGT 

movedbl 

movedbl 

movedbl 

movedbl 

movedbl 

movedbl 

movedbl 

novedbl 

movedbl 

movedbl 

movedbl 

movedbl 

movedbl 

movedbl 

movedbl 

stdbl 

cmp.1 

btfe 


d5,d2 
L18 

fpl t fp6,_load 


fp6 ， fp6 
fp0,fp4 
fp4,fp4 
fp6,fp4 
fp2 ， fp4 
fpl,fp5 
fp0 t fp5 
fpSifp5 
fp3,fp5 
fp4•fpO 
fp5 t fpl 
fp4,fp4 
fp5,fp5 


_froul 
load 
_fmul 
_faub 
_fndd 
_lood 
_fmul 
一 fadd 
_fadd 
一 load 
一 load 
_fmul 
_fmul 


fp4,fp5,_fadd 

d3 f d7,fp5 

*$401O00OO t d3 


拿 Y 拿 Y 



• X 拿 Y 
« 2 拿 X 拿 Y 

t Q = 2 拿 X 拿 Y ♦ W 


t QtQ 

t R 拿 R 
* Q*Q+R 拿 R 


ADDQ.L fl,d2 
BRA L17 

and.L d6 f d 2 


movem.1 
JSR 

movem.1 


d0-d2,-(SPJ 


一 pset 

(8p)+,d0-d2 


ADDQ.L #l,dl 
BRA L14 


ADDQ.L 攀 l,d0 
BRA Lll 

unlk a6 

rta 


►先日，愛機 Xlturbo の落下試験を行ってしまいました。それ以来，彼女は機嫌を拟ねて 
なかなか起勋してくれません。やはりチェックしてもらうべきでしようか。なにやら中で 
カタカタいってるし。 大石和生 （17) 静岡県 
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Xl/Xlturbo ^ 

組曲「くるみ割り人形」ょり シナの踊り 

Itou Keiichi 

伊藤圭一 

Xl/Xlturbo 


マリオネット 

Sasaki KouJi 

佐々木孝司 

MZ - 2500 


ささやさのステップ 

Okaue Keisaku 

岡上圭作 


まずはクラシック 


さて，今月のトッ フ 。バ'ッターは，以前 X 
1用の MOONLIGHT SERENADE を投稿 
してくれた伊藤圭一君の作品です。今回は 
チヤイコフスキーの 組曲くるみ割り人形か 
ら「シナの踊り」に挑戦してくれました。 
クラシックに興味がないという皆さんも一 
度くらいは耳にしたことがあるのではない 
でしょう力 1 。なかなか可愛らしい感じの小 
曲ですが，どうせならほかの曲にも挑戦し 
てほしいところです（できれば全曲）。 

なぜ，シナの踊り（組曲のなかでは，け 
っこうマイナー）なのかというと，単に曲 
の作りが単純だったからだそうで……。実 
際，繰り返し部分が多いためか，非常に短 
いプログラムにまとまっていますね。 

弦楽器は PSG ， ベース，バスーン，クラ 
リネット，フルート以外の楽器は無視して 
あります。フルートのソロは長音に@を多 
用しているため若千遅くなるところもあり， 
一部長音が楽譜どぉりでないこともありま 
すが，調整用ですので別に間違いではあり 
ません（実行には3月号の拡張が必要です）。 

リスト中にところどころ見慣れない記号 
が並んでいます0これはボリュームコント 
口ール用のサブルーチンに渡すコマンドで， 
アッパーバーは 相対 ボリュームアップ，ア 
ンダーバーは 相対ボリ ューム ダウンを意味 
しています。たとえば， 

“ C — 5” 

を A $ に入れて，サブルーチン“ v ” に渡せば， 
現在のボリューム値よりも5/128だけ小さ 
な音量で C の音を鳴らす MML が生成され 
ます0 MML のボリュームコントロール用 
のプリプロセッサだと思ってください。こ 
の曲ではアクセントと最後のクレッシェン 
ドにしか使っていませんが，こういった管 
弦楽曲を MML に落とすときには有効な手 
法といえるでしょう。 

80 Oh! X 1988.8. 


またや VIP 闩〇〇 M 


続いて，同じく Xl ( 祝版 MML 要) で BO 
0 WY のマリォネットです。作者の佐々木さ 
んはこの コーナーでは お馴染みになった F 
M 音源サークルけ）， VIPROOM の会長と 
いう肩書を持っています。以前，渡辺美里 
の曲で紹介したことがありますね。 

なぜ，いまごろ解散してしまった BO 0 W 
Y なのかというと，たまたま 『Keyboard 
Land 』 の6月号に楽譜が載ったのを見て， 
ということらしいのですが，やはり思い入 
れがないとできないものでしよう。 

さて，このプログラムにも変なサブルー 
チンがあります。 “ A $ sub ” というもので 
すが，これはできあがった曲を友達に聞い 
てもらったところ，ドラムが弱いといわれ 
改良した跡だとか0そのほか，マルチプル 
による5度の和音などのテクが使われてい 
ますが，1音で和音を出す程度はまだ FM 
音源の初級テクニック。やろうと思えば1 
音で エコーを かけられるようになるというほ 
ど FM 音源も奥が深いのです（こういうこと 
になると Oh ! FM は凄い）。すでに開発され 
たハイテクを マスターす るのもいいでし よ 
うし，新しい技をみつけるのもよいでしよ 
う0誰かキャリア FIX やショートデイレイ 
などにも挑戦してみてください。 


最後は歌謡曲 


MZ - 2500用には薬師丸ひろ子の「ささや 
きのステップ」です。今回の岡上さんの投 
稿には NTT でお馴染みの「あなたをもっと 
知りたくて」もあったのですが，全体的な 
完成度でこちらを選びました。クラシック， 
ポップス，歌謡曲と，我ながら選曲にまっ 
たくポリシーがありませんね（博愛主義者 
と呼んでください）。 

演奏にはまず ， Oh ! MZ 1987年9月号の 


さあ， XI 用に MIDI 対 ffiMML も発表され， 
コンピュータミュージックちまだ1歩面白 
い方向へ足を踏み出しだようです。今回は 
XI 用に2曲， MZ - 2500用に1曲お届けし 
ます。なお， XI 用は1988年3月号での拡張， 
MZ - 2500用は1987年9月号での拡張が必要 
です。 



薬師丸ひろ子 


MML 拡張プログラムを使用し， PC -8801 シ 
リーズの音色を選択します。 

主旋律には2つ重ねた PSG の音をうまく 
使ってよい音を作っていますね。 OPN での 
ボーカル®;理の典型的な例ともいえるでし 
よう。全体的に素直なプログラムですが， 
主旋律が奇麗に決まっているので非常に完 
成度が高く聞こえます。過去に何度か MZ - 
2500用の投稿には主旋律の使い方，音の割 
り当て方に問題があるものが多いと指摘し 
ましたが，この作品やドラゴンスピリット 
では PSG を生かした使い方がされていると 
いえます。ぜひ参考にしてください。 

ただし，この作品の場合 FM 音源の音自 
体にはまだまだ改善の余地はありそうです 
ね 0 


お知らせ 


さて，著作権がらみで発表できなかった 
作品名は公開したほうが参考になるのでは 
ないかとのぉ便りをいただきました。なる 
ほど。これまで発表できなかった作品は以 
下のとぉりです。 

今回のプログラムのほかに伊藤圭一さん 
が送ってくれた「アルビノ ーニの ア ダージ 
ョ」は編曲者のからみで少し難しそうです。 
そのほか，“シンセの鬼才” マーク •アイシ 
ャムの 「The Threshold of Liberty 」 は現 



















在日本での版権所在不明のため （？） ダメで 
した。基本的に楽譜が出版されているよう 
なものなら，たいていは大丈夫。マイナー 
そうな作曲家や20世紀に入ってのクラシッ 


クの類は難しいと思っておいてください（日 
本人なら大丈夫)。 

また，今月から MIDI の連敝が始まりま 
した。この コーナーで MIDI の データは ど 


うするのか，などはまだ未定ですが MIDI 
の投稿も随時受け付けます。楽器名，シス 
テム 構成を明記し， デモテープを 添えて送 
つてください。 


U スト1シナの踊り 


10 TEMPO 0：DEFINT a-z 

20 DKF FNv$(v ) = u v M +RIGHT$(STR$(v),LHN< STRS(v»)-1) 

30 POKE &HAFDE,&HCA：POKE &HAFH1,0：^ - &+ 

40 •ツキ-カラ 5 キ - 0ウ,オンチ3ウハンフ•ン 

50 IF PEHK(&HAH23)<>255 OH PEEK(&HAH24) <>7 THKN 100 
60 FOR a=&HAE23 TO &HAE63 STEF 2 
70 d=CVl(MEMS(a f 2))+1 
80 MEM$(a f 2)=MK1$( A/2- 1) 

90 NEXT 

100 M s M ： M 0 M ：END 

110 1 - 

120 LABEL "v” 

130 h$=FNvS(v)+a$ ： j=l+LEN(FNvS(v)) 

140 FOR i=l TO LEK(a$) 

150 ud$=MIDS(a$ t i f i) 

160 IF ud$ =，，_" OR ud$ = ,4 ~ ，% THEN v = v+( (tjdS = M ”>-( udS ：： 本 VALt MID 

$US, i + 1, : b$ = LEFT$(bS, j-1)+FNv$ ( v ) +R1GHTS ( b$ f LEN ( bS ) - j-1) : j = j 
+LEN(STR$(v))-1 ： i=i+1 
170 j=j+l：NEXT 
180 RETURN 

190 • - 

200 LABEL M 0 M 
210 PLAY M t63" 

220 mlS = M rlr2.b-@18>c@18d@I9e-^lBr«18g^l8a®19 , * 

230 m2$= M b-4q5a8g8q8grgfgfgfgfRfgfef^l6r8."4f4&_4f®26d@25<b-^26f 
®25d 鰣 26 く b-8>r8” 

240 m3$ = M rlr2. >g»21 f^21e-©22d«21c®21 <b-«2k! M 

250 m4S = ,, a4q5g8a8q8gfgfgfefq5g8a8b-8r8q8<-4b-4A t _4b-@26>d@25f@26b 

-^5> d «26 f 8< r 8 M 

260 s1$ = "rlr2.rb->rc<rarf>rcrd<rb-rfr4 M 
270 s2$= M r1r2•b-r>cr<arfr>crdr<b-rfrr4" 

280 f 1$ = STRINGS (8, M f<b -> M )： f 2$= •dddddddddddddddd •• 

290 f3S = M e-ce-ce-ce-cdddddddd ?, 

300 blS="b-rrrb-rrrb-rrrb-rrr" 

310 PLAY M i loSqSv^ULaiiplkg'^mlS ； 

320 PLAY M : ilo5qBvl20L32p2kl n +mlS ； 

330 PLAY 

340 PLAY M : i2o3q4vl08L8p3k8 n +f]S ； 

350 PLAY M :i2o3q4vl08L8p3k2 M +f2$; 

360 PLAY .•: i3o2q4vU2L8plkl" + bl$ ; 

370 PLAY M : i3o2q4vl 12Lttp2k9 n 4-bl$ ; 

380 PLAY •• ••o5q4vl3L8:o4q4vl3L8:o3q4vl3 し 8” 

390 * 

400 a$=m2$+ml$ 

410 v=120: ..v •，： PLAY b$ + ” ： M +b$; 

4 20 PLAY M : : :” + n $ + n $ + ": •，+ f 2$ + f .3$ + ” ： + b 1 $ + b 1 $ + •，： M + bl $ + bl $； 

4 30 PLAY ••: ••+sl$ + ":" + sl$ + M V ，+ s2$ 

440 • 

450 a$=ro2$+ro3$ 

460 v=120:”v”：PLAY b$+ M : M +b $； 

470 PLAY : : : " + m + f lS + ":" + f2$ + f3$+” ：" + b】S + bl$ + ” ： . + bU + blS; 

480 PLAY ": "+slS+ :"+sl$+":"+s2$ 

490 * 

500 s3$ = M rlr2•r^rgrg+ra>rdrc<rb-rfr4 M 
510 s4$= M rlr2.frgrg+rar>drcr<b-rfrr4" 

520 a$=m4$'fm3$ 

530 v=120:”v":PLAY b$； : PLAY M ： M +b$; 

540 PLAY •，： •• :" + fU + t ， l$ + ”：” + f3$+f3$ + ••: • +bl$+bl$ + ”：" + bl$ + blS; 

550 PLAY ”：" + s3S + ••: .，+ s3$ + ": ， .+s4$ 

560 ， 

570 a$=m4$+ml$ 

580 v=120 ： n v M ：FLAY b$ ； : PLAY ，•： ” + b$; 

f>90 PLAV M : : : " + fl$ + n$ + ": M + f3$ + f3$ + ”： M + bl$ + bl$ + ":"+bl$ + bl$; 

600 PI,AY M ： H + s3$+ M ： M +s3$+ M : ,, +s4S 
610 1 

620 a$=m2$+ml$ 

630 v=120 ： M v M :PLAY b$ ； : PLAY ••: ” + b$; 

640 cl$= M b->dfb->d<b-fd< M :c2$= M >cra>cfc<af< M 
650 c3$= 'dfb->dfd<b-f M : c4S = ”e - a>ce-ae-c<a” 

660 PLAY M ： i4o3q8vl04L16p3k2 M 4STRING$(4,c1 $ い c2$ + c2$+c1S+c 1 $ ; 


•• + sl$+ M :"+sl$ + M : ， +s2$ 


••v ••: PLAY b$ + M o5q4vll6p3k8 r 1 r2 . f ©4 2^ > f 3 f «4 3 < M ; 

PLAY M : ,, + b$ + , o4q4vll6p3k2 r 1 r2 • f ㉘ 42&> f®4 3 f 則 3 く"； 

: M +STRINGS(4 f cl$)+c2$+c2$+cl$ + ci $； 

: ,, +STRING$( 4 f c3$)+c4$ + c4$+c3S+c3 $； 

: •• + fl$+t ， l$ + •，： dddddddddddddddd..+ f 3$ + •，： •• + blS+bU + M :" + bl$ 


670 PLAY M : i4o3q8vl04L16p3kH M +STRING$(4,c3s)^c1$+c4S+c3$+c3S ； 

_ P し AY : M + f 1 $ + f i $ + M :dddddddddddddddd M f f ：JS + " ： "+bl $ + bl $ + M :，. + bJS 
+ bl$; 

690 FLAV 
700 1 

710 a$rm2S 
720 v=120: M 
730 

740 PLAY 
750 PLAY 
760 PLAY 
+bl$; 

770 s5S=">rc<rarf>rcrd<rb-rf M 
780 s6$ = ">cr く arfr>crdr<b-rfr" 

790 PLAY •，： rlr2.rb-"+s5$ + ”rb-"; 

800 PLAY ":rlr2.rb ， ”+s5$+”rb -”； 

810 PLAY •，： rlr2.b-r"+s6S + ”b-r" 

820 f 

830 m5$ = M > f1 &<f@42f^42<f©41&> f(»42f®42 M : mfi$=STRINGS U , f 保 4 U>f® 
42f©42< M ) 

840 PLAY STRINGS い I,m5$ + m6$>; 

850 PLAY M : n ^STRINGS(4 f mB$+m5$) : 

860 PLAY M : M +c2$4-c2$+cl$+c2$*fcl5+c2$+cl$+c2$ ； 

870 PLAY M : ,, +c4$+c4$+c3$+c4$+c3$+c4$+c3*+c4$ ； 

880 PLAY ": ”+fl$+fl$; 

890 PLAY M ： e-ce-ce-ce-c M +STRING$(3,'dddde-ce-c M )； 

900 PLAY " : •，+ bl$ + bU + ” •• "+bl$ + bl$ ; 

910 s7$ = M >rc<rarf>rc<*>STRINGS(3 f M >rd<rb-rf>rc< M ) 

920 PLAY •• •• ••+s7$ + ••: "+s7$+ ••: >cr<arf r>cr< M +STRINGS ( 3 f M >dr<b-rf r >dr 


930 1 

940 ra7$ = ,, -l>f©41&<f@4Zf04 2"2<f«41&>f»4iif©42 M 
950 m8S=STRING$(2, , ^lf«41&>f«4 2f«42< M ) 

960 a$=rn7$+m8$+m7$ 

970 v=120:”v":PLAY b $； 

980 a$=m8$+m7$+ra8S 

990 v=120: M v ••: PLAY ,, ： ,, + bS ； 

1000 q$=STRING$( 3, ,, ~lb->d-lfb--l>d<b-"lfd< , ) 

1010 v=104 : M v M : PLAY ， • ： "+b$; 

1020 a$=STRING$(3 f M ^ldf*1b->d*1fd"1<b-f H ) 

1030 v=104:"v":PLAY ••: ”+b$; 

1040 a$ = STRING$<6, — If く - lb->" > 

1050 v=108:"v":PLAY ": "+b$; 

1060 a$=STRING$(6, M -lcTld M ) 

1070 v=l08: M v M ：PLAY M ： M +b $； 

1080 a$ :: ••t6r4b- r t65rrt66_4b-rt67rrt68-4b-rt69rr" 

1090 v=112 ： M v M :PLAY ，•： "+b$ + ••: ”+b$; 

1 100 a$ = M ~l>rd<rb->rd*l<rb-> rd<rb-" 

1110 v=13:"v":PLAY ":"+b$+” ： ”+b$; 

1120 a$=”_l>dr<b-r>dr-l<b-r>dr<b_r" 

1130 v=13 PLAY ":” +b$ 

1140 1 

1150 PLAY ••q8vl26t60r8>f4:q8vl24r8>d4:vllt5r8f4:vll4r8d4..; 
1160 PLAY M ： q8vl20r8>f4 ： q8vl20r8>d4:vl27r4b-8 ： vl27r4b-8 n : 
1170 PLAY M ： o3q8vl5r4b-8 ： o3q8vl5r4b-8 ： o2q8vl5r4b-8 M 
1180 f 
1190 END 

1200 f - 

1210 LABEL M s M 
1220 FOR 1=0 TO 7 


1230 READ A$:MEM$(&HB190+I*18,18 い HEXCHR${A$> 

1240 NEXT：RETURN 

1250 DATA FB 003472443 11B342BOO144K124EO 010128 C： 1 Pan FLUTE 

1260 DATA 000000000 A9A0A 2800000000000080000000 

1270 DATA EC 0070414034251120 111214131400O08E00：' FAGOT 

1280 DATA 0000000008081808000000000 OC 880000200 

1290 DATA FC 000131000017000 FOO5F5F9F540Z 82028 2： f E Bass 

1300 DATA 14OAOA0A 07080708000000000 0C 880000200 

1310 DATA F 8003132743125252500 H14141D0 000000 0: 1 SAX 

1320 DATA 000000000606060 A000 000000 OCC 80000200 


U スト 2 マリオネット 


日本音楽著作権協会（出 ) 許諾第887065卜801号 


10 ， - 

20 f - r MARIONETTEj B 0 0 W Y - 

30 f - - - 

40 IF PEEK (&HAE23 )0255 OR PEEK ( &HAE24 ) < > 7 THEN 100 
50 *■ オンチ ! 》ウハンフ • ン _ 

60 BEEP : FOR X=&HAE23 TO &HAH63 STEP 2 
70 MKM$(X,2)=MKIS((CVI(MEM$(X,2)) + 1)/2-1) : NEXT 
8() f ■& く -〉 &+_ 

90 POKE &HAFDE,&HCA：POKE &HAFE1,0 

100 CLSO : (10SUB 2690 : R = 0 

110 THMPO0 : PLAV M T85R0 M 

120 GOTO 270 

130 f m MM し PLAY ■ 

MO LABEL. ”！ •， : Y$ = A$ : ，，八 $ sub.. 

150 PLAY AS ； : PLAY":"+B$; : PLAY” ： ••+C$ ••: PLAY M ： "+D$ ； 

160 PLAY ••: ” +ES; : FLAY ， : M +FS ； : PLAY" ： M +G$ ； : PLAY M ： M + H$ 

170 A$=Y$ : RETURN 
180 ??? ■ 

190 し ABEL M A$ sub” 

200 A=1NSTR(AS, o I40 M ) : IF A=0 THEN 230 

210 A$ = LHFT$(AS f A-l)+ ** i 40v 125 M + Mi D$ ( A$ , A+3 f LEN ( A$ )-A ) 

220 GOTO 200 

230 A=IN.STR(A$, 1 138** ) : IF A = 0 THEN RETURN 

2*10 AS = LKFT$( AS ,A-1)+ M i38v 120 M + MI D$ ( A$ , A+3 , LEN ( A$ )-A ) 

250 GOTO 230 
260 Intro ■ 

27U A$ = M I39P3K3V1 203 L16CCDDL8F+F+ M : B$ = M 139K8VI 27031.16 PICCP2DDP3 
し 8F + F+ 

280 1 •• B • I) • : H. H. : Bass : Key : Key : Guit. : Gui t. 

: Vocal" 

290 PLAV * 4 H0Ol«5: 13606 Q5: 1202 Q6：- Q7 : Q7 : I604Q7: I604Q7 


: I3Q8 •• 

300 PLAY "V120 L8 ： V120 L8 ： VI15L8 ： V105 : V110 : V110L8 ： V110L 8 

: VI13 M 

310 A$ = STHING$(2 t M 14001C 413802 Cl40O1CH 413802 C4 M ) 

320 B$ = M O6V125I34C4V120136 M +STRING$(14 f ••(：••) 

330 C$="02G+G+B>C+4D+EE+ F+KD+<B4BBB M 
340 D$ = M 11101L8G+G + RG+&G + 2 I 1201F + F+RB&BZ 
350 E$= M I10O2L8D+D+RE&E2 C+C+R く F+&F+2 

360 F$ = ,, 04L8G+B>D+E4D+^22E»21D+»21C+<H A + F + >F+D+2&L)+8” 

370 G$ = ”K8” + LEFT$ ( F$ , 38 > + ..04B2&B8" 

380 "!” 

390 A$ = LEFT$(A$, 48 >+ 4 , 13802 C4C" 

400 B$ = STRING$( ) 

410 F$ = LEFT$(F$ # 4"+”D+" 

420 G$=LEFT$(G$ f 44)+ M B H 
430 

440 R=R+i：IF H=1 THEN 310 

450 A$ = M 14001 Cl38O2CCI40O1C H113802V125CCCV120R M 
460 B$ = M V 125134 C8R4C2&C8 , * 

470 (: $ = "03C + FG+>C+&C+1 V 122 く F + F+F+V 115•• 

480 D$= M R4.01112C+&C+2&C+2I11A+A+A ♦” 

490 H$ = ,, 02C + FG + >C+&C+2 & C + 2<OC+C+•• 

500 FS= M 04C+FG+>C+&C+1 V115<F+K+F+V1 10" 

510 G”"04C + FG+>K5F&F1 VI10CC+C+C + V1G0” 

520 "!" 

530 A m 

540 A$ = STRING$(2, M L 414001 Cl 3802 CI40O1C8CB138O2C M ) 

550 B$= M VI 25134 C4V1 20136 M +STRING$(14, M C M ) 

560 CS = m 02G+G+G+G+G ++G+G+G+>D+D-*-D + D4D+D+D+D+ m 
570 U$ = M I 110lG+2R4Q3G-f8G-f8Q7112F+2R4Q3F+8Ff 8«7 M 
580 H$ = M 11002 Df2R4Q3D+8D4-8Q7 D+2R4Q3D+8D+8Q7 M 


Oh ! X LIVE in f 88 81 











590 F$= M PlVi05L4O4D+RRD+8D+B D+RRD+8D+8 M 
600 GWI6P2V105L4O3G+RRU+8G+8 A + RRA+8A + 8” 

610 IF R=2 OR R=7 OR R=8 THEN H$="05L8D+D+D+IHD+D+C+ く B >C+4<B>C+ 
4D+4. M 

620 IF R=3 THEN H$ = "05L8RD+D+EED+C+<B >C+4 <B>C+4 . D+4 f, 

630 ••!" 

640 BS=STRING$(16 f M C M ) 

650 C$=°EEEEEEEE<BBBBBBBB M 
660 I)$ = M 11 IG+2R4Q3G+8G+8Q7 112H4.B4.ti4 M 
670 K$= M E2R4Q3E8E8Q7 <F+4.F+4.F+4 M 
680 FS = ,, ERRE8E8 D+• D+• D+8E8" 

690 G$= M BRRB8B8 B.B. M 

700 H$= M R04BB4BB4G+F+ V 108BB4BB4G+ , * 

710 " 

720 C$ = . ， F+F+F+F+F+F+F+F+>C+C+C+C+C+C+C:+1H” 

730 D$= M lllA+2R4A+4 C+4.C+4.C+4" 

740 E$ = M 02F+2R4F+4 G+4.G+4.0+4 く ” 

750 FS= M F+F+R8F+8R C+•C+•C+8D+8" 

760 G$= M 04C+C+R8C+8R <G+.G+. M 

770 H$ = M F+4V1 13F+4G+4A+^1 B4A+B4>C+4D+8 M 

780 • い ” 

790 IF R=3 OR R=8 THEN 890 

800 A$ = LEFT$(A$, 43 い .. 814001 C8R8C 81380 2C8C8.. 

810 C$= M 02EEEEEEEE F+F+F+F+F+F+F+F+ M 
820 D$ ： =”I12E4.E4.E4 111A+2A+2" 

830 ES= M B4.B4.B4 >F+2P+2” 

840 F$= M EER8<B8>E C+I5F+A+216” 

850 G* = M BBRB F+ #, 

860 H$= : ..EED+D+C+C+ く BG+ F+4>F+D+ M 
870 ”！" 

880 H=R+1：GOTO 540 

890 AS = LEFT$( AS, 43) 814001 C8R8CH1380i!C ,, 

900 C$ = n 02EEEKEEHE P+F+l.+F+F+K+K+F+" 

910 D*= ,, I12E4.E4.H4111A+2112F.2” 

920 E$= f, B4 .B4 .B4 >F+2F+2.. 

930 F$= M EER8<B8>E C+2A+2" 

940 G$= M BBRB F+2>C+2" 

950 H$ = M EED+D+C+tXBG+ F+4>F+4D+4RD+ M 
960 IF R=8 THEN H$=LEFTS(H$,26) 

97U "!•• 

980 B ■ 

990 A$ = STRING$( 2, M L 414001 Cl38O2C140OK8CB1 3802 ) 

1000 B$= M V1 25134 C4V1 20136 "+STR1NGSI14 f M C M ) 

1010 CS= U 03AAAAAAAA G+G+G+G+G+G+G+G+” 

1020 D$="V1 001150 1C+1 G+l" 

1030 E$ = ..V1 ⑽ 11401 A1 >K1” 

1040 F$= M P2V11005C+.AEC+8 くく BA8” 

1050 GSr^PlKH'^RIGHTSlF$ f 24) 

1060 IF R=3 THEN HS = M 05E4 . EEE4E4 C+4 <JBR4BB&" 

1070 IF R=4 THEN H$="05C+4EE4E4E4 C+4C+4&<BB&” 

1080 IF R=8 THEN H$= M 05E4.E4E4E4 C+4C+4 
1090 IF R=9 THEN H$ = H 05C+4EE4E4E4 C+4<BR4fiB& M 
1100 ”！" 

1110 B$=STRING$(16 f M C M ) 

1 120 (:* = "F+F+F+F+F+F + m.+ EEEEEEEE" 

1130 I)$ = "I16D 】 I15G+1” 

1140 K$= M <A1 >E1 M 

1150 F$= M A. >F4-D<A8 U+.>K く B. ••: GS = F$ 

1160 IF R=3 THEN H$ = M B&AAA4B&>C+ <B4 . G+A.1B” 

1 170 IF R=4 OR R=9 THEN H$ = "BAA4 • B«l>C+<B4 • G+A4B.. 

1 180 IF R=8 THEN H$= M B&AAA4B>C+& く B4• G+A4B" 

1190 

1200 C$= M 03AAAAAAAA G+G+G+G+G+G+G+G+" 

1210 I)$ = M II 5041 116E1 H 
1220 K$= M <A1 Bl” 

1230 F$ = °A>C+8AEC+8 <B8G4 - >E<BB8" : G$ = F$ 

1240 H$= H 05E4F+E4C+4<B4 G+4A4BR>F+" 

1250 IF R=4 OR R=9 THEN H$=LEFT*$ ( H$ , 22 ) 

1260 

1270 IF R=4 OR R=9 THEN 1380 

1280 A$= M L8I 40010413802 C 414001 CCI3802CI40O1C RI 4001 Cl 3802 Cl 400 1C 
RCI 3802 C ，， 

1290 B$ = "CCCCCCCV1 25134 C4 VI 20136 CCV125134C4V120 I36CCC" 

1300 C$="DDDDDDDD EEEEEEEE" 

1310 D$="I16D2.&D8 E2E24E8" 

1320 E$ = ..A2.fcA8 B2BZ&B8' 

1330 F» = "PlO5VU0A8A.AA8G+2 E8&E2V105" 

1340 G$ = "P2K5O5VU0D8D.DD8<B2 B8&B2V100" 

1350 H$ = '*05F+EBF+F+ERE4 . R8E4 ." 

1360 '* : " 

1370 R=R+1：GOTO 990 

1380 A$ = "L8"+STRINGS< 2," 14001 CCI 3802 CC.. > + "14 OOICCI 3802 Cl 4001 CC" 
1390 B$=STRING$(12,"C")+" 138020806 " 

1400 C* = ,, C+C+R4C+C+RC+ V 122D+D+D+D+D+V115R4 ." 

1410 D$="L8I16EER4EER4112F+F+F+F+F+" 

1420 E$ = ,, L802C+C+R4C+C+R4D+D+D+D+D+ M 

1430 F$="P1L8V110C+C+R4C+C+R4V113D+D+D+D+D+" 

1440 GS = , ， P2K5 し avi H)G+G+R4G+G+R<IV115A+A+A+A+A+" 

1450 H$="05CfC+R4C+C+R4 V117D+D+D+D+D+" 

1460 " !" 

1470 '■ C ■ 

14 80 A$=STRING*{2, ,, I4001C4I3802CI4001CR4I380UC4 M ) 

1490 B$ = "Vl 25134 C4V1 20136 ,, +STRING$(14 , ''C" ) 

1500 C$= M 02G+G+B>C+4D+EE+ F+ED+<B4BBB M 

1510 D$= M V105I1101L8G+G+RG+&G+2 A+A+RI12B&B2" 

1520 E* = ， .V1 101 10O2L8D+D+RE&E2 <F+F4RF+4F+2" 

1530 F$ = ,l 04PIVl 10L8G+B>D+E4D+«22E021D+@^ IC+<B Af B>C+D+&D+2" 

1540 G$ = ， , 04P2K8V110L8G+B>D+E4D+@22E«2 lD+«21C+<B A+B>K5F+ 

1550 H$='05D+C+U+E4D+C+<B A+A+>F+D+4.R4" 

1560 .. f" 

1570 B4=STR1HG$1 lB/'C" ) ： X$ = BS 

1580 IF R = 5 OR R=10 THEN B« = LEFTS(B$,12) + "V1251380ZKCRCV120 13606 

1590 p$ = "i 11G+G+RG+&G+2 A+A+Rl 12V110B<JBRB'* 

1600 E$ = ">D+D+RE8tE2 <F+F+RF+4V115F+RF+" 

1610 F$ = ,, 04GfB>G+E4D+e22Ee21D+«21C+<B A + F+F+ ド +RV1 15F+RF+" 

1620 G$ = * OlK8G+B>G + E4D+e2i!E«21D+a21C+<B A+F+>K5C+<BRV115BRB" 

1630 HS="D+C+D+E4D+C+<B A+G+A+BR2" 

1640 "!" 

1650 B$=XS 

1660 D$ = ..V105U 101 し 8«+(HRG+&G+2 A+A+Ri 1liH&Bii" 

1670 K$ = '*V1 101 10O2L8D+D+RE&E2 <F+F+RF+AI-+2" 

16BH FS = •'V110O4G+B>D+E4D+«22E»21 D+®21C+ <H A + B>C+<BtB2" 

1690 G$ = M V110O4KHG + B>D+F.1D+e22Ee2 I D+«21C+ <B A + BK5F+F + &：F + 2" 

1700 1F R=10 THEN HS="05D+C+D+E4D+C+<B A+>F + 4D+R-I" ELSE H$ = '05D+ 
(' + 1} + E<1D+C+<H A + A+>F + D+-1 .K4.. 

1710 "i" 

1720 IF R=10 THEN 2Z90 

1730 AS = Lt ： FT$ (A$,48) + '1 3802 VIZ5CKCV1VJO" 

174PI HS="CCCCCCCC CCCV 125134 CV 12013 6f.C((" 


175() U9= 'l1 iG+G4-Rr» + «tl ； + 2 A + A + KI I 
17 BO F.S= ,, >D+D+HKA6KiJ <K + K + HF , +&F+2" 

I 7 711 KS = , ， 04l ； + B>l) + K4l>+Wi ： i ： te21U+@2l( +<H Af! • + >( ； +<H&H2 ' 
l i HU ( ； S= O IKK«i+H>lJ+li ll)+W22l->2 ID+W2 H + A +J. + / l + Oy:. 卜+厶卜 + i；.. 

1 790 I l- If =5 THtN 1H3H 

I HOO HS= "05I)+C fD+KIU+i +<H A+i.+A+lM .l^ - 
1 H I 0 

1820 R=R+1 -.GOTO1 180 
IHJO f$ = LEFTS(Ci l 2*n + "&Bi：" 

1840 H$ = ,, O5D+C>0 + K4l)+C+<B A+G+A + B I . H-l M 
1H50 ” ！" 

1860 AS= 'M0OR 13H02CC1400H R2 H16 £ ： J9F 1 K-JQHV 1250：)C 16( H>C-1 < R1 Kl 16 
CHySVl^O" 

1K70 HS= * VI 25134 t lKC&C2 R<IV127C4\ 120R-I*' 

IKH0 (..S = "C. + FU+n. + it(: + -Z&C. + i：." :FS=C；$ :(::$= "03"+f:S 
1H90 l)S= 'R4. I12V1 15C+&C + ^4f+2." 

I 900 fcSr'IIOOZVl15C *FG+( ； +&tJ+2 & G+2. M 

1910 F$=.W’ + FS 

1920 GS = M H 4.0 4 (； + &(i+Z&G+ll." 

1930 HS = "R1 R16I 3yp2KH..+RIGHTS(AS,31J 
1940 "!" 


1950 '■ I) _ 

1!J60 A$ = HTRING$( 2 , " L » 1-1001C ： 13802C1 JOU1 C8( 813802 C") 

1970 BS="V1Z5I 34C4V1 2013 B"+STRING!S(14 J 
19H0 C$= "02G4BB>( , COC+ DD<F+F+GGG+G+" 

1990 US=”V1U5” 

2000 E$='*V110 M 

k：010 IF R=5 THEN FS = "P103L8G2B>DED4 I)>D<D>b4R4 •■: GS='1 tiKHFiJ "+RICiH 
TS(FS,Z3) 

2020 IF R = 6 THEN F$ = " <DZ(.+ 4 <B4 A16&U8 . AK+A4 AIJ" : GS = F$ 

2030 HS=“" 

2040 

2050 BS=STRINGS(16,"(") 

2060 ( ： $='*AA>C+C + DDU+U+ EE<G+G+AAMG+" 

^070 IF R = 5 THEN F$ = "0 ： }A<l . A> A4 . A G+E < Bi!RU& " ： G$ = FS 

i；080 IF R=t> THEN F$ = ">C+D16C+16<BAHAG+F+ E4 > F+4E4 . F + " : GS = F $ 

2090 

2100 CS = "GGGGGGGti >DDDDDDDD" 

2110 IF R=5 THEN F$ = "GGB>DEDF3if&F+1B . A >D<A>DEF+4 . F 18F+1 tj ,- ：(«S = FS 

2 120 IF R=t> THKN FS = ..GF+1JGF+DUF+ DAF+DAF+U4" ： GS = FS 

2130 

2140 CS = ,, C+C+C+C+C+C+CfC+ <F+F+F+F+F+F+F+K+" 

U J50 IF R=6 THEN 2190 
2160 F$ = "F1 >D2C+iJ" ： G$ = FS 
2170 "!" 

2180 K=R+1 : GOTO 1960 

2190 AS = l‘EFTS ( AS ,29)+" 14001 C8R8K2H813802C 8 " 

2200 BS=_.CCCCCCCC I380iJ( ： RRi!Rl 3406C4" 

2210 C$ = *C+C+C+C+C+C+C+C+ <F+GF+A+>C+<F+GG+" 

22^0 1)$ = '... 

22A0 ES = "R1 01F+GF+A+>C+<F+GG+& , ' 

22.10 F$='*C+C+FFG+G+BB <F+GF+A+>C+<F+GG+&" ： (i$ = F$ 

2250 HS="V113I3Q8" 


2260 

2270 R=R+1 : GOTO 540 
2280 >■ Coda ■ 

2290 A$ = "L8I40O1C4I3HO2CI4OO1CR4I38O2C4 14001 CRI380iiCI400K4 I3H0 
2Vli!5CRCVi20" 

2300 B$= 'CCCCCCCC CCCV125134CV120136CCCC*' 

2310 D$="II1G+G+RG+&G+2 A+A+RI12B&B2" 

2320 H$ = M G+G+R>E&EZ く P+F+RF+&F+2._ 

233H FS = "04G+B>D+E4D+»22E«21D+@21C+<B A+F+>C ， +<B&Bk!.. 

2340 F'S = "04K8G+B>D+E4I)+»22E«21D+@^1C+<B A+F+>C + <K5F+4F + 2" 

2350 H$="D+C+D+E4D+C+<B A+G+A+B4" 

2360 " ! ** 

2370 '■ F ■ 

2380 FOR R=1 TO 4 

2390 A$=STRING$( 2 , '* I4001C41 3802CI4001CR4 I3802C4 •') 

2400 BS = "V1 25134 C4V1 20136 * , + STRINGS( 14 , ,, C M ) 

ZA 10 C$ = ， . 〇 2G+G+G*H>C+C+4 • <F+F+RB4BB4'• 

24 20 DS = ..I 11G+G+R4G+G+4 . A+A+RI12B&B2" 

2430 E$="I1002D+D+R4D+D+4. <F+F+RF+&F+2 M 
2440 F$ = "P105D+4 .D+D+D + 4 . <F+A+>P+D+&D+ ； i’’ 

2450 G*="I6P 204 F+4.F+G+G+4• K8F+A+>F+<K5B&UZ" 

2460 H$="I4V110O1BBBB4BB4 Rl" 

24 70 

2480 A$=LEFT$(A3,Z8)+"I40O1C4I3802C8I1001C8R8I380UV125C8R8C8V120 


2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2H60 


B$=STRING$(16,"C") 


ct- 
D« = 
E* = 
F$ = 
GS 
H$ 

••； 

NEXT 
A$ = 
B$ = 
C* = 
D$ = 
E$ = 
F* = 
GS = 
H$ 


G+G+R>C+4C+C+4 <F+F+RB4BB4' 

I12BBRI llG4^&G4-2 A+A+RI12B&B2" 

F+F+R>E&E2 <F+F+RF+&F+2" 

04G+G+>D+E4I)+«i»iJEe21D+e21C+<B A + B>C+<B&B^" 
04K8G+G+>D+E4D+«22E@21D+e21C+<B A+B>C+ く K5F+&F+2" 
Rl R2.RHI3G+” 


14001 Cl 3802 CCI 4001 CR4CI3802CC140O1CR4V126CCCR4V127C" 
V12 51 3 4C4.C 4.C4.C4.13802V125CCCR4V127C" 

03(' + FG+>C+4 . <EG+ B>E4.02V12 IF+F+F+R4 VI25G+ M 
R 4.1120 1C+4.R4.>111G+4.V115A+AfA+R4110O3V11BC + " 
02C+FG+G+4.EG+BB4.VI13F+F+F+R4V118G+" 

04C+FG + >C+4 . <EG+B>E4 .VI15F+F+FfR4V120G+*' 

R4.04G+4 .R4 .B4 . >V110C+C+C + R4V115D+*' 


2670 END 

2680 *■ TONE SET ■ 

2690 MEM*(&HB1B4,36)=HEXCHRS("C 3 00 65 40 40 30 2F 17 2\ 00IF 1 
F IF 1C OC 00 00 HO 00 00 04 06 F6 06 06 06 00 00 00 00 00 00 H0 
00 (U) 00 " ) ' 2 : l Basa | 

2700 MFM$(&HB1D8,36 )=HEXCHR$('*FC 00 72 32 317218 07IB 00ID 1 
9 iA 1A 04 04 04 84 00 00 0« 00 2H 27 28 27 00 00 00 00 00 00 80 
00 00 00 ") ， 3:1 Vocal] 

2710 MEM$(&HB1FC,3B)=HEXCHR$("C4 00 74 34 35 7518 00IB 00 5D 5 
9 5A 5D 02 00 08 H0 00 00 02 00 16 08 58 07 00 00 00 00 00 00 80 
00 00 00 ') ' 4:| Vocal 2\ 

2720 MEMSt&HB^iie, 36)=HF.XCHR$( "FC 00 73 31 ： il72IB 07 OF 00 5D 5 
9 5A 5D V)2 00 08 8(4 00 00 02 0016 08 58 07 00 00 00 00 00 00 80 
()0 Op 00 ") ， 5:1 Guitar J 

2730 MI£M$(&HB2*I4,36)=HEXCHR$( M D9 00 33 20 44 4016IB 20 00 5F 5 
F 5F 54 80 80 B0 B0 04 00 00 04 04 04 04 04 00 00 00 00 00 00 
00 00 00 M ) * 6 : IE,GuitarJ 

2740 MKMS(&HB2D4,36)=HEXCHRS('*EC 00 48 48 -18 48 07 00 09 7F 9D 9 
K 9D 96 MK 08 OH 08 00 00 00 00 FB F6 F6 F6 00 00 00 00 00 W0 80 
00 00 00 ") ’ 10：l Cl | 

2750 MKMSI&HBiiFH.afiJrHEXCHRSC-Kt 00 4K IH 4«> *16 07 00 Ol 0« aD y 
H 9D 96 OH »B 08 OH 00 ()0 80 80 F6 F6 F6 F6 00 00 00 00 OC 00 80 


00 00 00 '* ) ' 11:1 C2 1 

2760 MFMS(&HB31( ,：>6 )=HEXCHRS( "EC 00 48 48 4A 4A 07 00 DC 0« 9D 9 


►いま大学の研究室に MZ-700 がある。し力，も SUN3 と MacII の間に。ちなみに MW-1 を作 
g 2 0h , w ig88 8 った森さんも同じ研究室です。 黒木孝（23> 兵庫 W 






6 9D 96 08 08 08 0800 00 00 00 F6 F6 F6 F7 00 00 00 0(3 00 00 80 

U0 00 00 ")'12：[ C3 1 

2770 MEM$(&HB 364,3 6)=HEXCHR$("C4 00 48 48 40 <10 16 00 7F 7P 99 9 
6 99 96 04 00 04 00 00 00 00 00 24 07 24 07 00 00 00 00 00 〇〇 80 
00 00 00 ") ， 14:l C+l | 

2780 MEM$(&HB 388,3 6)=HEXCHR$("C4 00 48 48 46 4616 00 16 00 99 9 
6 99 96 04 00 04 00 00 00 80 80 24 07 24 07 00 00 00 00 〇〇 〇〇 80 
00 00 00 M ) * 15：l C+2 1 

2790 MEMS(&HB3AC,36)=HEXCHR$("C4 00 48 48 4A 4A 16 0016 00 99 9 
6 99 96 04 00 04 00 00 00 00 00 24 07 24 07 00 00 00 00 00 00 80 
00 00 00 '* ) 1 16 ： l C+3 ) 

2800 MEM$i&HB634,36)=HEXCHR$( "FB 00 72 0A 0D 31 MI)11IB 00IE 1 
E IF 1C 04 02 08 0C C0 00 CO C0 F2 FI F4 F6 00 00 00 00 0C C8 80 
00 02 00 ") ' 34：[ Cymb ] 

2810 MEM$(&HB67C,36)=HEXCHR$( M FB 00 0E 06 07 00 OF IB 11 051A 1 


A 1A IB 04 0816 92 40 40 80 00 32 72 BA F8 00 00 00 00 00 00 80 
00 00 00 ") » 36：[ H.H 1 

2820 MEM$(&HB6C4,36)=HEXCHR$("FC 00 5F 55 31 21 00 00 0F 00 9F 5 
F 9F 5F 8F 90 92 8F 80 43 43 8316 D8 C9 A8 00 00 00 00 00 00 80 
00 00 00 ") ’ 38:1 Snare ] 

2830 MEMS(4HB6E8,36)=HEXCHR$rF9 00 013132 02 CC 00 02 00 98 9 
A 9F DA 0A 10 0C 8B 08 CO 49 00 A7 F6 F5 F5 0180 00 00 F4 8C 80 
00 02 80 M ) ' 39 :【 Effect J 

2840 MEM$(&HB70C,36)=HEXCHR$("C0 00 01OE 00 0015 2¥ 07 00IE 1 
E IE ID 1A 1C 10 90 40 CO 40 00 FD FE F8 F8 00 00 00 00 00 00 80 
00 00 00 '* ) ' 40: ( B.Druro | 

2850 RETURN 

2860 ' - 

2870 ' - 1988 05/29{SUN) 12:34:19 VIP000 CHACHA - 

2880 ' - 


リスト 3 ささやきのステップ 


日本音楽著作権協会 （ 出）許諾第8870651 - 801号 


拿本拿本♦蓽章拿 


ささやきの 

忝師丸ひろ子 


スチッア 


20 

39 

40 
50 
60 
70 
80 
90 

00 PLAY IHIT：DEF I NT K-L 
10 DIM RYTIIMIS (9) . RYTHM2S (9) , A* t4, 9) 
20 

30 TEMPO-130 
40 TONE LFO 4 
50 TONE LFO 5 
60 GOSUB 1140 
70 • 

80 RYTHM1$ (0) 

90 RYTHM1$(1| 


200 RYTHM1S (2) 
210 RYTHH1$(3) 
220 RYTHM1S(4) 
230 RYTHM1S (5 / 
240 RYTHH1S(6) 

250 RYTHM1S (7) 
260 RYTHU1S (8) 
vl 

270 RYTHU1S (9) 
280 - 

290 RYTHM2S(0) 
300 RYTHM2$(1) 


1. 3,1 
1.-3,1 


-TEMPO ： 
r e rc e r r 


rerercerr 


L8e. e. ee. e.ee.e.ee4L 16 ' 


t-TEMPO ； 

rrerrerr 


L16y6, 15y 7, 220q3 


.ee.e.ee.e.ee4q3L16* 


310 RYTHM2S (2) - 

320 RYTHM2$(3)-'errrrrrrrrrrrrrr L8q1 
330 RYTHM2S(4) - 
34 0 RYTHM2S (5) 

350 RYTHH2$(8) 

360 • 

370 RESTORE 
380 RESTORE 
390 RESTORE 
400 RESTORE 
410 RESTORE 
426 RESTORE 
436 END 
440 

450 tMUSIC 

460 READ NO,BASSS,MELODY 1$,MELODY2$ 

470 IF H0--1 THEN RETURN 

480 PLAY RYTHM1S (NO) r BASS$.MELODY 1$.MELODY2$,MELODY2$.RYTHM2$(NO) 
490 GOTO *MUS1C 
500 • 

510 DATA 0,t-TEMPO ； L8o4q8«4v9 ,t-TEMPO ； L8o5q8«2v8 


r e rr e r 
r e r r e r 


S10：GOSUB *MUSIC 
979 ： G0SUB *MUSIC 
570：GOSUB «MUS1C 
1 038 ：GOSUB * MUSIC 
730：GOSUB *UUS1C 
1070 ：GOSUB * MUSIC 


528 DATA 
530 DATA 

540 DATA 
550 DATA 

560 DATA 

579 DATA 

580 DATA 
590 DATA 

600 DATA 


676 DATA 
680 DATA 

690 DATA 
760 DATA 

716 DATA 
720 DATA 

730 DATA 
740 DATA 
750 DAT 入 


-TEMPO ： 11604 q 8vH 

<rb-b-2_&b-lrb-b-2,&b-l ， L16b-8b-b-b-8b-b - 蠡 8 龜 ait8t 龜 g.8ggg8gg 龜龜墓 8 瓤氤 

8b-b-b-8b-b-ad»a»8*ag8ggg8gg»8»»a8ai 

2b-2t2 K 2a2b-2a2 K 2>2 

>c - ^_2.Aa_lr 纛 •• 暴 _2.4» 一 1 • 象 _8 亀 -■-•-8 氬 _a_g-8g-g-g_8| ： -g_f8fff8ffg_8g_g_ 
g-8g-g-i-8a-a-»-8»-»-g-8g-g-g-8g-g-f8fff8(fg-8g-g-g-8R-g- 
r4<»-4>t-2. f4e-4d-4 {<b->c<b-J 4t-2.<ttt-2. { a - g - {} 4 
"f Uf 1， f 1 

vlir4vldiv9fv8(v7fv6rvSf>o4v]4d8vl3dvl2dvl4dvl3d 

r<b-b-2.*b-lrb-b-2.&b-l,Ll6b-8b-b-b-8b-b-a8»*a8a8g8ggg8gg»8»a*8»» 

8b-b~b8b-b-»8«»»8iag8ggg8gg»8aa»8a» 

4f2vl3f4vl2fvlllviefv9fv8fv7fvUfvl3fvl4fv]3fvl4(vl3fvl4svl3Kvl2g 

lgvl4dvl3dvUf2vl3f4vl2(8vll(viefv9fv8fv7fv6fvl4fvl3fvUfvl3fvUf 

3!vUgvl3gvUfv]3fvl4fvl3fvl4dvl3d 

> r c-c- 2.ie-1< rb-b-2.*b-] t >e-8e-e-e-8e-e-d8ddd8ddc8ecc8ced8ddd8dd 

-8b-b — 戴 g&ggg8ggt8 龜纛 

e-2vl3e-4vl2e-vlle-vl8e-v9e-v8e-v7e-vl4e-vl3e-vl4e-vl3e-wl4dvl3d 
Cvl3cvl4dvl3dv]4e-vl3e-vl4ev]3evl4d2vl3d4vl2dvlldviedv9dv8dv7dv6d 
5dv4dv3dv2dvldr8vUd8vl3dvl2dvl4dvl3d 
rb-b-2. *b-lrb-b-2. &b-1,b-8b-b-b-8b-b-a8aaa8ftaK8ggg8gga8aaa8aab 8b- 
b-8b-b-«8aaa8sag8gKs8Kgt8aaa8at 

4{2vl3f4vl2fvlliviefv9[v8(v7fvM(vl3fvl4lvl3(vl4fvl3{vl4gvl3Kvl2g 

Uvl4dvl3dvM(2vl3f<(vl2f8vllfvl0fv9fv8fv7fv6(vl4(vl3fvl4fvl3fvl4f 

3fvl4gvl3gvl4fv13Cvl4fvl3{vUdvl3d 

>re-e- 2. 4e-1< rb-b-2.*b-1>,>e-8e-e-e-8c-e-d8ddd8ddc8ccc8ecd8ddd8dd 
b-8b-b-b-8b-b-»8*a*8»ag8ggg8gg*8»»*8»a 

<e-2vl3e-4vl2e-vlle-vl8e-v9e-v8e-v7e-vl4e-vl3e-vl4e-vl3c-vl4dvl3d 
4cvl3cvl4dvl3dvl4e-vl3e-vl4gvl3gvUf2vl3f4vl2f8vlHviefv9fv8[v7(v6f 
5{v4fv3fv2fvlfrvl4dvl3dvl4e-vl3e-vl4fvl3f 
gig-l,«5v6glg-l 

4gvl3gvl2gvl4gvl3gvl2gvl4cvl3evl4g4vl3gvl2gvllgvl9gvl4g-vl3K-vl2g- 

4g-vl3g-vl2g-vl4dvl3dvl4g-4vl3g-vl2g-vllg-vl0g- 


4fvl3fvl2fvUfv]3{vl2f 
3b-vl4b-8vl3b-vl2b-v 
f2L8fff f f. f. f f. I. ff. 
4g8v13gvl2gvllgvl0gv 
f r 4.r r2.vl4dvl3dvl4 
<b-. b - . l>c2,92vSq6o5 
4fvl3fvl2fvl4fvl3fvl2f 
d.d.<*>e-2,*.i.e-b-2 


14fvl3fvl4b-2vl3b-8vl2b-vllb-vl0b-v9b-vUb- 

4>vl3avl4gvl3g 

• f f 4, f 2LB«6v1loScde f f. f. f g.g.gs.a.tb- 4 
4{4.vl3(vl2fvll!viefv9fv8(v7(v6!v5fv4(v3fv2f 
-v13e - 

• f. cg2 

14{vl3fvl4svl3gvl2Kvl4Kvl3svl2s«14gvl3 K 


►筋肉少女帯は凄い！こんなパンク聞いたことない。雠しいピアノがいい。ハードだ， 

ストロングだ 0 SIDE A の「福耳の子供」は泣ける。“ラッシャー木村はえらい”なんだこ Oh!X LIVE in ，88 83 

の歌詞は？ X 68000 の CM がやれるのは筋肉少女帯しかいない。帛中伸之 （18) 愛知県 














766 DATA 
770 DATA 
780 DATA 

790 DATA 
see DATA 

810 DATA 
820 DATA 
830 DATA 
840 DAT 入 
850 DATA 
660 DATA 
870 DATA 
880 DATA 
890 DATA 
900 DATA 


14avl3&vl2i 
(.f.c f2f. I 
4(Sv13fv1 ； 
4dv13d 
c.c.<g>d 2, 
4c-vl3e-vi 
3f 

e -. e - . < b - ' 

4g ， 


13gvl2gvl4gvl3 

vl2gvl4gv13gvl4 

.b • b - » 2 b -. b -. 

- >f2,d.d.dd2<b 

vl3d2vl2d4vlld 

Iedv9dv8dv7dv6d 

,<b->c2. 

vl3cvl2cv!4gvl 

gV 14g8v13gV12gV 

.c f2, q 3de fb 2 

v!3fvl2fvllfvl 

rv9fv8fvl4(visr 


<a>d2, 

13dvl2 


vl3b-vl2b-vl4a 

-2 

! - v 11 e - v 


vl3avl2avl 
>c.df2 
14dv]3dv I 4 

4f8vl3fvl2 

14fvl3fvl4 

4g8vl3gv 12 


“4gvl3g 
-v 14 c v 13c 


vl4fvl3fvI2(v 

vl2(v]4avl3a 
-vl4dvl3d 
v 1 3e - 


910 DATA 
920 DATA 
930 DATA 

949 DATA 

950 DATA 
960 

970 DATA 

980 DATA 

990 DATA 

eoe DATA 
eie DATA 
020 • 

030 DATA 

640 DATA <v 


050 DATA 
060 • 

070 DATA 

080 DATA 

690 DATA 


4g4v13g4v 


4e-vl3e-v 

4e-vl3e-v 


<rb h-2.ib 
8a»b-8b-b- 
14b-2vl3b- 
2b-2a2g2a2 
>r a - a 2.&a 
8R-g-»-8»- 

<a-4>a-2.f 


d.dc2<b-.b 
14b-2v13b 
2b-8v1lb- 
3d8vl2dvl 


<r b - 

8a a b 
14b- 
2b-2 


-2.&b 
8b-b- 
1v13b - 
2«2 


-4>t 


iee data 

1le DATA 
120 DATA 
130 DAT 入 
140 • 

150 RESTORE 1340 
160 ST-PEEK*(0,SFFFi 
170 FOR K-0 TO 7 


U2 


3gv 14 


12f v 
12dv 


Ua*8gg 

I0b~v9b 


6 R-R » 
c<b - }4 « 


vl0b-v9b 
12b vllb 


b-2.ib-l,«2v8 
-a8aa«8aagdgg 
v 1lb-»10b v9b 


Uf 2. fc<b- Ub-1,f Ufieio4q8 、 
11(lv 10( lv9(v8fv7fv6fvSfv4f> 


: AD-0 


： -8b-b-b 
iaaaSaa 
7b - v6b- 


•-*- U 

dc4,03 


v7b-v6b- 
c8vllcvl 
14e-v13e 


i-8b-b-b 

ItaaSta 

■7b-v6b- 


a ag8ggg8gg»8« 

v2b-vlb-r2> 
f f 


I0o5q 81804 b 


-v4b-v3b-v2b-vlb-r2 

vllcvl2cv]lGvl3d8vl2d 


b-a8aaa8«a 

v4b-v3b-v2b-vlb-r2> 
-8«-g-f8fff8ffg-8g-g- 


180 FOR 1-0 TO 4 
190 FOR J-« TO 9 

200 READ AX(I,J} 

210 NEXT J 

229 NEXT 1 


1230 

FOR 

J- 

0 TO 

9 ： SWAP Ax (2 

,J),A 

*(3, 

) -H 

XT 


1246 

FOR 

I - 

1 TO 

4 ： POKE0 ST. 

AD, A* 

(1.5 

: AD 

AD 争 1 

: NEXT 

1250 

FOR 

1- 

1 TO 

4 ： P0KE« ST, 

AD, A* 

(1,7 

MA 

(1.8 

t) AND 7) *$10 ： AD-AD* 1 : NEXT 

1260 

FOR 

卜 

1 TO 

4 ： P0KE« ST, 

AD, 人 * 

(1.0 

+ A* 

1,6) 

♦$40 ： AD-AD+1：NEXT 

1279 

FOR 

I - 

1 TO 

4 ： POKE» ST, 

AD, A* 

(1.1 


1,9) 

*$40 ： AD-AD>1：HEXT 

1280 

FOR 

I - 

1 TO 

4 ： P0KE9 ST, 

AD, AX 

(1,2 

: AD 

AD 令 1 

: NEXT 

1296 

FOR 

I - 

1 TO 

4 ： P0KE« ST, 

AD, A* 

(し 3 

+ A* 

1,4) 

*$10 ： AD-AD^1：HEXT 

1300 

POKE0 

ST, AD 

,A* (8 






1310 

AD- 

人 D + 

5 








1320 

KEXT 

K：RETURN 








1339 

0 










me 

DATA 

58 f 

1S 9 

2, 

1,226. 

e. 

4 f 


e. 


1356 

DATA 

31 ， 

5, 

7, 

4, 9. 

37, 

し 


-2, 


1360 

DATA 

22, 

e. 

4, 

5 ， 4, 

62, 

1 9 


2 , 


1370 

DATA 

29, 

o r 

4, 

5, 4, 

77, 

し 


0 9 


1380 

DATA 

31, 

7, 

6, 

5, 4, 

0, 

2, 


し 


1390 

1 










1400 

DATA 

28, 

is. 

2, 

0 ， 180 ， 

0, 

し 


e, 


1410 

DATA 

31 ， 

26, 

8,1 

e. e. 

24, 



3, 


1420 

DATA 

3 し 

ie. 

5,1 

0, 0, 

0. 

e 9 


e 9 


1430 

DATA 

31, 

26, 

8,1 

0, 0, 

45, 

e # 


e 9 


1440 

DATA 

25, 

10, 

5,1 

0 ， 0. 

a. 

i 9 


3 f 


1450 

2 










1460 

DATA 

2» 

15, 

2, 

e, 200, 

0, 

e 9 




1470 

DATA 

24, 

ie. 

0, 

5,15, 

57. 

\ 9 l 


し 


use 

DATA 

20, 

12 ， 

8, 

4.1, 

37. 

し 


e 9 


1490 

DATA 

29, 

ie 9 

4, 

1. 

37, 

i 9 


-3, 


1500 

DATA 

18, 

18 9 

6. 

7 , し 

0. 

2 V 


2, 


1516 

3 










1520 

DATA 

58, 

is. 

2, 

0,210, 

6, 

2 P 


e 9 


1530 

DATA 

31, 

13, 

1, 

4,15, 

37, 

2 . 


3, 


1540 

DATA 

31 ， 

20 v 

し 1 

e,15, 

57, 

\ 9 l 


3, 


1550 

DATA 

20, 

ie 9 

1, 

7,15, 

37, 

し 


e. 


1568 

DATA 

23, 

5, 

1. 

7,IS, 

0. 

e f 


3, 


1570 

4 










isae 

DATA 

32, 

15 t 

2. 

e.2de. 

e. 

❶* 


e v 


1*5 9 6 

DATA 

3 し 

5 t 

7, 

9. 2, 

29, 

3 # 


-3, 


i6ee 

DATA 

3 し 

4, 

6, 

9.1. 

47, 

3 f 


-3, 


1618 

DATA 

26, 

7, 

6, 

9,1. 

29, 

2 P 


-3, 


1620 

DATA 

3 し 

6, 

4. 

9 ， 3, 

0. 

2 f 


-3. 


1630 

5 










1640 

DATA 

24, 

15, 

2, 

0. 260, 

6. 

e # 


e 9 


1656 

DATA 

17, 

ie. 

18,1 

0, 0, 

42, 

し i 


3 f 


1660 

DATA 

18, 

2, 

9.1 

0, 0. 

37, 

し 




1670 

DATA 

18 9 

5, 

し 

3, e, 

17, 

2, 


e # 


1680 

DATA 

12, 

2, 

1. 

7, 1 ， 

0, 

し 


3 t 


169¢ 

6 










i7ee 

DATA 

58. 

15, 

2. 

e.2ee, 

e. 

e v 


e # 


1716 

DATA 

12, 

8, 

d,1 

e, 2, 

33, 

e 9 


e 9 


1720 

DATA 

16. 

12» 

e.l 

19, 1, 

59, 

e f 


e. 


1739 

DATA 

14» 

12, 

0,1 

[0, 5, 

37. 

e t 


e 9 


1740 

DATA 

IS, 

12. 

0. 

8, 2. 

0. 

し 


e v 


1750 

7 










1760 

DATA 

44 f 

15, 

o. 

0, o, 

0, 

e. 


0, 


1770 

DATA 

30, 

25. 

0. 

5 ， 15, 

ie. 

e 9 


e 9 


1780 

DATA 

3e, 

15 9 

15,1 

10, 5, 

0, 

e. 


e v 


1790 

DATA 

36, 

25, 

e. 

5,15, 

10, 

e 9 


e 9 


1800 

DATA 

30, 

15. 

15,1 

10, 5. 

0, 

0 9 


e 9 



84 Oh! X 1988.8. 



















































第 2 回 


ほいほし、フアイル術 


Iwai Ippei 

满開製作所；^ _ Ip 


帰納法によってかどろかは，だ一れも知らないけれど， C 調言語講座の第2回目 
です。前回の orintf に続いて，今罔は突如としてファイルアクセスの講義だそろ 
です。その名も 「 ultra . c 」。 果たしてムーンサルトか満開飛びか，まずは講義を 
聞いてのお楽しみ。教科書の 『 K & R 』 を手元に置<こともお忘れないよ一に。 


ファイルアクセス 


さすがにこの C 調言語講座も，第2回目に達したよ一である。 
さて，普通はこのよ一な連載において最初のころはというと， 
if 文や switch 文とかの分岐とか， for 文とか while 文なんぞのルー 
プ構造とかをやって，「これこれこ一ゆ一条件のときにこ一ゆ一ふ 
一にプログラムの流れが変わるんですよ」というノリで始まりが 
ちである。しかし，私はそんなシケたことはやらないのである。 

これはこれで大事なことではあるが，基本的に人間つ一もんは 
面白くないことをやろうとしても，絶対長続きしないものなので 
ある。新皮質では「続けたほうがいい j ということはわかってい 
るのだが，旧皮質のほうが「だって面白くないんだも一ん」とい 
ってダダをコネてるよ一な場合，決して物事は長続きはしないは 
ずなのである（注1)。だから対策は2つしかない。すなわち，「面 
白くないことは最初からやらない」か，もしくは「なんとかして 
面白い モノに してしまう」ことである。 

この連載においては，私の長年の研究より開発された「とにか 
くあと回し法 j を採用することとした。よ一するにこれは， 

1) とりあえず面白いことだけをやる 

2) もしも重要なことならば，そのうちやる必要が出てくるであ 
ろうから，そのときは“面白くない”などと感じる余裕などは 
なく，とにかくやる 

3) もしもやる必要が出てこなかったならば，そもそも重要なこ 
とではなかったということであるから，やらなくてよかった 

を3本の柱とした，極めてい一かげんな処世術である。この術式 
の最大の天敵は「井の中の蛙」という格言であるが，これに対し 
ては「蛙の面に水」で対抗するのである。 

注 I )ごく稀に，「一度決めたらとことんやり抜く」などという人もいるそ一 
であるが，それは「とにかくやり抜く」ということ自体に快感を感じるとい 
う特異体質の人なのであるからして，一般の人（特に小さなお子さん）は危 
険ですから真似をしてはいけません。そこになんらかの楽しみを発見できな 
ければ，三日坊主—自己嫌悪—諸行無常と3段スライドすることになるでし 
よう。そう，「なせばなる，何事も」などという非科学的なセリフを信じては 
いけないのです（それとも鼻からシイタケヨーグルトを喰えるとでもいうの 
か)〇 , 


驚異の万能ブロクラム 


だからして，第2回目ではいきなり ファイル アクセスをやって 
しまうのである。もしかすると，「そないなことして面白 いんかい 
な」などと関西弁で反論してくる人もいるかもしれないが，やは 
りこれはこれなりに面白いはずなのである。 

さてさて，リスト1に示すのがもっともシンプルであろうとい 


うファイルアクセスの例である。これはファイルの内容を表示す 
るプログラムで，ま，いってみれば， type コマンドみたいなもん 
だな。しかも使い方によっては copy コマンドとしても動作すると 
いう，タダモノではないプログラムなので，名前も ultra , c とし 
た（このよ一にす ごい プログラムであるから，今月のプログラム 
のなかでこのリスト1だけは PDS にはしないのである)。 

もしかすると読者のなかに，リスト1のどこがファイルアクセ 
スなんだと，いぶかる方もおられるかもしれない。そのよ一な場合 
は急いで， 

cc ultra . c [ CR ] 

としてコンハ。イルしたのち， 

ultra < ultra . c [ CR ] 

としていただきたい。ど一だ， ultra , c の内容が画面に表示された 
だろう。つ一ことは type コマンドではないか。さらには， 
ultra < ultra , c > uc . c [ CR ] 

としていただきたい。 type コマンドで uc . c を表示してみれば， 
そこに ultra , c が複写されているのを発見するであろう。であるか 
らして，これは copy コマンドでもあるのだ。う〜ん，なんてすご 
いプログラムであることよ。 

あんまりしつこくやると ヒンシ ュクをかうのでここらでやめて 
おく力 ? ，これはよ一するに Human ( MS - DOS ) におけるリダ イレ 
タト機能なのである。 C では， 
getchar () は，“標準入力”から1文字持ってくる関数 
putchar () は，“標準出力”に1文字出力する関数 
なわけだ。でもって，普通は“標準入力”はキーボード，“標準出 
力”は CRT 画面ということになっているのだが， 
ultra < ultra . c [ CR ] 

とすると「く」の秘められたパワーが発揮され，“標準入力”がキ 
ーボードではなく， ultra . c というファイルに切り換えられるわけ 
だな。さらには， 

ultra < ultra , c > uc . c [ CR ] 

とすることによって，「>」のパワーも加わり，“標準出力”が C 
RT 画面ではなく （新しく作られた） uc . c というファイルになる 
わけだ。さてここで（初心者にとって）問題としてお勧めなのが， 
いきなり， 

ultra [ CR ] 

としてみることてある。いろいろキーボードをいじくるとそれな 
りに学習できるであろう。なお，困ったときに使うとよい魔法を 
教えておこう。それは，卜 Z [ CR ]」 である。これはなかなか便利 
な呪文であるから，大事に使うように。 

ここでリスト1について，2点注意しておかなければならない 
ことがある。まずはプログラムの®初のほうにある。 

# define EOF — 1 
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という 1 行である。これについては，各自で勉強していただきた 
い。 『 K & R 』 だと，15と95ページである（両方読んでおくよ一に)。 
それから， 

(c = getchar ( )) ! = EOF 

であるが，これは 『 K & R 』 の16〜18ページを参考にしていただき 
すこい 0 ふっふっふっ〇 

そいでもって，ここで大事なのは， 

1) C では，「代入文」自体が「値」を持つ 

2) C では演算子の優先順位に気をつけなければいけない 
の2点である。つまり， 

int a , b , c ; 


である。 

そこで，も一少しまともにファイルをコピーするのが，リスト3 
の utu . c である0こ一すれば取りあえずはどんなファイルでもち 
ゃんとコピーできるようになる。使い方は， 
utu 転送元ファイル転送先ファイル 
というふうになっている。つまり，< と >はなしということにな 
ったわけである。 

で，どうやらこのプログラムは，いきなりであるがなかなかに 
高度である。しかし，これでも，ほとんど実用になる最低限のプ 
ログラムであったりする。ではプログラムの説明に入る。まずは 
いちばん最初の 


a = b = c = 4126; 

を実行すると， a ， b ， c の3変数は，すべて4126という値になる 
わけだ。そして， 『 K & R 』 の18ページにも注意が書いてあるが， 
カッコを忘れて， 

c = getchar ( ) ! = EOF 

などと書くと，たちまち思惑とは違う動作をするプログラムとな 
ってしまうのである。それ力 5 ',リスト2の oka . c である。 

これをコンパイルし， 

oka < oka . c [ CR ] 

としても画面には何も表示されないであろう。そこで， 
oka < oka . c > data [ CR ] 

としたあとで， 

dump data [ CR ] 

とすると， data のなかには 01 h が詰まっていることを確認できる 
であろう。これは演算子の優先順位のなせるイタズラなのである。 
てなわけで，このよ一なプログラムをカッコ悪いとゆ一のだな。 

ところで，“標準入力”，“標準出力”を“ファイルの一種”だと 
考えれば，やっぱり ultra , c はファイルにアクセスしとるわけで 
あるからして，やっぱりファイルアクセスでないわけではないと 
主張することにやぶさかではないのである。 


ultra , g の改良 


このように素晴しい ultra , c であるが，残念ながら致命的な欠 
点がある。それは， 

ultra < ultra , x > ultra.q 
としたあとで， ultra , x と ultra . q のディレクトリを表示させ，フ 
ァイルサイズを比較してみるとわかるのである。そう，奇怪なこ 
とに， ultra . q のほうが ultra . 父よりも小さいのである。 

このような現象が起きるのは， getchar , putchar が文字ファイ 
ル，テキストファイルにアクセスすることを前提として作られて 
いるからなのである。だからテキストファイルは問題なくコピー 
できるのだが， “. x ” ファイルなどはうまくコピーできないのであ 
る。具体的になにがまずいのかというと，いちばんの問題が IAh 
を読み込んだ場合の動作なのである。普通のテキストファイルで 
は， IAh はファイルエンドのマークとして使われるので，こいつ 
に出く わしたとたんに， getchar は勝手にファイルエンドと判断 
し，一1 (= EOF ) を返してくるのである。そのよ一なわけである 
から，途中で終わってしまうのである。 

そしてもうひとつ凶悪なのが， OAh と ODh の処理である 。 getch 
ar () は， ODh は無視してなかったことにし，それに対して putc 
har () は OAh を ODh ， OAh の2バイトに変換してしまうのである。 
なんでこ一なっているかについては，ビル•ゲイツに聞いてくれ 


# include < stdio . h > 

であるが，よ一するにこれは，「これから標準入出カライブラリを 
使いますよ」という宣言なのである。プログラムのなかほどにあ 
る “ fopen ” などという関数を使うためには，このライブラリが必 
要なのである。そして，すでに気づいているだろう力％ 

# define EOF 一 1 

| ultra, c 


tdefine EOF 


main() 


int c; 


while((c = getchar()) 
putchar(c); 


EOF) 


oka. C 


fdefine EOF 

main() 

{ 

int c ； 


while( c = getchar() != EOF) 

putchar(c); 


UtU. C 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 


main(argc,argv) 
int argc ； 
char *argv[]; 




register int c; 

FILE 本 fp0 ， *fpl; 

if (argc > 2) { 

fp0 = f open( argv[ 11 1 "rb") ； 
fpl=fopen{argv[2],"wb ")； 
if {(fp0 !=NULL) && (fpl!= NULL)) { 
while<(c = getc(fp0)) != EOF) 
putc(c,fpl )； 
fclose(fp0 )； 
fcloae(fpl )； 
return ； 

} 

) 

printf (" 君は間違えている ！ ¥n_J; 


utu. bas 


•10 str fn0,fnl 
20 int fp0,fpl 
30 char c 

40 input " 転送元フアイル " ； fn0 
50 input "転送先フアイ ル"； fnl 
60 fp0=fopen{fn0,"r") 

70 fpl=fopen(fnl,"c"> 

80 if { (fp0O-l) and (fplO-1))then 
90 while( not feof(fp0)) 

100 c = fgetc(fp0) 

110 fputc(c,fpl) 

120 endwhile 
130 fclose(fp0) 

140 fclose(fpl) 

150 } 

160 end 
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の 1 行がなくなっているのである。どうしてかというと， stdio . h 
というフアイ ルの なかに， 

# define EOF (—1) 

というのがあるからなのだ（ところで， 「 stdio 」 というのは 「sta 
ndard I / O 」のハナモゲラである）〇 
次に， 

main ( argc , argv ) 
int argc ; 
char 氺 argv []; 

というのがある。これは何かというと，転送元のファイル名と転 
送先のファイル名を，プログラム中から参照するために必要な下 
準備である。詳しくは 『 K & R 』 の120ページ以降である（ああ楽 


で，リスト3で説明が必要なのは， fopen の第2引数の “ rb ” と 
“ wb ” の部分であろう。 r と w は，読み込むか書き込むのか指定で 
ある。 

これは X-BASIC と似ているから自明であろう。問題は b のほ 
うであるが，これはど一ゆ一ものかというと「バイナリモードの指 
定」で，よ一するに IAh だろうが ODh だろう力す OAh だろう力 ? ，よけ 
いな難しいことは考えずにそのまま扱ってしまおうというモード 
である。 

てなわけで，バイナリモードでフアイルをオープンすれば， “.X” 
形式のファイルなどを読み書きしても変なことが起きずにすむと 
いうわけである。と，ゆ一ことは，残る問題はスピードだけつ一 
ことになるわけた^な。 


ちん)。 

次にあるのが， 
register int c ; 

だな。これは 『 K & R 』 の89ページである（私の持っている第8刷 
の索引では99ページの誤植になっているな）。ま， register 宣言は 
なくてもいいものであるから，あまり悩まないよ一に。 

説明はいよいよ佳境に入るのであるが，相変わらずいいかげん 
のまま進んでいく。まずは 
FILE * fp 0，* fpl ; 

というのがある。ここで X - B AS IC を思い出していただきたい。 
X-BASIC では， fopen 関数によってファイルをオープンすると， 
ファイル番号つ一もん力 ? 返ってきたわけである。で，そいつを受 
け取るために， 
int fpO , fpl 

というふうに整数変数の宣言をしとったわけ;^。しかし， C では 
それが整数ではなく， 「 FILE という構造体へのポインタ」になっ 
ているのである。 

ポインタという呪文を聞いたとたんにめまいを起こした人もい 
るよ一であるが，気を取り直してリスト4の utu . bas を見ていた 
だきたい。これはなにかというと， utu . c と同じことを X-BASI 
C でやってみただけなのだ。そしてわかるよ一に， fpO , fpl の使 
われ方は， utu . c と utu . bas で，まったく同じなのである。だか 
らいまのところ，悩む必要は全然ないのである。 


んでもって，するどい人はわかるよ一に，リスト3のプロダラ 
ムが遅い理由のへソは，1文字ずつシコシコと「読んでは書く」 
をしているからなのであった。つまりは，一度に数千字（パ'イト） 
ぐらいをどば一っと読んで，そいでもってそれをイツキにどば一 
っと書けば，速くなるのではないかということが予想されるであ 
ろう。 

よ一するに左の皿から右の皿に豆を移すような作業を考えた場 
合，一粒ずつ運ぶよりも，何十粒かをまとめてどどっと運んだほ 
うが速いという，極めて当たり前な常識なのである。 

では，まずは，どば一っと文字を読み込むにはど一すればいい 
かである。 

そこで出てくるのが，リスト5の hayautu . c である。ここで注 
目していただきたいの力 5 '， fread ， fwrite の2関数である 。 fread 
はファイルから指定した長さ（バイト数）だけデータを読んでき 
て，配列に格納してくれる関数， fwrite は配列からファイルへ指 
定した長さだけデータを書き込んでくれる関数である。引数は， 

fread (配列，データサイズ，データ個数，ファイルポインタ） 
となっている （ fwrite も同じ)。データサイズというのは，「ひとつ 
のデータは何バイトか」ということである。 hayautu . c では char 
型の配列を使っているので，“1”なわけだ。もしも int か float な 
ら4, double なら8ということになる。 

ちなみにデータサイズはプログラム中で sizeof ( char ) ， sizeof 
( int ) などと書くことも可能で，そのようにするととてもカツコイ 


hayautu. c 


♦include 

tdefine BSIZE 

main(argc,argv) 
int argc ； 
char 本 argvl]; 


<8tdio.h> 
0x2000 


register int c, al,dl; 
char dbuff[BSIZE 】； 

FILE *fp0,*fpl ； 

if (argc > 2) { 

fp0 = fopen(argv[1],"rb") 
fpl=fopen(argv[ 2] , "wb 11 ) 
if ((fp0 !=NULL) && (fpl 

do{ si=fread(dbuff, 

if (si) 

{ dl=fwrite(dbuff,l t sl,fpl); 


NULL)) { 

,BSIZE,fp0 )； 


if (si 


dl) 
printfC \ 
return; 


き込みエラーです 。" 


} 

}while(si >0); 
fcloae(fp0); 
fcloae(fpl )； 
return; 


printf (" 君は間違えている ！¥n • い； 
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イものなのである。 

リスト6にそれを使ったプログラムを載せておこう。実行結果 
は「1，4，4，8，22」となる。そう ， sizeof () には，構造 
体名を食わせることもできるわけだ。 

で，ここまでやってみると，ちよいとまずいことに気がつくで 
あろぅ。 

それは，タイムスタンプである。 Human 68 k ( MS _ DOS ) には，夕 
イムスタンフ。つ一もんがあって，ファイルが作成された（最後に 
書き換えられた）日付と時間を記録してあるわけだ。で， dir な 
んぞとするとそのタイムスタンプが表示されるわけである。そし 
て copy コマンドでコピって作ったファイルはタイムスタンプが 
変わっていないのだが， hayautu . x でコピったファイルだとタイ 
ムスタンプがコピった時点での時間に変わってしまっているので 
ある。こ一ゆ一のは気分がよくないので，いきなりここでタイム 
スタンプの設定へと走るのである。 

そして最終的に出来上がったのが，リスト7の maruutu . c で 
ある。 

hayautu . c から変わったのは，変数宣言の 
int sfh , dfh ; 

と，終わりのほうで 
fileno () 

FILEDATE () 



まずは fileno () である力す，これはファイルボインタを渡すと， 
それに対応する“ファイルハンドル”つ一もんを返してくれる関 
数である。タイムスタンプをいじるには，このフアイルハンドル 
が必要なわけだ（のはずである)。 

で，次にある，なぜか大文字でできている FILEDATE という 
関数である力 5 '，これは 

FILEDATE (フアイルハンドル，〇 ) 


の2つの関数を呼び出していることである。なお， 
るには， / Y オプションを付けて， 
cc /Y maruutu . c 
としていただきたい。 




sizemiru. c 


コンパイルす 


1: ^include <stdio.h> 

2: 

3 : main{) 

4 : { 

5: printf("Xd %d %d %d %d¥n ,f , sizeof (char), 

6 : sizeof(int),sizeof(float),sizeof(double), 

7 ： sizeof(FILE ))； 

8： } 


とすると，そのファイルハンドルのファイルのタイムスタンプを 
読み出してくる関数である。第2引数の0が露骨である。ここが 
0でない場合は，タイムスタンプの設定となる。よって， 
FILEDATE ( dfh , FILEDATE ( sfh , 0)) 

とすると， sfh のファイルから dfh のファイルへタイムスタンプが 
コピーされるのである。 

C のライブラリ関数には，これらのファイルアクセスに限らず， 
さまざまな関数が群雄割拠しているのである。そして C を究める 
には，これらの関数群の制圧と掌握が不可欠であるが，残念なが 
ら未だに私もアフガニスタンだったりする。 

今月はそこそこのい一かげんさであった。ではまた来月。 



maruutu. c 


2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 


♦include <stdio.h> 

tdefine BSIZE 0x2000 

main(argc,argv) 
int argc; 
char 本 argvlJ; 

{ 

register int c, si,dl; 
char dbuff[BSIZE]; 

FILE *fp0,*fpl ； 
int sfh, dfh ； 

if (argc > 2) { 

fp0 = fopen(argv[1],"rb"); 
fpl=fopen(argv[2],"wb ")； 
if ((fp0 !=NULL) && (fpl!= NULL)) { 

do{ si=fread(dbuff,1,BSIZE,fp0 )； 

if (si) 

{ dl=fwrite(dbuff,1,si t fpl )； 

if (al!= dl) 

{ printfC 害き込みエラーです。 

return ； 


}while(sl >0 )； 
sfh = fileno(fp0); 
dfh = fileno(fpl); 

FILEDATE(dfh,FILEDATE(sfh,0 ))； 

fclose(fp0 )； 
fcloae(fpl )； 
return ； 


printf(" 君は間違えている！ ¥n ")； 


")； 
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別講義 


C とアセンブリ言語をリンクして使う 


先月の C 言語特集に引き続いての特別講義，今月は C 言語をア 
センプリ言語とリンクしてプログラミングするテクニックをご 
教授願いましょう。状況に応じたアセンブリ言語の活用は ， c 
言語のサイコフレーム （？） としてパワーを発揮するでしよう。 


Nakamori AKira 

中森章 

コードを受け入れるだけでは 

C 言語はアセンブリ言語の代わりに用い 
られます。しかし，しよせんはコンパイラ 
言語ですから，最初からアセンブリ言語で 
書いたプログラムにはスピードの面でも才 
ブジェクト効率の面でもかないません（お 
や，どこかで見たような書き出しだなあ)。 

先月の特集では， C コンパイラの出力す 
るアセンブリ言語のコードにも学ぶべき点 
が多いということで，代表的な C の出すコ 
ードを調べてみました。が， C コンパイラ 
の吐き出すコードをそのまま受け入れるだ 
けでは，そこそこの機能を特ったプロダラ 
ムしか作ることができません。しかし，ス 
ピードを要求される部分に対し，アセンブ 
リ言語を隠し味として用いることでプログ 
ラム全体の機能アップをすることができる 
のです。 

そこで今回は，一歩進めて C 言語をアセ 
ンブリ言語とリンクする方法について解説 
していきたいと思います。 

実際， C 言語自身もアセンブリ言語とリ 
ンクしやすいように作られていますから， 
そのような使い方もあながち間違った使い 
方ではないでしょう。 C 言語は UNIX を記 
述している言語として有名ですが，実はそ 
の UNIX もスピードを要する部分はアセン 
プリ言語で記述されているのです。 

|| c 言語の常識とぃぅメガネで 

C 言語とアセンブリ言語のリンクは，通 
常，関数のレベルで行われます。すなわち， 
C 言語で書かれたプログラムに含まれてい 
る関数のいくつかをアセンブリ言語で記述 
した関数に置き換えるという方法です。 

関数というものは，それを呼び出す側か 
らはリ I 数（アーギュメント）を与え，関数 
から戻ってきたときは結果の値を期诗しま 


す。したがって，呼び出された側（関数） 
では，リ|数がどのように渡されてくるの力*， 
そして呼び出した側に対して，結果の値を 
どのような方法で返したらよいのかを知っ 
ていなければなりません。 

また，アセンブリ言語で書かれた関数の 
中から C 言語で書かれた関数を呼び出す場 
合もあるでしよう。嬉しいことに，ほとん 
どの C コンパイラではこの呼び出し方.呼 
び出され方の手続きが典通になっています。 
それは C 言語を用いる際の常識といっても 
差し支えありません。まずは，それらの常 
識からお話ししましよう。 

1) ローカル 変数の領域はスタック上に確 

保される。 

はじめに，ここでいう口ーカル安数とは 
自動 ( automatic ) 変数のことです。関数の 
入り LI で領域が確保され，関数の出口で領 
域が解放されるので「0動」の名があるの 
でしよう。関数の先頭で， 
foo () 

I 

int i , j ; 


のように， static とか register といった記 
憶クラスの指定をせずに宣言されている i 
や j が自動変数です（自動変数にするため 
の auto という宣言もありますが)〇 

さて， C コンパイラの出力するコードを 
眺めると，関数の外部で宣言した外部変数 
名や関数名は名前の最初か最後に_ (アン 
ダース コア）をつけて， 

_main 

とか， 

_foo 

といったラベルでリスト中に現れています。 
しかし，自動変数については，プログラム 
リストのどこにも名前が a 当たりません。 
これは自勋变数の領域がスタック I •.に確保 
され，自動変数へのアクセスはスタック上 


のある地点からの相対位置を指定して行わ 
れるためです。この自動変数のためのスタ 
ック上の領域をスタックフレームと呼び， 
自動変数へのアクセスの基となる位置をス 
タックフレームのベースと呼びます。 
たとえば，あなたが自動変数として， 
Chan _ Agi _ Quess _ Pa ray a 
などという名前の変数を宣言したとしまし 
ょう。しかし，この立派な変数名も C コン 
パイラのコードのなかでは「スタックフレ 
—ムのベースから〜番目の変数」という情 
けない名前に変わってしまうのです。スタ 
ツクフレームのベース（のアドレス）はレ 
ジスタに;4!憶されます。それがフレームポ 
インタと呼ばれるレジスタです。 

スタックフレームは関数の入り口で生成 
され，関数の出口で解放されます。16ビッ 
卜以上の CPU ではこのための専用命令を持 
っていますが，8ビットや昔の （？）16 ビッ 
卜 CPU (お馴染み8086)ではスタックボイ 
ンタを操作することで同じ処理を実現しま 
す。 

籲スタック フレームを 生成する命令 

PREPARE とか ENTER と呼ばれること 
が多いのですが，68000では LINK と呼ば 
れます。呼び方はいろいろありますが，こ 
れらの命令はどれも， 

• フレーム ポインタとして用いるレジスタ 
をスタックに退避（プッシュ）する。 

• そのときのスタックボインタの値をフレ 
ームポインタにコピーする。 

•スタックフ レームと して必要なバイト数 
だけスタックポインタを進める（必要な 
バイト数を引く）。 

という動作を行うという点で-致します。 

また，フレームポインタとして使われる 
レジスタは CPU によってだいたい決まって 
います。つまり， 

8080 ( Z 80) BC 

808(3 系 BP 

6800 () 系 A 6 


C とアセンブリ言語をリンクして使う 


という状況です。それぞれの CPU について 
スタ ツクフレーム 生成の手順がどのように 
行われるのかを図1に示しましょう。 

ここでは簡略化して自動変数がすべて4 
バイトのサイズを持っている場合を考えま 
す。このときの各自動変数の位置はフレー 
ムポインタからの相対位置で， 


1番目の変数 

フレームポインタ 

一 4 

2#目の変数 

フレームポインタ 

- 8 

3番目の変数 

フレーム ポインタ 

-12 

4番 H の変数 

フレームポインタ 

-16 


となります。 

フレーム ポインタに対してマイナスの変 
位で参照することに注意しましよう。ただ 
し， Z 80 ( aC ) の場合は フレーム ポインタ 
をスタックフレームを形成した直後のスタ 
ックポインタと同じ位置を指していますか 
ら変位はプラスとなります（なぜかは知り 
ませんが)。また， フレーム ポインタ自身は 
( Z 80 の場合を除いて）古い フレーム ポイン 
夕が退避されている位置を示しています。 

さて，今は変数のサイズが4バイトのも 
図1スタック フレームの 生成 


ののみを考えたため， フレーム ポインタか 
らの変位はすべて4の倍数になっています。 
しかし，1バイトや2バイトなどのいろい 
ろなサイズの変数が一緒に宣言されている 
場合は，変位の決め方はコンパイラによっ 
てまちまちのようです。たとえば， 
bar () 

I 

int i ; 
char j ; 
int k ; 

I 

という宣言がある場合， i は， 

フレームポインタ ー 4 
の位置に割，り当てられ， j は， 

フ レームポイ ンタ ー8 
の位置に割り当てられます （ int 型を4バイ 
卜のサイズと考えた場合)。しかし，次の k 
は， コンパイ ラによって， 

フレ ー ムポインタ ー 9 
であったり （ char 型が1バイトであるため， 
メモリの無駄をしないように割り当てを行 


うとこうなる）， 

フレーム ポインタ ー12 
の位置であったりするのです。 

癱スタックフレームの解放する命令 

DISPOSE ， LEAVE , EXIT などと呼ば 
れます。68000では UNLK という命令です。 
スタックフレームの 生成は少々ややこし か 
ったので すが， スタックフレームの 解放は 
簡単です。 

• フレームポインタをスタックポインタに 
コピーす る。 

•スタックから退避しておいた，古いフレ 
ー ムポインタの値を回復（ポップ）する。 
この2つの操作でスタックポインタを元の 
状態に戻すことができます。図2に各 CPU 
のスタック フレーム を解放する動作を示し 
ます。 

ところで，自動変数の知識がアセンブリ 
言語の関数と C 言語のリンクのためになぜ 
必要なのかわからない人もいると思います。 
実のところ，自動変数の知識はあまり必要 
ではありません。まあ，一般教養と思って 
〈ださい0ただし， フレーム ポインタとい 


① Z 80 UC ) 


イ&アドレス 


高アドレス 
注） Z 80 では フレーム ポインタ （ BC ) は， 
スタ ッ クフ レームの一番 低いアド 
レスを指している 


PUSH BC 

し D 

HL , -(バイト数） 

ADD 

H し ， SP 


SP , HL 

し D 

B , H 

し D 

C , L 



- ► 

旧 BC 


—SP 


スタック 


スタック 


-SP 


バイト数 


旧 BC ■ 


-SP 


スタック 


バイト数 


I 日 BC 

[n 


-BC 

、SP 


スタック 


②8086 (Turbo C ) 

低アドレス 


PUSH 

BP 

MOV 

BP , SP 

SUB 

バイト数 ， SP 


高アドレス 


③ 68000( XC ) 

侣:アドレス 


LINK A 6, #-( バイト数) 


注）68000ではスタックフ 
レームの形成が I 命令 
でできる 


高アドレス 
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— SP 


- ► 


- ► 


- ► 

バイト数 

1 




旧 BC 

— SP 

IN BP 

<-BP 

旧 BP 

—BP 


<-SP 




、SP 

.... 



スタック スタック スタック スタック 






] 

—SP 


- ► 


- ► 

バイト数 
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旧 A6 

— SP 

旧 A6 

<-A6 


— SP 






スタック スタック スタック 


同時に行う 
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うものが存在するということ，それがスタ 
ックポインタを操作して作られるというこ 
とは知っていなければなりません。なぜな 
ら，この フレーム ポインタは，スタック フ 
レーム のべ ー ス への ポインタだけてはなく， 
関数に渡されてくる引数へのボインタとし 
ても用いられるからです。それを次に説明 
しましよラ。 

2) 引数はスタックを介して渡される〇ス 

タックに引数を積む場合は， int 型または 

double 型に変換される。 

C 言語では引数はスタックを介して関数 
に渡されます。このときスタックに引数が 
プッシュされるのですが，引数を積む順序 
は，関数の引数として後ろのほうに書かれ 
ているものが先になります。つまり， 
foou , b , c ) ; 

という関数呼び出しは， 
push c 
push b 
push a 
call foo 

というコードに展開されます。 

このとき引数は，それが整数型 ( char , 
short int , long int ) であれば long int 型 
(32 ビット）に，それが実数型 （ float，doub 
le ) であれば double 型 （64 ビット）に変換 
されてスタックに f 貴まれます。 

しかし，これはあくまでも原則で （UNI 
X 上の C コンパイ ラはたいていこうなって 
いますが），世の中にはびこっている MS - 
DOS 上の C コンパ イラは違う方針を取って 
います。つまり，整数型については ， long 
int 型以外は short int 型 （16 ビット）に変換 
して積み (long int 型はそのまま），実数型 
については float 型 （32 ビット）を double 
型に変換することはありません （ double 型 
はそのまま)。 

これは， UNIX 上の多くの C コンパイラ 
が32ビット CPU のためのものであり， MS - 
DOS 上の C コンパイラが16ビット CPU の 
ものであるという点に理由がありそうです 
が，これが UNIX と MS - DOS 間で C 言語で 
書かれたプログラムの移植をする際の大き 
な問題点となっているのです （ UNIX では 
ただ単に int と書いた場合は long int 型を示 
す)。 

また，このことは C 言語から呼ばれる関 
数をアセンブリ言語で書く場合も頭に入れ 


ておかなければなりません。つまりスタッ 
クに積まれている 1 】 I 数は， UNIX では4パ、 
イト （32 ビット）ごとに並び， MS - DOS で 
は2バイト （16 ビット）ごとに並ぶのです 
(今は整数型の引数のみを考えている）。言 
い忘れましたが， CP/M 80 の C コンパイラ 
は MS - DOS と同じで， Human 68 k の XC は 
UNIX と同じです。 

さて，先ほどの， 
too va , b , c ) ; 


という関数呼び出しに戻りましよう。この 
場合，関数 foo の入り口ではスタックの状 
態は図3のようになっています（引数はす 
ベて long int 型とします)。これにより関数 
側では， 

1番目の引数 ( a ) スタックポインタ+ 4 
2番目の引数 ( b ) スタックポインタ+8 
3#目の引数 ( c ) スタックポインタ+12 
で引数へのアクセスができるようになりま 
す0 


図2スタックフレームの_ 

① Z 80 UC ) 


低:アドレス 


し D 

HL , 

バイト数 

ADD 

HL , 

SP 

し D 

SP , 

H し 

POP 

BC 



注） Z 80 では BC をあまり活 
用していない 

②8086 (Turbo C ) 


バイト数 
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高アドレス スタック 


低:アドレス 


M 0 V 
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高アドレス スタック 
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スタック 
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—SP 
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スタック 
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低:アドレス 
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注） 68000 ではスタックフ 

バイト数 

♦ 
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高アドレス スタック スタック スタック 
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図3関数の入り口での引数の位置 


図4関数内でのスタックフレーム 
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t 

<-SP 

未使用 


口ーカル変数の 
バイト数 

FP -8 



1 
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b 
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c 
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リスト 1 asm 文のサンプル 


スト2 # asm 〜社 endasm のサンプ J レ 


* asm 文のサンブル（このブログラムは実行できません） 

本 

*/ 

main() 

{ 

int i,j ； 

for(i = 0; i<10 ; i + +)( 

asm(" move.1-4(a6) ， d0 M ); 
asm(" add.1 #123,d0 "); 

asm(" move.1 d0,-8(a6 )")； 

printf("i=%d i+123=Xd¥n", i, j); 


/* 

本 

* 

* 

*/ 

main() 


#asm 〜 #endasm のサンブル 
( このブログラムは実行できます） 


int 


for(i=0 ; i< 10; i++){ 

tasin 

move.1-4(a6),d0 
add.l »123,d0 
move.1 d0,-8(a6) 

fendaam 

printf( n i=%d i+123=%d¥n", i, j); 


この場合はスタックボインタを基準とし 
てアクセスしているわけですが，スタック 
ポインタというものは，式の値などを‘時 
的に退避するためにプッシュやポップを予 
告な〈行うことがあって，値が一定してい 
るとは限りません。•スタックポインタの動 
きを常に管理していなければならないため， 
スタックポインタを基準とする引数へのア 
クセスは C コンパイ ラの コード 生成に大き 
な負担となります（やってやれないことは 
ないが)。 

そこで，関数内で絶対不変な基準が必要 
になります。その基準というのが先に示し 
た フレーム ポインタなのです。図3のよう 
なスタックの状態で，スタックフレームを 
形成すると図4のようになります 0 フレー 
ムポインタを基準とすると，先に示した引 
数は， 

1番目の引数 （ a ) フレーム ポインタ+8 

2番目の引数 ( b ) フレーム ポインタ+12 

3番目の引数 ( c ) フレーム ポインタ+16 
でアクセスすることができます。そして， 
多くのコンパイラはこの方法で関数に渡さ 
れてくる引数にアクセスしているのです。 

つまり， フレーム ポインタはスタック フ 
レームの 基準位置を示すだけでなく，引数 
がある領域の基準位置にもなるのです（と 
ころで， VAX の CPU では フレーム ポイン 
夕とは別に， CALL 命令によって設定され 
るアーギ ュメン トポインタで引数領域の ベ 
ースを示します)。 

このように フレーム ポインタは便利なの 
ですが，人間がアセンブリ言語でプロダラ 
ムを作る場合はスタックポインタの動きを 
追うことが可能ですから，スタックポイン 
夕をそのまま引数領域へのボインタとして 
利用することもできます。もし，関数の高 
92 Oh! X 1988.8. 


速化のためにアセンブリ言語を用いるのな 
らばスタックポインタを使うことを考えま 
し上ラ0 

これまで説明してきた関数への引数の渡 
し方，受け取り方は C コンパイラで標準的 
なものですが， C コンパイラのなかにはレ 
ジスタを介して関数と引数のやり取りを行 
うものもあります。引数のレジスタ渡しは 
引数をプッシュしない分，高速な処理を行 
えますが，コンパイラ自身の負担は大変な 
ものです。そのせいか，こういうコンパイ 
ラはあまり見かけないのですが，有名なと 
ころでは8080用の LSI - C コンパイラがそれ 
にあたります。 LSI - C コンパイラは， 

第1引数を HL に， 

第2引数を DE に， 

第3引数を BC に， 

それぞれ入れてから関数を CALL します。 
引数が4つ以上ある場合は，第4引数以降 
をスタックで渡します。 

3) 関数の戻り値はレジスタで渡される。 

関数内で引数を参照する方法がわかった 
ら，次は関数から値を返す方法です。これ 
がわかればもうアセンブリ言語で関数のプ 
ログラムが書けるでしよう。 

関数から値を返す方法は簡単です。関数 
の値はレジスタに入れて返せばいいのです。 
それではどのレジスタを用いるかというと， 
それも フレーム ポインタと同様に，各 CPU 
ではほぼ共通で， 

8080 ( Z 80) HL 

8086系 AX 

68000系 D 0 

となっています0また，戻り値が1本のレ 
ジスタで足りない場合は， 

8080 ( Z 80) レジスタは使わない 

8086系 AX，DX 


68000系 D 0， D 1 

となるようです。 

これ以外の場合はスタックを使ったりす 
るなどコンハ。イラごとに工夫が行われてい 
て一般的なことはいえません力す，アセンブ 
リ言語で関数を作る場合には，ほとんどが 
int 型の値を返すと思われるので，これだけ 
知ってぉけば十分です。 

||ちょっとセコいィンラィン展開 

アセンブリ言語を用いて関数を書き，そ 
れを C 言語のプログラムから呼び出すこと 
は可能です。このとき，どんな小さいプロ 
グラムを作る場合でも，最低 C 言語のプロ 
グラムとアセンブリ言語のプログラムの2 
つのプログラムが必要になります。しかし， 
多くの C コンパイラでは C 言語のプロダラ 
ムにアセンブリ言語の記述を埋め込むこと 
ができるようになっています。この機能を 
使えば， C 言語とアセンブリ言語というぐ 
あいに プログラムをわざわざ2つに分けな 
〈ても，ひとつのプログラムですんでしま 
います。これがアセンブリ言語のインライ 
ン展開というやつです。 

しかし，このアセンブリ言語の記述は C 
言語の記述の中に埋め込むだけのものです 
から，アセンブリ言語だけで書いた場合の 
ような効率のよさは期待できません。また， 
最適化の段階で用いるォプティマイザが理 
解できないような命令列を埋め込んでしま 
う恐れがあるため，インライン展開を用い 
たプログラムに最適化を行うことはできま 
せん。 

インライン展開は，新たな関数を作るほ 
どではないが， C 言語の文法内ではどうし 
ても無理な機能を実現する場合にのみ使用 



すると考えたほうがよいでしょう。アセン 
プリ言語を使う方法としてはちょっとセコ 
いのですが，何かの 役に立つ ことがあるか 
もしれませんから説明しておきましよう。 

インライン展開の方法はコンパイラによ 
ってまちまちですが，人きく分けて次の2 
つがあります。 

1 ) asm 文 

UNIX 上の C コンパイラはすべて ， asm 
文を使用することでインライン展開をする 
ことができます。 asm 文とは， 
asm (“文字列”）； 

という関数呼び出しのような形忒で使用さ 
れ， （） 内に書いてある文字列がそのまま 
出カコードに埋め込まれます。 

パソコンの C コンパイ ラでは asm 文によ 
って イン ライ ン 展開をするものをあまり見 
かけませんが, LSI - C は- asm 一 という名前 
で始まる関数に asm 文!:同じ機能を持たせ 
ているようです。 

asm 文の使用例（一応 XC 用）をリスト 
1に示しますが， XC は asm 文をサポート 
していないので コンパイルす ると エラーに 
なってしまいます。 UNIX 上の C コンパイ 
ラで使うときはこのようにすればいいのだ 
という例と思ってください。 

なお， asm 文で記述してある内容はロー 
カル 変数（自動変数） i に123を加えたも 
のを，同じ ローカル 変数の j に代入するとい 
う単純なものです。 int 型の変数はフレーム 
ポインタ （ A 6) からの相対位置で示される 
ことを思い出せば意味はわかりますね。こ 
の相対位置は原則として宣言された顺に決 
められるので，リスト1では， 
i が一 4 ( A 6) に 
j が一8 ( A 6) に 
なるのです。 

2) #asm 〜：# endasm 宣言 

これはプリプロセ ッサへの 指定のかたち 
でインライン賊開を行う形式です 。 #asm 
と# endasm の間の記述がそのまま出カコ 


ードに埋め込まれます 0 パソコンの C コン 
パイラでインライン展開をけえるものは E 
倒的にこの形式が多いようです （ XC もこ 
の部類です)。 

リスト2に XC による使用例を示します。 
これはリスト1で asm 文になっている部分 
をそのまま # asm と # endasm の間に記述 
したもの（プログラムの意味はまったく同 
じ）で，こちらは XC でちゃんとコンパイ 
ルできますよ0 

，:ァセンブリ言語で関数を 

それでは，実際にアセンブリ言語で関数 
を書いてみましよう。例として用いる C コ 
ンパイラは，おそらく •番多くの人が持っ 
ていると考えられる aC と XC です。ここ 
ではフィボナッチ数列を求める関数を変形 
したものを C 言語とアセンブリ言語で記述 
してその速度を競います。 

まずは，リスト3とリスト4に C 言語で 
記述された関数を示します。リスト3がメ 
インプログラムでリスト4の関数を 10 M 呼 
び出します。そして，私たちはリスト4に 
対応する閨数をアセンブリ言語.で記述して 
リンクすればよいのです。リスト4は再帰 
呼び出しを行う関数になっていますから， 
アセンブリ言語で再帰呼び出しを行う場合 
の参考にもなるでしよう。 

1 )aC 編 

aC は直接オブジェクトコードを出力する 
コンパイラで，そのオブジェクトコードも 
独自のコードになっていますから，既存の 
アセンブラで作ったオブジェクトを簡単に 
リンクすることはできません。 

実は aC コンパイラの基になった BDSC 
コンパイラではアセンブリ言語で書かれた 
ソース プログラムを CP / M に付属の ASM 
にかかる形式に変換する CASM (プリプロ 
セッサ）というユーティリティが付属して 
いました。このユーテイリテイを用いると 


アセンブリ言語のプロダラムから BDS C と 
リンクできる形式のオブジェクトコードを 
作ることができたのです。残念ながら ， aC 
にはそのユーテイリテイは付属していませ 
ん力％このコンパイラが最初からアセンブ 
リ言語とのリンクを考えていたものである 
ことがわかるでしよう。 

aC は BDSC とほとんど変わるところがあ 
りませんからその CASM さえ手に入れれば 
アセンブリ言語とのリンクを容易に実現す 
ることができます。 CASM が手に入らない 
人は，御手洗毅著 f BDS C プロダラミンダ』 
(工学図書）を見てください。この本には C 
ASM を Z 80 用に改良した ZCASM というプ 
リプロセッサの全 ソースリスト が 載ってい 
るのでそれを打ち込みましよう。 

リスト4の関数を CASM の入力でできる 
ようなアセンブリ言語で記述したプログラム 
がリスト5です。関数の最初ではスタック 
ポインタ+2の位置（アドレス）に引数が 
あること（スタックポインタの位置には戻 
りアドレスがある），関数の値は HL に入れ 
て返すことに注意すればあとはレジスタの 
値を壊さない限り何をやってもかまいませ 
ん。 

リスト5では再帰呼び出しのときにスタ 
ックに横んだり I 数の捨て場所に IX レジスタ 
を使っています。 aC は8080用の C コンパ 
イラですから，8080に存在しないレジスタ 
を壊しても問題はないと思います。 

このプログラムを，リンクして実行する 
手顺はここでは説明しません。各自マニュ 
アルを調べてください。もっとも，図5に 
実行結果を示しますが，これを見るだけで 
も手順はわかると思います。 

今，リスト3のプログラム名が FIBMA 
IN . C ， リスト4のプログラム名が FIB 1. C ， 
リスト5のプログラム名が FIB 2. CSM とな 
っています。そして，問題の実行時間です 
が， fib (20) の値を一度プリントしてから次 
に W びプリントするまでの時間を比べると， 


リスト3 メインプログラム 


リスト4 メインプログラムから呼ぶ関数 ( C 言語) 


int fib い； 

int i ; 

main () 

( 

for ( i =0; i <10; i ++) 

printf ( ,, fib (20)=% d ¥ n " , fib (20))； 


fib(n) 
int n ； 

{ 

if(n==0) return(0); 
if(n==1)return(1 )； 
if(n==2) return(1 )； 
if(n==3) return(2); 

return( fib(n-l)+fib(n-2)+fib(n-3)+fib(n-4)); 
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C 言語のみのときは約 28 秒であったのが， 
アセンブリ言語の関数を使うと約10秒にな 
りました。なんと2倍以上のスピードアッ 
プです。 

ところで，ここで結果として出力されて 
いる 16240 という値は正し〈ありません。 
これは int 型が 16 ビットしかないために計算 
の途中でオーバーフローが起きたためです。 
しかし，間違える条件は同一ですから，さ 
っきの比較も意味があると思われます。 

2) XC 編 

XC の場合はアセンブリ言語とのリンク 

図5 aC とアセンブリ言語とのリンク(実行例） 


は簡単です。アセンブリ言語で書いたプロ 
グラムを Human 68 k 用のアセンブラ （ AS ) 
でアセンブルし，付属のリンカ （ LK ) で， 

/ L オプション（リンクの前で止める）をつ 
けてコンパイルした C 言語のメインプログ 
ラムとライブラリと•緒にリンクすれば出 
米上がりです。また，そんな而倒臭いこと 
をしなくても C 言語のプログラムとアセン 
プリ言語のプログラムを同時に CC に食わ 
せてやればあっという間に実行形式のファ 
イルが出来上がってしまいます 0 

リスト4のプログラムをアセンブリ言語 


で記述したものがリスト6です。このプロ 
グラムの アル ゴリズムはリスト5の8080の 
ものと同じですが， CPU の機能が高い分， 
すっきりとしたものになっています。 

それでは， XC の場合の実行結果を図6 
に示します。ここではリスト3のプログラ 
ム名が fibm . c ， リスト4のプログラム名が 
fibl . c , リスト6のプログラム名が fib 2 .s 
となっています。ひとつの fib (20) を出力 
するための実行時間は， C 言語だけの場合 
が約 5.3 秒で，アセンブリ言語を用いた場 
合が約 3.8 秒です。 aC のように2倍までと 


図6 XC とアセンブリ言語とのリンク(実行例) 


E> 

E)CC FlBMfllN - FIBMAIN. C のコンパイル 

BDS ftlpha-C Compiler ul.51 (pari I) 

S2K elbowroom 

BDS Alpha-C Compiler ul.51 (pari II) 

28K lo spare 

E> 

E>CC FIBl - nBI.C のコンパイル 

BDS Alpha-C Compiler vl.51 (pari I) 

52K unused 

BDS fllpte-C Compiler リ 1.51 (pari II) 

28K lo spare 

E> 

EX1INK FIBMftIN FIBl - リンク 

BDS fllpha-C Linker ul.51 
Linkage complete 
59K lefl ouer 
E> 

E>FIBMflIN - 実行 

== コこの間 _ 秒 

fib(20)-16240 

fib(20)-16240 

fib(20>-16240 

fib(20)-16240 

fib<20)-16240 

fib(20)-16240 

fib(20)-16240 

fib(20)-16240 

E>CfiS« FIB2 - FIB2. CSM を ASM にかかる形式に変換 

BD Software CRL-formal ASM Preprocessor yl.50 

Processing the FIB fund ion... FIB2.ASM is ready lo be assembled 

E>ftSM FIB2 - FIB2. ASM をアセンブル 

CP/M ASSEMBLER - リ ER 2.0 

S0B85 - SECTORS* EQU ($-TPflLX)/256+l ；USE FOR "SWE" !. 

01 明 

001H USE FACTOR 
END OF ASSEMBLY 

E 邠 ID FIB2.HEX - RB2. HEX をメモリにロー ド （ MRID を使つているが 

ftrmL 280 Debugger - VER 1.0 DDT でよい） 

(c) Prmal co. 1986 All Rights Reserved. 


Reading ： FIB2.HEX Next - 0108 

X68U Lin 

ker ’ 

-G0 - MRID を抜ける （ DDT でも同じ） 

A> 

A>fibm 



fib(20)= 

1473 

E>SWE 3 FIB2.CRL - FIB2. CRL を作る 

fib(20)= 

1473 

E > 

fib(20)= 

1473 

EX11NK FIBMfilN FIB2 - リンク 

fih(20)= 

117 3 

BDS Alpha-C Linker ul.51 

fib(20 )- 
fib( 20 )= 

1173 

1 17 3 

Linkage complete 

fib( 20)= 

M73 

S9K lefl ouer 

f ib(2()>: 

1173 

E> 

fib( 20)= 

1473 

E>FIB«flIN - 実行 

fib(20)= 

1173 


fib(20)-16240 
fib(20)-16240 
fib(20)-16240 
fib(20)-16240 
fib(20>-16240 
fib(20)-16240 
fib(20)-16240 
fib(20)-16240 
fib(20)-16240 
fib(20)-16240 


コ この間約 10 秒 


A>cc /O fibm.c fibl.c 

X68k CC Driver vl•00 Copyright 1987 SHARP/Hudson 
fibm.c 

X68k CCP Pre-Processor vl•00 Copyright 1987 SHARP/Hudson 

X68k CC0 Parser vl.00 Copyright 1987 SHARP/Hudson 

f ibm.c 7 : Warning15 閱数の戻り逋がない 

X68k CC1 Code Generator vl.00 Copyright 1987 SHARP/Hudson 

X68k CC2 Optimizer vl.00 Copyright 1987 SHARP/Hudson 

X68k Assembler vl.00 Copyright 1987 SHARP/Hudson 

No Fatal error(s) 

fibl. c 

X68k CCP Pre-Processor vl.00 Copyright 1987 SHARP/Hudson 
X68k CC0 Parser vl.00 Copyright 1987 SHARP/Hudson 
X68k CC1 Code Generator vl.00 Copyright 1987 SHARP/Hudson 
X68k CC2 Optimizer vl.00 Copyright 1987 SHARP/Hudson 
X68k Assembler vl•00 Copyright 1987 SHARP/Hudson 
No Fatal error(s) 

X68k し inker vl.00 Copyright 1987 SHARP/Hudson 
A> 、 

A>fibm 

は； ^ ぼコこの間約 5.3 秒 

fib(20)=147312 
fib(20)=147312 
fib(20)=147312 
fib(20)=147312 
fib(20)=147312 
fib(20)=147312 
fib(20)=147312 
fib<20 い 147312 
A> 

A> 

A>cc /O fibm.c fib2.s 

X68k CC Driver vl.00 Copyright 1987 SHARP/Hudson 
fibm•o 

X68k CCP Pre-Processor v l.00 Copyright 1987 SHARP/Hudson 
X68k CC0 Parser vl.00 Copyright 1987 SHARP/Hudson 

fibm. c 7 : Warning15 間数の戻 OW がない 

X68k ( て ， 1 Code Generator vl.00 Copyright 1987 SHARP/Hudson 
X68k CC2 Optimizer v1.00 Copyright 1987 SHARP/Hudson 
X68k Assembler vl .00 CopyrUht. 1987 SHARP/Hudson 
No Fatal error(s) 
fib2.s 

X6Bk Assembler v l .00 Copyright 1987 SHARP/Hudson 
No Fatal error(sI 

Copyright 1987 SHARP/Hudson 


: I この間約 3.8 秒 


E> 
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し 

sp 

a,m 

h 

h,m 

l，a 

h 

L0 

h 

h 

a,l 

h 

LI 

h 

h 

a，l 

h 

L2 

h 

h 

a,l 

a 

L3 

h 

h 

fib 


DE : register variable 


(SP) = HL-1 


(SP) = HL-2 


(SP) = HL-3 


(SP) = HL-4 


0ddh,0elh ; POP IX 

fib 

d 


fib 

d 


h,0elh ; POP IX 


fib 

d 


11 ， 0 elh ; POP IX 


^i,0elh ; POP IX 


pop 

pop 

pop 

lxi 

pop 

ret 

ENDFUNC 


h 

h 

h 

h，2 

d 


pop h 

pop h 

lxi h,l 

pop d 

ret 


pop h 

lxi h,1 

pop d 

ret 


pop d 

ret 


メインプログラムから呼ぶ関数 UC ， CASM 用) 

FUNCTION fib 


リスト 5 

fib: 


L0: 

LI ： 

L2 ： 

L3 ： 


リスト 6 メインプログラムから呼ぶ関数 ( X 68000 アセンブリ言語） 


.globl 
.text 

_fib 



.even 




move.1 

4(sp),d0 



lea 

-20( sp},sp 



move.1 

d7 •16(sp) 



cmpi.1 

#0,d0 



beq 

L0 



subq.1 

#1,d0 



beq 

LI 



move.1 

d 0 ， 12 (sp} 

;n- 

1 

subq.1 

#1 ， d0 



beq 

L2 



move.1 

d0,8(sp) 

;n-: 

2 

subq.1 

#1,d0 



beq 

L3 



move.1 

d0,4(sp) 

;n -： 

3 

subq.1 

#1,d0 



move.1 

d0,(sp) 

； n 一 

1 

jsr 

fib 



move.1 

d0,d7 



addq.1 

#4 ,sp 

；+4 


jsr 

fib 



add.l 

d0,d7 



addq.1 

#4 ,sp 

；+4 

(8) 

jsr 

fib 



add.l 

d0,d7 



addq.1 
jsr 

#4 ,sp 
fib 

；+4 

(12) 

add.l 

d7,d0 



lea 

8( sp),sp 

;+8 

(20) 

move.1 
rts 

-4(ap),d7 



.even 




lea 

20(sp),sp 

； d7 

no change 

clr.1 
rts 

d0 



.even 




lea 

20(ap),sp 

； d7 

no change 

moveq.1 
rts 

#l,d0 



.even 




lea 

20(sp),sp 

;d7 

no change 

moveq.1 
rta 

#1,d0 



.even 




lea 

20(sp),sp 

； d7 

no change 

moveq.1 
rts 

#2,d0 




.end 


はいきませんがかなりのスピードアップで 

to 

i ', ァセンプリ言語は最後の武器だ? 

アセンブリ言語と C 言語とのリンクを行 
えば，プログラムの実行速度を上げられる 
ことがわかったと思います。それならば， 
最初からアセンブリ言語だけでプログラム 
を作るほうがいいという考えも当然出てき 
ますが，アセンブリ言語だけで C 言語に匹敵 
するような制御構造を実現しようとすると 
大変な労力が必要となります。それに，ま 
ったくスピードを要求されない部分までも 
アセンブリ言語で記述するのは労力の無駄 


とも言えます。 

やはり，アセンブリ言語はどうしてもス 
ピードが要求されるプログラムのクリテイ 
カルパスに対して用いたとき（当然，プロ 
グラムはよくモジュール化されていて，ア 
センプリ言語で書くべき関数が明確になっ 
ていなければなりませんが）に，番の能 
力を発揮するものなのでしょう。 

ところで，この原稿では C 言語とアセン 
プリ言語のリンクがさも当たり前に行われ 
ているように書いてきました。しかし，現 
実にはよほどのことがない限り C 言語の出 
力する コー ドで満足するプログラマが多い 
ようです。 

たとえば， VAX の UNIX 上で C 言語を使 


用している人のうち，どのくらいの人がそ 
の CPU のアセンブリ言語の命令を知ってい 
るのでしょう。少なく！：も私の周りには V 
AX 上でアセンブリ言語を活用している人 
は皆無です。きっと， 「 C 言語はアセンブリ 
言語の代用に使っている」なんていう人の 
なかにも，アセンブリ言語（その CPU は 
なんにせよ）を知らない人が多いのではな 
いでしょう力、（これは一種の詭弁ではない 
だろうか)。 

でも， C の能によってはどうしても高 
速化したいという人もいるかもしれません 
が，もしかしたらアセンブリ言語と C 言語 
のリンクという テクニック はかなり「その 
筋」なことなのかもしれませんね。 


1 lxidadlinxi lrdcxllrlllJrdcxtirltcalxchgdbcalldadxchgdbcaldadxchgdbcalldaddb^ 
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CONCERTO-X68K 
DATA PRO 孤 / CARD PRO 孤 

X 68000 あなたの知らなし他界 



68000 


今回は X 68000 用の MS - DOS エミュレー 
夕 CONCERT 〇と2つのデータベースを 
紹介しましよラ。なお，このコーナーは今月 
で終了です。来月から X 68000 関係の情報は 
SOFT 〇 UCH や一般記事としてお伝えし 
ます。長らくご声援ありがとうございました。 


i MS-DOS エミュレータ丨 
i CONCERTO-X68K i 

ついに， アクセスから MS-DOS エミュレ 
ータ CONCERTO-X68K が発売になりまし 
た。これは X68000 上で MS-DOS のソフト 
を走らせてしまおうというものです。 MS- 
DOS のソフトが動いてなにがおいしいのだ 
ろうと思う人もいれば，エミュレータなど 
は遅〈てしょうがないだろうという人もい 
るでしょう。はたして，そうなのか。今ま 
で，何度かこの CONCERTO-X68K につい 
てのレポートが本誌でされていました。今 
回，本格的に試用する機会がありましたの 
で，詳しく探ってみたいと思います。 

まずは CONCERTQ-X68K の構成 

CONCERTO-X68K の薄緑色のパッケー 
ジを開けると，中には DOS Engine と呼ば 
れる LSI 満載のボード，デイスケット（マ 
スター ディスク）1枚， マニュアル， その 
他ァンケートハガキなどが入っていました。 
要するに，この CONCERTO はハード，ソ 
フト表裏一体の代物なのです。それでは， 

まず DOS Engine のほうから見ていきたい 
と思います。 

DOS Engine は 30cm x17cm のかなり大き 
なボードで， X68000 の後方にあるスロット 
にはとうてい又まらない大きさです。では 
このボードはどうしてこんなに大きいのか 
というと，このボードにはマイクロプロセ 
ッサ V30 と 512K バイト分のメモリなど，通 
常はコンピュータの心臓部となるべきもの 
が詰まっているからです。はっきりいって 
この CONCERTO は MS-DOS エ ミュレ ータ 
というよりは， MS-DOS マシンの心臓部だ 
けをみつくろってボードに載せたようなも 
のです。モニタとキーボードのないコンビ 
ュータと考えたほうがいいでしょう。こう 
考えると，約10万円という価格もうなずけ 
ます。でもこれを使うには別に MS-DOS の 
ソフトが必要なので，ちょっと高いような 
気がしますが。 
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CONCERTO に搭載されている CPU， V 
30は8086との完全互換性のある NEC 製の 
16ビットマイクロプロセッサです。このボ 
—ドでは V 30 はクロック周波数 8 MHz で駆 
動されています。ということは PC - 9801シ 
リーズの ベス トセラー モデルで ある VM 2 

など （10 MHz ) に比べれば，若千遅くなっ 
ています。 X 68000 本体が 10 MHz ですので， 
少なくともそれにあわせてほしかったとこ 
ろですが，クロックを上げるとそれにあわ 
せてメモリの値段が上がってしまうので価 
格の兼ねあいからしかたがないのかもしれ 
ません。メモリは 512 K バイトを装備してい 
ますが，実際にアプリケーションソフトの 
実行に使えるのは 480 K バイト程度です。あ 
とは システム などが使っているのでしよう。 

次はソフトのほうを見てみたいと思いま 
す。マスターディスクには，この DOS En 
gine を操{乍するために， 

XDOSINIT . X 
XDOS . X 
XDOS . CNF 

というファイルがついてきます0これだけ 
で DOS Engine は十分に操作できます〇な 
かなかよくできていますね。では，これら 
について説明してみましよう。 

XDOSINIT . X は DOS Engine をエミュ 
レータとして初期設定をするためのソフト 
です。これは CONCERTO を立ち上げるた 
びに実行する必要があります。 

XDOS . X は実際に DOS Engine を使って 
MS-DOS のエ ミュレーションを 行うための 
ものです。これは MS-DOS のソフトを実行 
するたびに使うことになります。 

XDOS . CNF は XDOS . X を起動するとき 
に，その環境を設定するためのパラメータ 
(環境変数など）を設定するためのファイル 
です。なくてもかまいませんが，その場合 
はデフオルト値が設定されることになって 
いるようです。 

なにが走るのであろ 3 か 

MS - DOS のアプリケーションソフトとい 



これが DOS Engine 

っても，いろいろなものがあります。また, 
PC -9801 のソフトウェアのなかには，単に 
MS DOS をソフトの立ち上げのためだけに 
使っているものがたいへん多いので気をつ 
けなければなりません。注意してください< 
あらかじめことわっておきますが，一■太郎 
などは PC -9801 のアプリケー ション であっ 
て， MS - DOS のアプリケー ションと はいい 
がたいものがあります。当然，こういった 
特定機種用のプログラムは CONCERTO で 
は実行できません。 

この CONCERTO では MS - DOS の Ver 2. 
11上で走るアプリケーションソフトが実行 
可能です。現在広く使用されている MS-D 
OS は Ver 3.1 程度のものですが，実際には M 
S - DOS のソフトの多くは Ver 2.1 の時代に 
作成されたものです。また一般に Ver 3.1 は 
広い記憶容量を必要とし，ァプリケーショ 
ンソフトを満足に走らせることができない 
ことがあります 0 その点からいうと ， Ver 
2.11というのは賢明な選択であると私は思 
います。しかし，バージョンの違いは CO 
NCERTO 上で動くアプリケーションソフ 
卜の決定に重要な影響を与えますので十分 
に注意してください。 

では具体的にどのようなソフトが動くの 
かということに話を進めましよう。 MS-D 
OS の ファンクション コールでは基本的にキ 
ャラクタしか表示できませんので，グラフ 
ィックを使うものは'持定のハード用のソフ 
卜というのが正しいのです 。 CONCERTO 
はあくまでも MS - DOS エミュレータですか 
ら，このようなソフトには対応できるわけ 






























ROGUE が走る! 


がありません。 

次に MS-FORTRAN や MSPASCAL に 
代表されるコンパイラやインタプリタなど 
のソフトですが，これらはほとんど問題な 
く動きます。ただ注意しなければならない 
ことが2つあります。 


するようにしてください。 

なぉ，発売元のアクセスからは以下のよ 
うなソフトが動くことが明示されています。 

MS C MS-FORTRAN 
MS-PASCAL MS-LINK MASM 
Lattice C R/M FORTRAN 
PLINK 86 TURBO PASCAL 

さて次にエディタについては，どうでし 
ようか。はっきりいってちまたにあふれて 
いるエディタは機種に依存したものが多く， 
あまり期待しないほうがよさそうです。ぉ 
そらく， MS - DOS でなにもせずに使えるエ 
ディタとしては，かの悪名高きラインエデ 
ィタの EDLIN ぐらいしかないと思われる 
からです（私はそんなに使いづらいとは思 
わないんだけどなあ一)。実際には，先ほど 


ひとつは TURBO PASCAL などのよう の TURBO PASCAL などのところで述べ 


にエディタを内蔵したものや，インタプリ 
夕などのカーソル エディッ ト機能を持って 
いるようなものです。これらは画面やカー 
ソルを制御する方法をインストールできる 
ものか，たまたま X 68000 と同じものを使っ 
ている場合ならば問題なく動きます（ただ 
しインストールは必要でしよう）〇また画面 
制御に ANSI . SYS というドライバを用いて 
いるものがありますが，これは画面制御の 
エスケープシーケンスコードを ANSI 規格 
のもので制御できるようにするものです。 
でも X 68000 は画面制御に ANSI 規格のもの 
を用いていますので，この ANSI . SYS ドラ 
イバは不要です。それから，ついでにいっ 
ておくと， MS - DOS のドライバの接続が必 
要なソフトは走らないか，走ってもそのド 
ライバを使う機能は使えなくなります。こ 
れは CONCERTO があくまて、、もエ ミュレ ー 
夕なのでしかたがありません。 

それから ワープロ などのときと同様に最 
初から特定のハードで動くように作られて 
いるものは，やっぱりだめです （TURBO 
C などがそのようです)。ちなみに MBASI 
C は由緒正しい昔の カーソルエディ ットの 
できない BASIC (昔はみんなそうだった） 
ですので，ちゃんと走ります。 

さて，もうひとつはコンパイラの使用す 
るライブラリ，特に8087などを使ったライ 
ブラリです。これらは通常割り込みを用い 
て処理を 行います。 この CONCERTO は害 U 
り込みの レベルな ども変更できるような設 
計になっているのですが基本的には IBM - 
PC などのソフトで使用されている NMI 割 
り込みを使うものと，割り込みを使わない 
ものが使用可能です。したがって， MS-FO 
RTRAN や MS C のライブラリは IBM-PC 


ましたように，画面の制御方法が問題とな 
ります。特に X 68000 の場合には，画面が％ 
文字 X 32 行となっていますので（ふつうは 
80文字 X 25行），これがインストールできる 
かという問題があります。こういうふうに 
考えていくといちばん安全なのが TURBO 
PASCAL のエディタのような気がします。 
もちろん， microEMACS を使って ， Human 
と操作環境を同じにするというのも非常に 
建設的な意見です。 

最後に ROGUE , HACK などに代表され 
るキヤラクタグラフイックのゲームですが， 
これらは若千の コン フイ ギユ レー シヨン フ 
アイルの書き換えを要するものの，だいた 
い動くようて、、す。ただ、， ROGUE は PC -9801 
版と MS - DOS 版の2つがあるようなので 
注意してください。 

いったい使い心地はとうなのか 

では，実際に CONCERTO を使ってみた 
いと思います。まずはボードの取り付けで 
すが，これは簡単です。 X 68000 の電源を落 
とし，本体後方のスロットのふたをはずし， 
ボードをぐっと差し込んでネジを締めるだ 
け0またマニュアル（取り扱い説明書）も 
それなりに親切です（あんまり説明するこ 
とがないからなあ)。 

では試しに マスターデイスク から立ち上 
げてみましよう。すると，すかさず AUTO 
EXEC . BAT で XDOSINIT . X が実行されて 
そのことのメッセージが画面に出力されま 
す。そしてプロンプトが出て COMMAND . 
X の入力侍ちとなります。ここで，おもむ 
ろに B ドライブの TURBO PASCAL を実 
行したいときには， 

XDOS B : TURBO 


用のものを選択し（セッティングし），使用 と入力します。すると マスターディスク 内 


の XDOS.X が'立ち上がって， TURBO PAS 
CAL が実行されます。 

それではシステムデイスタに組み込んで 
みましょう0フアイルの移動を開始しまし 
た。 XDOSINIT.X は基本的にシステムが 
立ち上がるときに一度実行されればいいの 
で，ディレクトリ SYS へ移動。 XD 0 S.X は 
繁頻に使うのでデイレクトリ BIN に XDOS . 
CNF とともに移動しました。 

次’に CONFIG.SYS を書き直します。と 
いうのはこの XDOS.X が作動中は XDOS.X 
自体がファイルを開き， XDOS.X で動作す 
る アプリケーシヨン ソフトもフアイルを開 
くので，一度に開けるファイル数を多めに 
取っておかないといけません。したがって， 
CONFIG.SYS 内の FILES の数を30以上に 
設定するのがよいでしょう（このことはマ 
ニュ アルに も書いてあります)〇 

XDOSINIT.X はシステムを立ち上げた 
とき1回実行すればいいので， AUT 0 EXE 

C . BAT を書き直して XDOSINIT . X を自動 
的に実行するのがいいでしょう。 

ここまできたら，試しにリセットスイッ 
チを押してみます。なるほど，うまくいき 
ました0実際には XDOS.X などのファイル 
はどこに置いてもかまいません。ただ PA 
TH が通っていれば，デイレクトリの指定が 
不要になります。 

つまり， XDOS.X で実行するプログラム 
があるところに PATH が通っていると，デ 
ィレクトリやドライブの指定は必要ありま 
せん。これは非常に便利です。先ほどの T 
URBO PASCAL の例でいくと， PATH が T 
URBO PASCAL のところを通っていると 
現在のディレクトリやドライブに関係なく， 
XDOS TURBO 
で実行できることになります。 

ただ忘れてならないのは， XDOS.X は M 
S-DOS のソフトを実行しますので拡張子(ェ 
クステント）が*. EXE か* .COM の実行可 
能ファイルしか実行できないということで 
す。また， CONCERTO では同名で*. EXE の 
ファイルと*. COM のフアイルが同ーデイ 
レクトリにあるときは*. COM のほうが優 
先して実行されます。 *.EXE のほうを実 
行したいときは，ファイル名の指定のとき 
にそのこ！：もいえば* .EXE のほうが実行 
されることになります。 

しかし実行時に，いちいち XDOS と入力 
するのも面倒な気がします。そんなときは 
バッチファイルを使う方法と，あの有名な 
MS-DOS の コマンド シェルの COMMAN 

D . COM を立ち上げる方法とがあります。 

まず第1にバッチファイルを使う方法で 
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すが，これはバッチファイル内で XDOS な 
になにという命令を書いておくというもの 
です。これはタイプする文字を少な〈する 
ことができますが，バッチファイルをそれ 
ぞれ作っておかないといけないので本質的 
な解決とはいえません。そこで COMMAN 
D.COM を使うのが適当といえます。 COM 
MAND.COM を立ち上げるには， 

XDOS COMMAND 

と入力します。ただし， COMMAND.COM 
がカレントディレクトリになく PATH が通 
っていないときには， そのデイ レクトリをネ旨 
定する必要があります。これは Human と同 
様です。しかし， COMMAND.COM を立ち 
上げる前にやらなければいけないことがあ 
ります。それは XDOS.CNF ファイル内の 
COMSPEC 環境変数に， COMMAND.COM 
のあるデイレクトリを指定することです。 
たとえば COMMAND.COM がルートの下 
の BIN デイレクトリにあったとすると， 
以下のようにネ旨定します。 

SET COMSPEC =¥ BIN ¥ COMMAND.COM 
このように設定しておけば，以後 COMM 
AND . COM が立ち上げられるようになりま 
す。しかし COMMAND . COM は Ver 2.1 程 
度のものしか使えません。間違っても Ver . 
3.1 のものは使えませんので注意してくだ 
さい。 

さてこの XDOS.CNF フアイルはこのほ 
かにいろいろなことを書いておくことがで 
きます。そしてこのファイルの内容は C 0 
MMAND.COM が立ち上がったときに自動 
設定されます。たとえばプロンプトの指定 
です0現在使用中のシェルカす COMMAND . 
X 力、， COMMAND.COM かが，ひと目でわ 
かるようになります。ほかには環境変数の 
設定をけっこう自由にできます。これは， 
SET 環境変数名=環境変数の内容 
ということになります。 

また逆に COMMAND.X からの環境変数 
の継承をしないようにすることもできます。 
このためには， 


DELENV 

と書いておきます。すると，この DELEN 
V 以前に設定された環境変数は立ち上がっ 
た COMMAND . COM においては破棄され 
ます。このような環境変数に対する操作は 
きわめて重要であると思います。たとえば， 
XC と MSC の両方を使いたいと思ったとし 
ます。するとこれらの C は環境変数によっ 
て コンパイ ルに必要なファイルの位置を指 
定します。ところが，両方の環境変数の名 
前がたまたま同じなのです。こうなるとど 
ちらかの コンパイ ラを使うたびに環境変数 
の設定をやり直す必要があります。しかし 
Human 68 k が立ち上がったときに XC の環 
境変数を設定し， XDOS . CNF ファイルの中 
で MS C の環境変数を設定するようにすれば， 
COMMAND.X からは XC が， COMMAND . 
COM からは MS C が使えるようになります。 
このように XDOS . CNF ファイルをうまく使 
うことで ， MS DOS のアプリケーシヨンソ 
フトと，従米からある Human 68 k のソフト 
の両方を無理なく使えるようになります。 

ただ， COMMAND . COM を立ち上げる 
と従来の Human 68 k の抵張子*. X のファイ 
ノレは実行できなくなってしまいます。どう 
しても* . X のファイルを実行したいときは， 
EXIT 

と入力して， COMMAND . COM を抜けて C 
OMMAND . X に戻ってから， *. X のファイ 
ルを実行することになります。ただし，こ 
のとき COMMAND . COM で設定した環境 
変数は COMMAND . X には継承されません c 
これは当たり前のことですが，非常に重要 
なことです。 MS - DOS のエディタがあまり 
期待できない場合， Human 68 k のエディタ 
( ED など）を使わざるをえません。これは 
とても®倒くさいことになります。という 
のは， COMMAND . COM を使って MS DO 
S のコンパイラを実行したとします。しかし， 
ここでバグがあったならばエディタを起動 
してプログラムの修正をするのですが，ま 
ず COMMAND . COM を抜けてエディタを起 


動するということになります。う一んこり 
ゃ面倒だ。ということで頻繁に行う作業は， 
できるだけ COMMAND.X 側のバッチファ 
イルを利用したほうがよさそうです。 

さらに，こんなことができたりするのだ7 

V 30 という CPU は 8080のエミュレータモ 
ードを持っています。 Z 80 ならともかく，い 
まさら 8080 なんてという方もいるかもしれ 
ません力 ? ，世界の標準である CP/M では 80 
80 で十分（日本の標準である S-OS は無理 
ですが)。ということで， V 30 が動いてると 
なれば， 8080エミュレータモードを なんと 
か使えないかと思うのが人情だろうと思い 
ます（う 一 ん， エミュレータのエミュレー 
夕になっちゃうな)。そこで CP / M の ソフト 
が® J かないかと試してみたのですが，うま 
くいきそうです。 

今回使用したものは ACE という技術評論 
社から出ていた エミュレータで， CP / M - 80 
と CP / M -86 兼用のものですが，うまく動作 
しています。この手のソフトはパブリック 
ドメインのものが多く，ちゃんと発売され 
ているものについてはあまりよく知りませ 
ん。ただしパブリックドメインのものでは， 
誰も使いそうにない フアンクシ ョン コール 
を エミュレー トしないものもありますので， 
もしかすると動かないソフトもあるかもし 
れませんので注意してください。 

これは ハー ドウ エアエミュレー タなので、 
速く，クロックが桁違いな分だけ本物の C 
P/M より速くなります。実際 CONCERT 
0 で動かすと 8 MHz の 8080 があるようなも 
ので，きわめて強力といえます。 MZ / X 1 シ 
リーズから X 68000 に乗り換えた人も多いで 
しようから，手持ちの CP/M ソフトを倍の 
クロックで走らせてみるというのも魅力的 
でしよう。問題は CP / MO ソフトを，どう 
やって 2 HD の MS - DOS フオーマット に コン 
バートするかです。なんとかシリアルで送 
るか， CP / M -86 のお世話になるか0 

さらに， 2つの マイ クロプロセ ッサがあ 
れば抱列に動作させて高速化を図りたいと 
いうのも人情のような気がします。実際 C 
ONCERTO では並列動作ができるような構 
造になっているようです。腕に自信のある 
人は，頑張ってみるといいでしよう。ヒン 
卜はドライバです。 CONCERTO の V 30 を 
Human 68 k 側から使うようなドライバを設 
計するのがもっとも简単で使いやすいので 
はないかと思います。ただノ、ー ドの知識が 
けっこう必要なので，それなりの人はやら 
ないほうが身のためです。 

最後に X 68000， PC -9801, CONCERTO 


表1ファイル名の制限 


作成 

使用 

使用についての注意 

Human 68 k 

MS-DOS 

MS-DOS では，小文字のファイル名やデイレクト 
リ名はイ吏えません。 

Human 68 k 

CONCERTO - X 68 K 

小文字は大文字に変換されますが，すべてのファ 
イルが使用できます。 

MS-DOS 

Human 68 k 

CONCERTO - X 68 K 

ファイル名，デイレクトリ名に“一”がない限り， 
すべて使用できます。 

CONCERTO - X 68 K 

Human 68 k 

MS-DOS 

すべて使用できます。 


98 Oh! X 1988.8. 












でファイル名の制約がかなり違います〇こ 
れは PC -9801 からソフトを持って〈るとき 
などに十分に注意してください。これを表 
1に示します。特に注意してほしいことは 
X 68000, CONCERTO ではフアイル名やデ 
ィ レクトリ名などに“一”が入るとそのファ 
イルなどに対する操作ができなくなってし 
まうということです。この場合はデバッガ 
のお世話になるしかありません。 



要するに ，結局どうなのだろうか 


これが CARD PRO-68K 


はっきりいって，この CONCERTO は生 
粋のエミュレータといえると思います。と 
いうのは従米の Human 68 k のソフトを生か 


DATA PRQ-68K/ 
CARD PRO-68K 


しつつ ， MS DOS のソフトを ® J くようにし 
たエミュレータだからです。この CONCE 
RTO の場合， MS - DOS のソフトを実行中に 
X 68000 の フロントプロセッサ ASK 68 K 力 ？ 
動くなど， Human 68 k と MS - DOS が X 68000 
上で協力して動いているような感触をュー 
ザーに与えます。外観を別にすると，きわ 
めて優れたアプリケーシヨンといえます。 

一般に エミュレータ というのは遅いもの 
ですが，面白いことにコンパイルなどをす 
るときは 10 MHz の PC 9801より速いときが 
あります （80286 の VX よりも）。これは X 68 
000のデイスクアクセスが非常に速いためで， 
多くのファイルをアクセスしようとすると 
きに顕著に表れるようです。 

この CONCERTO は MS - DOS の単なるエ 
ミュレータと してはもちろん， X 68000 のユ 
—ザーにいろいろなものを提供してくれそ 
うなァプリ ケー シヨンではない かと 私は思 
います。 （相馬英昝） 

CONCERTO-X68K 99800円 
アクセス 003(233)0200 

図1プログラム例 

■ub «ub_d. : • 名印_サブルーチン 


シャープの PRO -68 K シリーズ として2 
種類の データベースソフトが 登場します。 
ひとつはリレーシヨナルデータベースの D 

ATA PRO -68 K ， もうひとつはカード型デ 
ータベースの CARD PRO -68 K です。まず 
最初にことわっておきますと ， DATA PRO 
-68 K は柬海クリエイトのスウイングの移植 
版 ， CARD PRO -68 K はダットジャパンの 
隼というソフトのスーパーバージ ヨ ンと考 
えられるものです。 

Kamikaze や BUSINESS PRO -68 K に続 
〈久々のビジネスソフトですが，今间はサ 
ンプル版から見た製品の概要をお伝えしま 
し上ラ0 

リレーシヨナ/レとは 

まず，リ レーシヨ ナルとはどういうこと 
でしよう力閲係 データベース などと訳す 
とどうも抽象的でなにか難しい商度な処理 
をやっているように思えますね。これはデ' 
ータの扱い方からこう呼ばれているのです 
力 ? ， データとデータ の 相:/ 7:関係などといっ 
ても全然要領を得ませんので，とり 
あえずリレーシヨナルデータベース 


ド ；1 r aw = 0 

MOVE TO $wl 

HOVE TO twZ 

HOVE TO tw3 

MOVE TO tw4 
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ではデータを表のかたちで扱うんだ 
と考えておくとよいでしよう。ひと 
つのデータには決まった数の項ほが 
⑴意されており，-定のフォーマツ 
卜 で蓄秘•されたデ ー タなら，任意の 
項 H を キーに して検索やソートがで 
きるというソフト，これがリレーシ 
ヨナルデータベースです。 

一方，リレーシヨナルデータべ一 
スの扱う表をそのままビジュアルに 
表视したのが力ード型データベース 
と考えられます。 

これらのソフトをけ J いることで， 
従来汎用言語で記述されていた多く 
の業務) | j プログラムを簡単に作れる 
ようになり，実に経済的です。 


DATA PRO-BBK 

まずは DATA PRO -6 8 K です。従米，こ 
の手のソフトは高価（十数万円）なものだ 
ったのですが ，X 68000用には58,000円とか 
なり安く発売されます。 

処理部はインタプリタとなっており ， B 
ASIC のデータ処理強化版といった雰囲気 
もあります。図1に DATA PRO -68 K で 記 
述された住所録の ソース プログラムの一部 
を掲載します 。 CARD PRO -68 K なら10分 
でできそうなデータ フォーマット ですが， 
DATA PRO -68 K では1000行以上のプログ 
ラムを書かねばなりません。その代わり， 
かなり自由な フォーマッ トでデータを蓄え 
ることができます。その気になれば，市販 
ソフトクラスの ものまで記述できるのです。 

命令や関数はかなり豊富で， LOCATE , 
PRINT といったお馴染みのコマンドから 
LINE や PATTERN ， 果ては INKEY $(!/ 
アルタイ ムキー 入力！）や PLAY まであり， 
これならビジネスソフトだけでなく，ブロ 
ック崩しくらいは作れるのではないかと思 
わせるほどです。 

CARD PRO-68K 

CARD PRO -68 K は従米のカード型デー 
タベースの弱点であった数式処■や多重条 
fl ‘ •検索などの機能的な不備を補っており， 
かなり本格的なデータベースといえます0 

マウス対応，マルチウインドウとなって 
おり，メニュー選択などの操作性もなかな 
かよろしいようです。カード型データべ一 
スソフトというと PC - 9801版でいくつか発 
売されていますが，やはりマウスがオプシ 
ョンのマシンではこういったソフトの真価 
は発揮されないのではないでしよう力*。 

メニューは X 68000 では珍し C 、完全なプル 
ダウン方式 0 Kamikaze に惯れている人は 
もちろん，誰でも簡 1 IU こ使いこなせそうで 
す0ちよこちよことデータフ オームを 作成 
し，データを入力してみました力 ? ，特にマ 
ニュアルを必要とすることなく作楽を進め 
ることができました。このノリのよさは重 
要でしよう。 （中野修 •） 


新製品速報 

シテイソフトよりX 68000用日本語 フロント 
プロセツサ FIXER とマクロアセンブラ CMA68 K 
が発売されます。 FIXER は操作性と機動性に重 
点をおいたもので予価28,000円，発売日未定。 
CMA68 K は C に近いマクロ表記や68010, 68020 
の命令までサポートしたもの。価格は19,800円, 
7月発売予定。 

シテイソフト 006(926)1060 
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• MIDI 活用テクニック# 

頃掲載 Xl / Xltu 「 bo 用 MIDI ボードの製作4 
籲 MIDI 対応シーケンサ発表* 


パソコンは MIDI と出会って“楽器”となります。といっ 
てもパソコン本体で音を鳴らすわけではありません 。 M 
IDI とは電子楽器を制御するための世界統一規格です。 
現在ではほとんどあらゆる電子楽器が MIDI を備えてお 
り，これらの演奏を自動的に制御する機器はシーケンサ 
と呼ばれています。 MIDI によってパソコンはシーケン 
サ，すなわち楽器の頭脳となるのです。 

XI では19昍年3月号の IVHDI ボードの製作により，やっ 
とその下準備ができあがったところです。これからはそ 
れをもとに新しい世界を開いていかなくてはなりません。 


MIDI を得たことにより，パソコンミュージックはプロ 
ミュージシヤンと同じレベルにまで近づくことができる 
ようになったのです。これからは“音楽”というレベル 
でパソコンミュージックを語るべきなのでしよう。 

今回， XI 用の MIDI ボードの製作記事を再掲載するとと 
もに， MIDI をフル活用するための八ードからソフトま 
での集中講座，および現行 FM 音源用 MMU こ準拠した 
MIDI 対応16チヤンネルシーケンサを発表します。 
コンピュータミュージックを見つめれば，これが本来の 
姿だったのではないかと気づくことでしよう。 


短期集中講座 MIDI 活用テクニック 

MIDI の基礎とボ-ドの製作 ii K ii 

今回から3回にわたって， MIDI の徹底講義を行うことになりまし 
た。なんといっても XI に楽器をつなぐためには MIDI ボードを用意 
しなければなりません。3月号で発表した MIDI ボードを再掲載す 
るとともに， MIDI の基礎事項をしっかりとおさえておきましよラ。 


デジタル楽器の時代 

X シリーズの FM 音源はステレオ8重和 


音で音質もよく，祝氏が発表した MML を 
利用すれば質の高いミュージックプログラ 
ムを作ることができます。ただ，本体と F 
M 音源ボードだけで十分かというと，楽器 
としての使い勝手は，まだまだのようです。 

一方，現在のミュージックシーンはシン 
セサイザの爆発的普及で，デジタル楽器な 
しには語ることができません。特に日本の 
デジタル楽器は信賴性が高く，その技術は 
世界的にも注目されています。この春に米 
日したクラシック界の帝王カラヤン （80 歳） 


も，娘がデジタルシンセを買うというので 
都内の楽器店に立ち寄り，自ら深い関心を 
示していたということです。もはや，デジ 
タルとかシンセとかいう言葉を聞いただけ 
で顔をしかめる音楽フアンは少ないことで 
しよラ0 

ところで，皆さんはこれらのデジタル楽 
器と FM 音源などを持つパソコンの中身が 
ほとんど変わらないということを知ってい 
ますか？ 同じであれば， XI も音源モジュ 
ールとして市販のデジタル楽器と接続でき 
るはずですね。実際に本誌 （1987 年9月号） 
では XI にヤマハのミュージックキーボード 
をつなぐという記事もありましたが，なぜ， 
•般の楽器のようにケーブルをつなぐだけ 


というわけにいかないのでしよう。実は， 
市販のデジタル楽器が簡単に何台も接続し 
て演奏できるのは， MIDI という統一規格で 
結ばれているからで， XI シリーズも楽器と 
して扱うためにはその MIDI が必要となる 
わけです。 

この連載では， MIDI とは何かから始め 
て， FM 音源を持った XI シリーズを楽器と 
して活用するノウハウを解説していくこと 
にします。 


MIDI とは何か 

デジタル楽器に目覚ましい発展が見られ 
るのは，かの YMO (イエロー •マジック. 
オーケストラ）の功績が大きいでしよう。 
YMO については説明など不要でしようが， 
彼らはあの時代にたった3人（プラス数人 
のサポートメンバー）で大量の音源を操り， 
見事なオーケストレーシヨンをやってのけ 
たのです。 

蛰通オーケストラというからには数十人 
は必要でしよう。が， YMO はシーケンサ 
というコンピュータに音程や音符長といっ 
た演奏情報を記憶させ（当時ローランドの 
MC -8 というコンピュータは1台で8人分 
の演奏を記憶できた），そのコンピュータを 
連動してオーケストラを作ったのでした0 

彼らはまさにパイオニアでしたから，独 
自にシステムを組んでいました。そ.の後， 
多くの楽器メーカーがデジタル化に着手し 
た結果，興なるメーカーの機種の間でも連 
勋させる必要が出てきたのです。 

具体的には，同じ演奏データが異機®間 


表1 規格概要 


データ 

フォーマット 

ボーレート： 31 .25 Kbps 調歩同期式 

データ長： 8ビットスタート•ストップビット：各丨ビット 

電気的特性 

5 mA カレントループ 
受信側にフォトアイソレータをもつ 

コネクタ 

5 pin の DIN コネクタ 

ケーブル 

シールドされたツイスト線で最長 15 m 。 シールドはピン2に接 
続し，送信側のピン2のみグランドに落とす 


100 Oh ! X 1988.8. 




















で利用できること，すべての楽器のテンポ 
が同期していることなどが必要です。その 
ために国際標準規格として定められたのが 
MIDI (Musical Instrument Digital Inter 
face ) なのです（表 1)。 

MIDI というのはひと言でいえば，音楽 
情報の通信システムです。実際， MIDI で 
行っていることは RS -232 C によるシリ アル 
通信と同じことです（あとでたっぷりと説 
明しますが， RS -232 C •マウスボード CZ - 
8 BM 2 と今月再掲載される MIDI ボードはほ 
とんど同じ部品で構成されています)。ただ 
し MIDI の場合には，通信データ（メッセ 
ージという）まで規格化されているので， 
そのメッセージ内容もしっかり理解しなけ 
ればなりません。 

MIDI の世界は奥深くて，一度に全体を 
説明しようとするとパニックに陥ってしま 
います。そこで，とりあえず私たち ホビー 
ユーザーが MIDI を使ってどういうことが 
できるか考えてみましょう。 

図1は筆者が使っているシステムです。 
XI のほかにシーケンサという音楽専用のコ 
ンピュータがあり，演奏情報はこれに記憶 
させています。キーボードとリズムマシン 
はここでは音源として使っています。私の 
キーボードは8音まで独立して出せるうえ 
に （8 重和音も8種の異なる音色も可），シ 
ーケンサは16パートまで持てるので，これ 
だけでも多重演奏ができるのです。もちろ 
ん，キーボードとリズムマシンとは MIDI 
によって同期していますから，同時演奏が 
できるわけです。 

なお， マルチトラック レコーダ （ MTR ) 
は，ここでは単なるミキサーと考えておい 
てください。詳しくは連載の最後の回で説 

図1 MIDI システムの例 


明できると思います。 

私はこの システムで， キーボード，ギタ 
一， ベース， ドラ ムス， ボーカルの5人編 
成のバンド演奏をひとり で 実現しています 
(他人に聴かせられるような作品は皆無なの 
だが)。 

さて，ここでの XI の役割ですが，いまの 
ところ シーケンサのデータをフロツピーデ 
イス クに落とすフアイラーとしてしか使っ 
ていません0もちろん，単にプログラムを 
組んでいないだけで，やる気になればいろ 
いろなことが実現可能です。実用的なソフ 
トウエアは，この連載を読み終えた皆さん 
と私とで サボー トしていきましよう。 

ところで，私の場合はこれまでも音楽活 
動に力を入れてきたので，機材もいろいろ 
と揃っていますが，これから MIDI の世界 
に入る皆さんが手軽にできることはなんで 
しよう。まず最低限必要なのは， MIDI ボ 
ードです。これは自作以外に手はありませ 
ん（実は， CZ -8 BM 2 を MIDI 用に改造する 
計画もあるので，うまくいけば近いうちに 
発表しましよう）。あともうひとつ， MIDI 楽 
器が必要です。 

MIDI 入門記事の多くは， YAMAHA の T 
X 81 Z や ローラン ドの MT -32 といった音源 
モジュールを 勧めていますが，私はあまり 
賛成できません。音源なら FM 音源ボード 
で十分だからです。むしろ，楽器としての 
鍵盤をつないで初めて MIDI の意味がある 
と思うのです。ですから，これから MIDI 
楽器を揃えようとするなら，自分は キー ボ 
ードなんて弾けないよという人も，まずは 
鍵盤付きの楽器を購入することをお勧めし 
ます。 

また，最近は MIDI 付きのギターやブラ 

図2 


スも出揃っているようですが，それらの多 
くは音源に制約があるので使い勝手が悪い 
かもしれません。それから，もうひとつ注 
意すべきことがあります0それは，マルチ 
モードの使えるキーボードでなければ意味 
がないということです。なるベ〈最近の機 
種で8音色同時に出せるものを選んでくだ 
さい。異なる音色での多重演奏もまた MIDI 
の醍醐味なのですから。 

入門 システム としては図2のようになり 
ます。これだけでも，できることは無限に 
近いほどあります。たとえば， 

1) 外部キーボードで XI の FM 音源を鳴ら 
す。 

2) XI のメモリに演奏データを入れて自動 
演奏をさせる。 

3) 外部キーボードの音色を XI 上でエディ 
ットする。 

この連載でも，上記の3点を具体的な目 
^1にぉくことにします。 

ではまず，最も基本となるハードウェア 
面の解説に入りましよう。 


通信としての MIDI 

先ほど， MIDI は RS -232 C と同じだ!:書 
きましたが，要するにどちらも Z 80 A SIO 
という石を使ったシリアル通信を行ってい 
るということなのです。だから，『試験に出 
る XI 』の第5，6，7章をじっくりとながめ 
ると大部分のことがわかるはずです。とは 
いうものの，私はとても親切な人間なので， 
最初から説明してしまいましよう。 

そもそもシリアル通信は，1本の通信線 
上を基準時間（ボーレート）ごとに1ビッ 
卜ずつ H または L の信号を受け渡します。 

お勧め入門システム 


KORG 

DS -8 


マイク' 



PORTA TWO 


I 台のキーポード 

YAMAHA M 2 
Roland D -10 
KORG 707 
CASIO HT -700 
etc . 
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Z 80 のように 8 ビットデータの場合には， 
最下位ビットから最上位ビットが一定時間 
おきに送られますが，8ビットデータの始 
めと終わりが検出されなければなりません。 
そこで，スタートビット，ストップビット 
というのを付けることになります（これを 
調歩同期式という)。 

もう一度，表1を見て〈ださい。 MIDI で 
はボーレートが31250ビット/秒(32//秒間 
隔），スタート•ストップ各1ビットず つを 
足した計10ビットが1バイトデータの通信 
に必要で320#秒かかります。 

このシリアル通信を実現するハードウヱ 
アは， Z 80 A SIO を使えばたいへん簡単に 
すみます。この Z 80 A SIO というのは，も 
ともと Z 80 CPU につなぐことを目的に設計 
されているので（これをペリフェラルとい 
う）， CPU の端子（すなわち I / O ポートの 
端子）と SIO の端子をほぼダイレクトに結 
線するだけでよいのです。 

図6に3月号で発表した MIDI ボードの 
回路図を再掲戟します。初心者のために回 
路のそれぞれの部分の役割を説明しておき 
図3 シリアル通信データ 


ましょラ 0 

まず，アドレスデコーダ部 0 LS 136 とい 
う石は XOR というゲート（回路素子）が8 
個入ったものです。この XOR を使って AB 
2〜 AB 9 の値と DIPSW の値がすべて等し 
いときだけ LS 138 の入力 A と B が“ H ” にな 
るようにしています。 

LS 138 は少しもったいない使い方をして 
いるのですが，入力 A ， B ， G 1 が‘‘ H ，，， 入 
力 C ， G 2 A ， G 2 B が“ L ” のときだけ出力 Y 3 
力 ？ “ L ” になるようになっています。これは， 
SIO の CE に入っており， “ L ” のときだけ SI 
0が動作します。これによって， I / O アド 
レスは図4のように設定できます。アドレ 
スの第1ビット，第0ビットは SIO のプロ 
グラミングに関係するものです。 

クロック分周部は，31250ビット/秒のボ 
ーレートを作るところです。 LS 93 で， Z 80 
A の 4 MHz のクロックを1/8にして SIO の T 
xCA ， RxCA に入力し， SIO 内部でさらに 
1/16にしています。本当はこの分周には Z 
80 A CTC を使った回路のほうがよいので 
す力 5 ，それだと配線が多くなり，プロダラ 
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図4 I / O アドレス設定 
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DIP - SW 設定値 

通常は DIP - SW をすベて0にしておくので， 


アドレス 


0000 

chA data 

0001 

chB command 

0010 

chB data 

0011 

chB command 


表2 書き込みレジスタ 



役目 

WR 0 

次に書き込むレジスタを指定 

WR 1 

割り込みを行うかどうかを指定 

WR 2 

割り込みべクトルの指定 

WR 3 

受信データ形式の指定 

WR 4 

ストップビット，パリティビットおよびクロックの指定 

WR 5 

送信データ形式の指定 

WR 6 

WR 7 

調歩同期式では使わない 


ミングも面倒になってしまいます。そこで 
LS 93 を使うことになったのです。 

次は入出力部に ついて なのですが，特に 
MIDI IN にフオトアイソレータ （ PC 900相 
当品：フォトカブラともいう）を使うこと 
が MIDI 規格に定められて います。 このフ 
オトアイソレータは，電気信号の “ H ” と 
“ L ” をいったん光の ON / OFF に換え，再び 
電気信号に戻すという一見面倒なことをし 
ているのですが，こうすることによって M 
IDI IN に接続した外部楽器と電気的に絶縁 
され，デジタルノイズが混入しないように 
なっているのです。 

また MIDI THRU というのは ， MIDI IN 
の入力信号をそのまま外部に出しています。 
これを使えば次々と楽器を接続できます力す， 
3台以上つなぐと MIDI 信号の読み取りエ 
ラーが出る恐れもあります。楽器の数が増 
えてきたら，パラボックスという信号分配 
器を使う必要が出てきますが，これも自作 
が簡単なので，連敝第3回目に製作記事を 
出そうと考えています。 


製作 

デジタル回路は， 1 C のピンをつなぐのが 
基本作業です。部品の配置が多少まず〈て 
もとにかく番号を間違えずにつなぎさえす 
れば動くはずです。間違いをなくすために， 
1本つなぐたびに回路図の線をマーカーで 
消していくとよいでしょう。なお，表3も 
3月号からの再掲載です。 

製作上の細かい注意を列挙しておくと， 

• Z 80 A SIO は，バージョン0を使用する 
こと。ほかに SIO /1， SIO /2 がありますが， 
これらはピン配置が異なります。必ず買う 
ときに確認してください。また， SIO には 
必ずソケットを使ってください。 

• ボードは必ず XI 用の MCC -153 を使って 
〈ださい。これ以外のものでは I / O ポート 
にうま〈入りません。 

• ピン配置図は 1 C を上から見たときのもの 
です。切り欠きを上にして左上端が1番で， 
反時計回りに番号が増えます。 

•パス コンというのは，ボードの Vcc ライ 
ンと GND ラインの間をつなぎます。一見， 
ショートするようですが，コンデンサは直 
流 v |£ 流を流さないので大丈夫です。パスコ 
ンの役目は， Vcc ラインに乗ったノイズを 
GND に逃がしてやることです。使わないピ 
ンには何もつながずにしてお〈こと。 

このほ力％製作上の注意は限りなくある 
ので説明しきれません。もしも実際に作っ 
てみて勋かなければ ， Oh ! X 「 MIDI が動か 


102 Oh ! X 1988.8. 















































ないよ」係まで質問してください。ある程 
度たまったら誌上でお答えしましよう。 

さて，配線が一応終了したら最初にすベ 
きことは，まあ，お茶でも飲んで休憩する 
ことでしよう。最初は必ずどこか配線ミス 
をしているものですが，これを調べるのは 
頭を冷やしたあとのほうが効率がよいので 
す。 

十分休憩して，配線チェックも 0 K とな 
れば，まず SIO を差さないでボードを XI 本 
体に差し込み，電源を入れてみましよう。 
無事 IPL が起動することを確認したら，必 
ず電源を落としてからボードを抜き，今度 
は SIO を差して改めてボードを装着し電源 
を入れてみます。私が作ったときは“ Please 
turn on the Power b\V slowly again !” 
というメッセージが表示されてしまいまし 
た。やはりミスがあったのです。誤配線が 
なければ必ず動作しますから，何度も根気 
よくチェックしてください。 

SIO を差して， IPL が起動したら，この 
ボードの MIDI IN と MIDI OUT をケープ 

ルでつないでループバックテストを行いま 
す。これは，その名のとおり自分で送信し 
たデータを自分で受信してチェックするテ 
ストです。プログラムはリスト1のとおり 
です。 

このリスト1のプログラムは， SIO を使 
ったプロダラミングの最も基本的な部分で 
すので，少し詳しく説明してみましよう。 


つなぎ違いあたりがいちばん怪しいところ 
です。あるいはたまにあることですが，ア 
ドレスデコーダ部の誤配線，特に DIP-SW 
がすべて OFF になっていないかもしれませ 
ん。もし， DIP - SW の設定を変えるならば， 
リスト1の60行で ADR の値を変えてくださ 
い。とにかく今月の目標は，このループバ 
ックテストにパスするところまでです。 


ソフトウェアの実際 

MIDI のソフトウェアを組むには，ハー 
ドウェアの知識だけでなく MIDI によって 
送受信されるメッセージのフォーマットに 
ついて理解しなければなりません。いうな 
れば MIDI 言語というものです。これにつ 
いては米月詳しく解説しますので，今月は 
大まかなところだけ述べておきましよう。 

MIDI ボードでは，1バイト単位でデータ 
を送受信しますが ， MIDI メッセージは2 
バイトまたは3バイトをひとまとまりとし 
ています。 


1 st 

2 nd 

3 rd 

ステータス 

データ 

データ 


1番13のバイトをステータスバイトとい 
い，オペレーションコマンドを指定します0 
たとえば，発音（ノート•オン）なら 90 h ， 
消音（ノート•オフ）なら 80 h となってい 
ます。 


で 



哪厕漏 


2番目以降はコマンドの中身を指示する 
データバイトです。ノート•オン，ノー ト 
•オフなら2番目が音程，3番目が音の強 
さを表しています。 

ステータスバイトは，最上位ビットが1 
(80 h 以上)，データバイトは 0(7 Fh )， と決 
まっているので，ここで区別します。 

このノー ト•オンとノー ト•オフた"けで 
も，いじくってみると結構いろいろと遊べ 
ることと思います。たとえば， FM 音源用 
MML の発音，消音部分 （KEY ON , KEY 
OFF ルーチン）を MIDI メッセージのノー 
卜•オン，ノート•オフに差し換えただけ 
で，これまで XI の FM 音源を鳴らしていた 
MML データを使って，外部の MIDI 楽器を 


Z 80 A SIO のプログラミング 

Z 80 A SIO はシリアル通信用の汎川 LSI 
なので’， MIDI 用に利用するにはそれなりの 
初期設定が必要です。その内容は， SIO 内 
部のレジスタに書き込んでやらなければな 
りません0書き込みレジスタは WR 0 -W 
R 7 の8個あります（表2 )。今 ㈣ は， WR 0， 

1，3，4，5のみ理解すれば OK です。 

実際にレジスタに書き込むには， SIO の 

コントロールコマンドの I / O アドレスにデ 

ータを出力します。 

リスト1は，まず最初にこれらの初期設 
定を行っています。初期設定の内容は SIO 
INIT ルーチンの中で注釈をつけてありま 
す。そしてこのプログラムは，1文字出力 
したいキャラクタを ASCII コードで送信し， 
自分自身で受信して合っているかどうかを 
チェックしているわけです。 

ケーブルをつなぐときと，つながないと 
きとで比較してみて〈ださい。また，ケー 
ブルをつないでも合わない場合は，フォト 
アイソレータまわりの誤配線かケーブルの 


キーボードの選び方 

街の楽器店には，機能も価格も実に多くの種 
類のキーボードが並んでいます。とはいえ，ど 
のキーボードでも，使う目的にそった特徴がは 
っきりしているものです。ここでは，コンビュ 
—タミュージックの入門に適した機種の選び方 
を紹介します。まず最低限必要な条件は， 

1 ) MIDI IN / OUT があること。 

2) 8音色同時発音が可能なこと。 

最低限といっても，この2つを満たすキーボ 

—ドはかなり限定されてきます。これをさらに， 
大きく分けると2つのタイプがあります。 

A ) 音色重視のシンセサイザタイプ 

B ) 手軽なポップキーボードタイプ 

A は，音源のパラメータが豊富で，凝った音 
づくりができます。弦楽器，管楽器の音は厚み 
や深みのある多彩な音が楽しめますが，唯一打 
楽器が苦手です。 FM 音源もこのタイプに属しま 
す。音色にうるさい人にはお勧めです。 

巳は，音づくりはあまり凝ったことができま 
せんが，そのかわり PCM 音源という打楽器音を 
あわせて載せています。また， この タイプには 
自動伴奏機能がついているものも多いので，こ 
れ I 台でなんでもやってしまおうという人には 
いいでしよう。 

どちらのタイプも価格は10万円前後が手頃な 
ところです。自分の好みのタイプを見極めて選 


ひと言アドバイス 

びましよう。では， A , B 両タイプの代表機種 
を紹介しておきます。 


A ) YAMAHA 

V 2 

118,000円 

KORG 

707 

99,800円 

Roland 

D -10 

128,000円 

B ) YAMAHA 

DSR - jOy-J 

1 18,000円 

CASIO 

HT - 3000 

89,000円 


あとは実際に楽器店に行ってじかに触ってみ 
るのがいちばん。店員さんをつかまえて質問す 
れば必ず答えてくれるはずです。 

木 ネネ 

この原稿の締め切り直前，とびっきりの新製 
品情報が入ってきました。 YAMAHA から EOS (En 
tertainment Operating System ) というシンセサ 
イザが新しく発売となったのです。 

この EOS は，前述の V 2 と音源関係は変わらな 
いのですが，本体中にさらにデジタルシーケン 
スレコーダ （8 トラック，約10,000音記憶）を 
搭載したモデル YS 200 が丨29,000円となっていま 
す。デジタルレコーダは XI の MIDI システムで実 
現可能ですから，自分でブログラムしてみよう 
という人は下位機種の YSI 00 ( YS 200 からレコー 
ダだけ除いたもの）が110,000円と，これも機 
能から見て格安といえます。特に A グループの 
なかに加えたとすると，そのなかでは最もお勧 
めといってよいでしよう。 
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スト 1 ループバックテスト 


20~70円 


XI 

X4 

XI 320円 

X I or 2 500円 

x | or 2 500円 

XI 250円 

X3 or 6 100円 

x I 3,000— 4,000円 
部品合計約8,500円 


XI し000円 

XI 150~200円 

x | 150 ~200円 


表3部品表 


Z 80 A - SIO /0 
40 P DIP ソケット 
フォトカブラ 
PC 900 
TTL 
74 LS 04 
LS 07 
LS 93 
LSI 36 
LSI 38 
ダイオード 
ISI 588 

抵抗 1/8 or I /4 W 
2200 
2700 
IKH 
3.3 Kfl 
lOKfl 

コンデンサ 

(電解 10 V 以上） 
O . ll / F (バスコン) 

デイップスイッチ 

6 P 

コネクタ 

FAP -26-07.02 B (フラッ 
トケーブル用） 
FAS -26- l 7( 圧着） 

26芯フラットケーフル 
(30-50 cm ) 

DIN 5 P 

基板 

サンハヤト MCC - I 53 


演•奏することがてきるようにもなります。 
実例を出そうと思ったのです力 5 ',今回は特 
集ということで MIDI 用の本格的なシーヶ 
ンサがこのあとの金子氏の記事で発表され 
ることになっているので，これはそちらの 
ほうに譲ることにしましよう。 


来月に向けて 

今月はとにかく，ひとりでも多くの人に 
MIDI ボードを自作していただくことが徂 
いです。応用が非常に広い割には，比較的 
簡単にしかも安く自作できるボードなので， 
この機会にぜひともチヤレンジしてみてく 
ださい。 

米月は，もう少し実用的なソフトウェア 
を作るためのノウハウを紹介するつもりで 
す。興体的には，外部キーボードによる M 
ML 用フロントプロセッサを考えています。 
また，サポートしていきたいソフトウェア 
の希望があればどんどんお寄せください。 
そして，私たちの手で MIDI の世界を S-OS 
に匹敵する•大勢力にしようではないです 
か0 
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SAVE "SlOTESTl.Bas 


Z80A SIO LOOP BACK TEST 

63.6.12. K.MISAWA 


10 
20 
30 
40 
50 

60 ADR=0 

70 SIOD=ADR : SIOC=ADR+l 
80 GOSUB "SIOINIT" 

90 1 
100 CLS 

110 S$=INKEY$(1) : S=ASC(S$) 

120 IF SO&H1B THEN GOSUB "CHECK" : GOTO 110 
130 GOSUB "SIORESET" 

140 END 
150 * 

160 LABEL "CHECK" 

170 PRINT#0 S $+""； 

180 » 

190 OUT SIOD,S 
200 T=INP(SIOD) 

210 * 

220 T$=CHR$(T) : PRINT#© T $； 

230 IF T=S THEN PRINT" —— OK!" ELSE PRINT" 
240 RETURN 
250 1 

260 LABEL "SIOINIT" 

270 FOR 1=1 TO 9 

280 READ D : OUT SIOC,D 

290 NEXT 

* clear 
»WR1 

1 interrupt disable 
*WR 3 

'receive 8bit data 
1 WR4 

* stop bit=lbit,clock=1/16 
'WR5 

'send 8bit data 


拿本本 MISS! 11 


300 DATA &H18 
310 DATA 1 
320 DATA 0 
330 DATA 3 
340 DATA &HC1 
350 DATA 4 
360 DATA &H44 
370 DATA 5 
380 DATA &H68 
390 RETURN 
400 » 

410 LABEL "SIORESET" 
420 OUT SIOC.&H18 
430 RETURN 


図 5 部品配置図 





I I I 2 I I 5 I 2 8 6 
xxxxx X xxxxx 
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図 6 回路図 


図7 


XI MIDI IF ver. 10 


アドレスデコード部 



ピン配置図 


Vcc 

[ 6 1 」 5 ] [ 4 1 







LilLifliRiJllf 

IA IB IY 2A 2B 2Y GND 



LSI 38 

DATA OUTPUTS 



Z 80 A - SIO /0 


Di- 
Da - 
Ds- 
Dy - 
INT- 
IEI- 
IEO- 

mT- 

Vdd - 


W/RDYA - 
SYNCA ， 
RxDA - 
RxCA- 
TxCA - 
JxDA- 
DTRA- 
RTSA- 
CTSA- 
DCDA - 
< t >~ 


S 


►Do 

- D 2 

•Do 

-IORQ 

~CE 

-B/A 

- C/D 

~RD 

-GND 


k SYNCB 
-RxDB 
- RxTxCB 
一 TxDB 
-DTRB 
—STSB 
-CTSB 
~DCDB 
- RESET 
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特集 2 MIDI サウンドプログラミング 

MIDRit 応シーケンサ 二 

MIDI を製作したら，次はそれを生かすソフトウェアが必要でしよ5。 
というわけで，し〗よいよ XI で MIDI 楽器の演奏をコントロールする 
強力なシーケンサを発表できることになりました。もちろん, Oh!X 
で標準となった祝版 MMU こ準拠したものとなっています。 


夏ですね。どこかに遊びに行く計画はあ 
りますか？なになに，図書館に行くんで 
すか。ひょっとしてあなた受験生？おお， 
同志よ，勝負はこれからですよ。がんばり 
ましょうね。いやいや， V 2 するといぢめら 
れますからね。 

というわけで皆さん、今年の夏は音楽で 
すよ。それも気分を変えて自分で弾いてみ 
るなんてのはどうでしょう。指が動かなく 
ったって大丈夫。ちゃんとパソコンが面倒 
見てくれますよ。えっ， FM 音源なら使って 
るって？ いえいえ，今回はもっといろい 
ろな楽器を使ってみようというわけなんで 
すょ。 

そりゃ， FM 音源の8重和音は強力ですし， 
PSG を足せば11重和音。それも，ゲームミ 
ュージッタなら，アーケード版そっくりな 
音を作ることもできるでしょう。しかし， 
世の中には違うジャンルの曲のほうが圧倒 
的に多く存在するのです。そして，•ピアノ 
の音色が演奏者によって表情が違うのはい 
うまでもなく，ヴァイオリンの優しい息づ 
かいや，そのぬくもりなど，それら数々の 
名音を OPM で忠実に再現するのは大変です。 

でも，あきらめてはいけません。今のあ 
なたには MIDI という強い味方がいるのです 
から。さらに，自分で言うのもなんですが， 
MIDI 対応の MML としては史上最強といわ 
れる今回のシーケンサがあれば，鬼に金棒， 
ャマトに波動砲，犬も歩けば猫も歩く，と 
いうくらいの自信作なのです。 

この MIDI シーケンサでは，最大16パート 
の演奏データを MML で ISt することができ 
ます。すべてのパートを MIDI 楽器用に割り 
当てることができるだけでなく， OPM や P 
SG なども併用することができるのです。 

MML の書式は，基本的には祝版に準拠し 
たものとなっていますが，さまざまな微妙 
な表現を可能にするコマンドも追加してい 
ます。 

というわけで，さっそくリスト3のダン 
プリストを入力してほしいのですが，その 
前にひとつだけ。このプログラムは BASIC 
を改造するかたちをとっていますが，祝版 
MML と同等のフリーエリアを確保するため 


にラインルーチンをカットしています〇安 
全のために， 2 A 60 h を 1 B に書き換えておい 
てください。 

それでは，各コマンドの説明をしながら 
概要を見ていきましょう。 

M チャンネル指定 

MIDI のチャンネルを指定するコマンドで 
す。 MIDI には1から16までのチャンネルが 
あり，それぞれ独立したパートの演奏情報 
を送ることができます。 

この MIDI シーケンサでは MML の各パー 
卜ごとに1から16までの任意のチャンネル 
番号•を指定できるようになっています。も 
ちろんバラバラのチヤンネルを指定しても 
よいのですが，同じチヤンネルをいくつ指 
定してもかまいません。同じ音色でポリフ 
オニックな使い方をしたい場合や，数台の 
楽器を使うときに威力を発揮します。これ 
は，使用する楽器によって使い方が異なり 
ますので，使用する楽器のマニュアルをよ 
く読んでください。 

この M コマンドは， XI シリーズの FM 音 
源や PSG に対しては無効となります。なお， 
TEMPOO を実行しても初期化は行いません 
ので注意してください。 

I 音色指定 

そして，音色を指定できなければ話にな 
りません。このコマンドは祝版 MML でもお 
馴染みですが，機能の拡張がなされていま 
す。 

MIDI 楽器のプログラムチヱンジ(音色番 
号）は〇〜127となっていますが，この MIDI 
シーケンサでは10を PSG ， II 〜40を FM 音源 
( OPM ) に割り当てています。これは，祝版 
MML と音色データを共有することを第一に 
考えているからで， MIDI 楽器の音色を選択 
する場合には10〇番ずらした1100〜227を指 
定するようになっています。 

さて，この MIDI シーケンサでは，最大16 
音(パート）まであるわけですが， OPM を使 
う場合には1音目から8音目までのパートで 


音色( II 〜 40) を指定してください。また， 
PSG を選択する場合には9音目から11音目 
までのパートで指定 (10) します。もちろん， 
MIDI 楽器の場合には任意のパートを使って 
音色指定(1100〜 227) ができます。なお，起 
動時には1音目から16音目まですベて MIDI 
が選択されています〇 TEMPO 0を実行して 
も PSG , OPM ， MIDI の選択は保存されま 
す。 

ところで，皆さんは FM 音源や PSG のほか 
にどんな音源を知っていますか？ LA 音 
源， CD 音源， VM 音源， AI 音源， iPD 音源 
など，いっぱいあるんですよね。ことピア 
ノの音色になると FM 音源がかわいそうなく 
らいよいものもあるんです。どうしてもシ 
ョパンの「別れの曲」を奏でたかった私はお 
財布の中身と相談して KAWAI の Kim (VM 
音源）を買いました。全般的に比べるとや 
はりダントツは AI 音源でしょう。そういえ 
ば，西川善司さんは KORG の M 1( AI 音源） 

を買ったそうです。今度遊びに行きますね。 

P パンポット指定 

これは，パンポットを動かす（音を出す 
位置を変える）コマンドですが， OPM に対 
しては従来どおり， P 1 で左， P 2 で右， P 3 
で両方となります。 MIDI では P 8 が中央に 
なり，左右それぞれ7段階に分かれ P 1 が最 
左翼， P 15が最右翼となります。 

しかし，何段階サポートされているかは 
楽器によって異なりますし，実は MIDI 規格 
にはパンポットなんてありません。このプ 
ログラムではコントロールチェンジのあと 
に10を送ってパンポットとしています。こ 
の値が異なる可能性もありますので，自分 
の楽器のマニュアルを調べてから使用して 
ください。私の Kim ではパンポットは3段 
階しかありませんので，デフオルトとして 
Roland MT -32 など用のデータをセットして 
おきました。 

なお， OPM は I コマンドによってリセッ 
卜されるので注意が必要です （ MIDI でも楽 
器によってはリセットされるかもしれませ 
ん)。また， PSG にはパンポット機能はあり 
ません。念のため。 

相対ボリューム 

これは新しく追加されたコマンドで，相 
対ボリュームと呼びます。これにより，卜 

レモロ，アクセント，フェードイン，フェ 

ードアウトなどの技が簡単に使えるように 
なりかなり有効だと思います。16音別々 
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にデフォルト値をもつことができるのも便 
利ですし，それゆえに値を省略することも 
可能です。いままで V コマンドを多用しな 
ければできなかった微妙な表現もすっきり 
としたプログラムでできるでしよう。 

使用例をあげると， 

PLAY “ V 120 一3—” 

で，この場合にはボリュームは123まで上が 
ったあと117まで下がります。 

また， “ V 124— 4”や“ V 5— 6”などのよう 
に，最大値や最小値を超える場合は無効と 
なり，それぞれ V 124, V 5 のままになりま 
す。 

なお， MML 起動時のデフォルト値は0で 
す。また， TEMPOO を実行してもデフォル 
卜値は初期化されません。 

八 コント ロール チェンジ 

この コマンドは MIDI 規格の コント ロール 
チェンジを送るためにあります。具体的に 
はアフタータッチやポルタメント，ソステ 
ヌート，才ールノートオフ，オム ニモ ード， 
etc . ……と聞き覚えのあるものから，よくわか 
らないものまで，その名のとおりに コント 
ロールで きます。 

使い方はいたって簡単です。コントロー 
ルチェンジは2バイトを送るのです力す，た 
とえば， PLAY “ a 123,0” とか PLAY “八7, 
120” などです。 

¥ ピッチベンダー 

これは，ピッチベンダーを動かすために 
あります。 MIDI 規格では14ビット分確保さ 
れているのです 力す， YAMAHA の ショル キー 
では7ビット， DX -7 クラスで9ビットしか 
使われていないのが現状です。このプログ 
ラムでは8ビットを操作できます。基準値 
は128です。 

Z 直接データ送信 


これさえあればなんでもできるはずのコ 
マンドです。つまり，ただ演奏データを夕 
レ流すコマンドなのです力す，なんでも流せ 
るというのはやはり無敵です（某 F 社の MIDI 
対応 MML はこのコマンドしかない。う〜ん 
見事なまでの手抜きぢや）。でも，良心的な 
私はさらに機能を拡張して， Z コマンドを 
2通りの使い方ができるようにしました。 

それは，完全タレ流しの Z () と，エク 
スクルーシブの Z [] です。両者の違いは 
Z [] は最初に $ F 0 を送り，最後に$ F 7 


|リスト1 サンプル曲 「Please Please Me 」 
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Please Please Me 


10 
20 
30 
40 
50 

60 CLS 0 : TEMPO 0 
70 


by S.Kaneko 
in 26th Jun. 88 ' 


Tone List 

i 130 = B-Dru,Symbal 
i131=Rim,Tom 
i122 = Hamonica 


" P-B 


Stop 

Play 


80 
90 
100 
110 
120 
130 » 

140 "P-A" 

150 * 

160 PLAY ,, Z(252)" 

170 1 

180 POKE &HAFFF,1 
190 END 
200 » 

210 LABEL "P-A" 

220 a$=" mlil30vl27L4" 

230 c$=" ： ra3il31vl27L8 M 
240 e$=” ： m5il22Vl18L4 
250 g$=” ： ro5il22v85L4" 

260 i$=” ： m5il22vll8L4" 

270 ”！" 

280 POKE &HAFFF.0 
290 1 

300 PLAY ，， Z<250>" 

310 » 

320 a$ =，，tl 3802 r”+STRING$ ( 8 , "cr" 
330 b$=" 


il32 = S-Dru,C-hh 
i125 = Bass 
il24 = B-Guiter 


: "P-B" : m P-B2" :， .P-B” ：， .P-B3” 


'1,46" 


For Timing Clock User ! 


: b$= ": ro2il32vl22L8" 
:d$=":m4il25vll0L8" 
: f$= ": ra5il22vl03L4" 
: h$ = ” ： n»6il24vl00L4” 


Play Pause 

Start For Timing Clock User 


340 c$= M 
350 d$=" 
6 A 1 , 0 ~ — 

360 e$=" 
370 h$=" 
380 f$=" 
390 ，• ！ I ， 


'B-Dru 

： o5 r4 ,, +STRING$(30 > ,, c" ) ’HiHat 

:o4 r4m2 u +STRING$ ( 3 , "r4ccr4cr" ) + '*r4ccr 4016016 c" ’S-Dru 
:o3 b4>e4ee eeee eeee ee ,30_18<bl6&+_>cl6&+_c+16&+_dl 
~ eeee eeee eeee ee ^ 1,30<bl6&+_>cl6&+_c+16&+_dl6 < ' 1,0 

o5 r4"+STRING$(2, ,, r4ed+c+<b.>c+8<bg+> , ') 
o4 b e>ed+c+ <b.>c+8<bg+ r>ed+c+<b.>c+8<bg+" 

" : g$=":" :i$= M : M 

f 0-4 


400 LABEL "P-B” 

410 a$=" o2 crcr crcr” 

420 b$=” ： o5”+STRING$(16,"c"> 

430 c$=" : o4 r4ccr4cr r4ccr4cr" 

440 d$=":o4"+STRING$(16,"e u ) 

450 e$=" : 〇 5 ^1,20 red+c+<b>c+<bg+" 

460 f$ = ’’ ： o5 reee _2eeee" 

470 g$=":” : h$=":" :i$=": u 

480 "»5,6 

490 a$ = u o2 crcr c’’ 

500 b$=" : 〇 5 cccc cccc c" 

510 c$=" : 〇 4 r4ccr4cr r2 cl6c1 6016016 cl6cl6c” 
520 d$=” ： o4 aaaa eeee eg+g+a abbb" 

530 e$=":o5 c+4.d+16c+16<b2" 

540 f$=” ： o5 _e2-e2 M 

550 "!” »7,8 

560 a$=" o2 crcr crcr" 

570 b$=":o5"+STRING$(16,"c") 

580 c$=" : 〇 4 r4ccr4cr r4ccr4cr” 

590 d$=":o4”+STRING$(16,”e”} 

600 e$=" : 〇 5 "1,20 red+c+<b>c+<bg+" 

610 f$=” ： o5 ~reee _eeee" 

620 ••!'• »9,10 

630 a$=" o2 crc" 

640 b$ = ’’ ： o5 cccc cc" 

650 c$=" : o4 r4ccr4cl6c16c16c16 c4" 

660 d$=" : o4 aaaa eeee er~2ee>ee<bb_" 

670 e$ = ，，： o5 c+4.d+16c+16<b2 r2r4.b8 f, 

680 f$=” ： o5 _e2~e2 M 

690 h$=" ： o4 _5rl re8e8>e8e8<b8b8" 

700 ”！" ’11,12 

710 a$=" o2 cr8c8cr" : a$=a$+a$ 

720 b$=":o5 cr4c cccc cr4c cccc” 

730 c$=" : 〇 4 rcl6cl6cr4.cc rcl6c16cr4.cc" 

740 d$=" ： o4 a4rer2 f+4rc+4.fg" 

7 50 e$ = ’’ ： o5 c+r2r8c8 c + r2r8c8" 

760 f$=" ： o5 re8e.r rf+8f+." 

7 70 g$ = " : o4 ra8a.r r>c + 8c+.r" 

780 h$ = ’’ ： o5 c+2 . r8c8c+2 . r8c8" 

790 ”！” *13,14 

800 d$=":04 g+4rc+4.g+c+ a4re4.a4" 

810 e$=":o5 c+r2r8d+8 er2<b" 

820 f$ = " : o5 rg+8g+.r ra8a.a" 

830 g$=" : o5 rc+8c+.r rc+8c+.<b" 

840 h$ = ，，： o5 c+2.r8c8 c+2.' u 

850 .，！" *15,16 

860 a$=" o2 crcr crc" 


870 b $=" 
880 c$= ” 
890 d$= ” 


o5"+STRING$(16,”c") 
o4 r4ccr4cr r4ccr4c" 
o4 eeee eeee aaaa bbbb” 
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900 e$ = ":o5 t)2g + f+8&+g + 8 e.e8d+d+” 
910 f$=”：o5 g+2g+g+ er8e8d+d+" 

920 g$ = ，•： o4 b2bb >c+r8c + 8<bb" 

930 h$= ":” 

940 •，！•， 1 17,18 

950 RETURN 
960 LABEL 

970 b$ = ，，： o5"+STRING$(14, "c” 

980 c$ = ’’：o4 r4ccr4cr r4ccr4c 16c 16c" 
990 d$ = ": 〇4 eeeg+ bbg + e aaaa bb<bb •’ 


e$=" : 〇 4 b2” 
f$= M :o4 b2” 
g$=” ： o4 g+2" 

h$=" : o5 red+c+ く b.>c+8 く bg+” 
i$ = *' ： 〇 5 1,46ed+c+ <b. >c + 8<bg + " 

*19,20 
RETURN 
LABEL "P-B2" 
a$=" o2 crcrc" 
b $=” ： o5"+STRING$(9,"c") 

c$=" : o4 r4ccr4cr rcl 60160 _7m3>el6el6eel6el6ee~ 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
om 

1110 d$=":o4 eeeg+ bbg+b e" 
1120 e$=":o4 b2" 

1130 f$= H :o4 b2” 

1140 g$ = ”：o4 g + 2*' 

1150 h$=":o5 red+c+ く b8” 
1160 i$ = ":o5 ド 1,46ed+c+ く b" 
1170 ••!" ’21,22 

1180 a$=" o2 cccc cccc" 


* S-Dru 


o5”+STRING$(16,"c") 

o4 m 204040404 c4c4c4c4" 1 S-Dru 

o4 aaf+4e4c+4 b4a4g + 4f+4" 

〇5 L8 ^1,20c+<b+>c+<b+>c+<b+>c+c+ d+c+d+c+d+c+<bb H 
o5 _el_f+l~" 
o4 _al_bl~" 

•， ：；1$ =":" 


m2r4cr4ccr" ' S-Dru 


Tom 


1190 b$=” 

1200 c$= ” 

1210 d$=" 

1220 e$=" 

1230 f$= H 
1240 g$=" 

1250 h$=" 

1260 ••!，• *23,24 

1270 a$=" o2 crcr crc" 

1280 b$=" : 〇 5 rl cccc cccc" 

1290 c$=" : 〇 4 cl6ccl6cc _m3>e16eel6ee 
1300 d$=":o4 e4eg+b4g+b e4eg+b4g+e" 

1310 e$=":o5 c+4.d+16c+16<b2" 

1320 f$=":o5 _el"re8 .く bl6>c+<b” 

1330 g$=" ： o4 _bl~ rb8.g+16ag+" 

1340 ，い , ，， 25,26 

1350 a$=" o2 cccc cccc" 

1360 b$ = ": o5"+STRING$(16,"c” > 

1370 c$=" : 〇 4 crcr cccr crcr cccr” 

1380 d$ = ":o4 a4f+4e4c+4 b4bag + 4f+4" 

1390 e$=":o5 c+<b+>c+<b+>c+<b+>c+c+ d+c+d+c+d+c+4<b" 

1400 f$=":o5 el~f+2.r8<b8 u 
1410 g$=":o4 al~b2.r8b8" 

1420 *27,28 

1430 d$=" ： o4 e4eg+b4g+e a4aab4bb" 

1440 e$=" : 〇 5 b2.f+g+ e4.ed+d+c+<b" 

1450 f$=":o5 g+2._g+ e.e8f+8f+8f+8e8" 

1460 g$=" : 〇 4 b2._b a.a8b8b8b8g+8" 

1470 ，，！•• *29,30 

1480 d$ = " : o4 e4eg+b4g+e a4a4b4 <b4" 

1490 e$=":o4 b2L4 u 
1500 f$= • ，： o5 e2" 

1510 g$=" ： o4 g+2" 

1520 h$=":o5 red+c+ <b.>c+8<bg+" 

1530 i$=":o5 r A 1,46ed+c+<b.>c+8<bg+" 

1540 ”！" ’31,32 

1550 RETURN 
1560 LABEL"P_B3” 

1570 d$=" : 〇 4 eeee eeee aaaa bbbb" 

1580 e$ = ” ： o4 b2r>f+8g + 8 e.e8d+d+"2 , ' 

1590 f$ = ，，： o5 b2g+f+8g + 8 e.e8d+d + 一 1 ，， 

1600 g$=" : 〇 4 g+2rb >c + .c+8<bb~2" 

1610 h$ = •，： o5 red+c+ く b. >c+8<bg+” 

1620 i$=":o5 red+c+ <b.>c+8<bg+" 

1630 ，，！ _ ，， 33,34 

1640 ••! ， • ， 35,36 

1650 a$=a$+ ，， cl ，， 

1660 b$ = " :o6 _5mlc2c2 c2c2 cl，. 1 Synbal 

1670 〇 $ = " :o4"+STRlNG$(2,"r4c16c16c16c16 r4cI6cl6c16c16") 

1680 d$=" : 〇 4 ~2e4r4g4r4 c4r4<b4r4 >e1" 

1690 e$=":o4 b2" 

1700 f$ = ，，： o5 b0&b2." 

1710 g$=" ： o4 g+2" 

1720 h$ = ,, ： H : i$ = ”：'. 

1730 "!" ’37,38 

1740 RETURN 
1750 » 

1760 END 
1770 LABEL 

1780 PLAY a $； : FLAY b$ ； : FLAY c$ ； : PLAY d$;:FLAY e$； : PLAY f$; : PLAY 
g$;:PLAY h$•• 

1790 FLAY i$ ； :PLAY j$; : PLAY k$ ；： PLAY 1$ ； :PLAY m$ ； : PLAY n$ ； : PLAY 
o$； : PLAY p$ 

1800 RETURN 

©1962 by DICK JAMES MUSIC LTD., London. 

All Rights Reserved. International Copyright Secured. 
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を送るということです。たとえば， Z (240, 
a ， b ， c ，247) と Z [ a ， b ， c ] は同じ動作をします。 
なお， エクスクルー シブの $ F 0 の次の データ 
は楽器メ ーカー ごとに決まった ID ナンバー 
を送ることになっているので注意してくだ 
さい。 

S CTC 制御 

超 マニア 向きのテンポ コマンドです。 c 
TC を直接触ることになるので，はっきりい 
って初心者の方 ( CTC について理解していな 
い人）は使わないでください（どんなことが起 
こっても私は責任を持てません)。 

どうして，こんなコマンドを用意した力、 
というと，微妙なテンポの変化を味わうた 
めなんです。クラシックや，特にピアノ曲 
を奏でたいときに，本気で MML 化するなら， 
なんとしても欲しくなってくる機能なので 
す。 

では，そのようなマニアックな人のため 
に，この S コマンド について簡単に説明し 
ておきましょう。ただし，ここでは CTC に 
はチャンネルが4つあることは常識としま 
す。この MIDI シーケンサでは， CTC の4つ 
のチヤンネルのうち，チヤンネル0をタイマ 
モードで，チヤンネル3をカウンタモード 
で使っています。 

T コマンドでは，チャンネル3の値を変 
えて割り込みのタイミングを得ています力 ? ， 
チャンネル0の値が結構おおまかなため，テ 
ンポがかなりずれることになります。この 
点， S コマンドではチャン ネル 0もチヤン ネ 
ル3も直接指定できるので，限界までいじ 
ることができます0この場合 S チャンネル 
3，チヤン ネル 0のようにデータをセット 
してください。 

チャンネル0は省略可能です。理論上， 

祝版 MML の T コマンドの16倍の細かさまで 
設定できます（単にプリスケーラの問題なのだ 
が)。たとえば， T 120 = S 30, 43( L 1 = @384) 
になります。 

POKE SHAFFF .0 

この命令で，曲データを演奏せずにバッ 
フアリングすることができます。今回のシ 
ーケンサでは，フリーエリアは 16 K バイト 
強しかあいていません。これでは 48 K バイ 
卜もの演奏用ワークエリアを有効に使うこ 
とは難しく，これまで発表されてきたミュ 
ージッタプログラムのなかにもメモリで苦 
労しているものがかなりありました。16チ 
ャンネル同時発声が可能になった今回のシ 


108 Oh ! X 1988.8. 




ーケンサでは，さらにメモリ不足が予測さ 
れるので，このコマンドが登場したわけで 
す。 

演奏開始は， POKE & HAFFF , 1として 
ください。なお， TEMPOO により，1が書 
き込まれますので注意してください。 

過去の MML ? —夕の演奏について 

この MIDI シーケンサでは，全音符が Ll = 
@384になっています。祝版 MML では L 1 
=@1024なので，◎コマンドで直接音長を 
指定しているプロダラムでは注意が必要で 
すが，音長をセットするプログラム（リス 
卜 2) により解決されます。なお，リスト2 
では MIDI のタイミングクロックの ON/OF 
F を設定することもできますが， ON にでき 
るのは音長が192と384の場合となります。 

また，&と& +が，逆の機能になってい 
るのも気をつけて〈ださい。ただし，組曲 
「イース j ( 3月号に掲載）ではもともと&と 
& +を逆にしているので，そのまま演奏で 
きます。 

あとは POKE , PEEK 命令で何をしてい 
るかによって，アドレスをずらすなどの処 
理が必要です。さらに， PSG を使っている 
曲では10の指定も忘れずに。 

N , W コマンド もありませんので，それ 
らを使っている MML データは演奏できませ 
ん。自分で工夫してみてください。アフタ 
ーバー十一 （1 月号)では CTC を直接指定し 
「リスト3 MIDI シーケンサ（ダンプリスト） 


ているので， S コマンドで対処する必要が 
あります。ただ，かなりタスクが苦しいの 
で，セットするデータを変えないと演奏で 
きません。もしくは“ T 170” 程度でほぼ同等 
のスピードになります。 

Please Please Me 

サンプル曲としてビートルズの 「Please 

スト2 音長セットプログラム 


Please Mej を作つてみました（リスト1)〇あ 
くまでも私の愛用している KAWAI の Kim を 
利用して作ったものなので，音色番号は自 
分の楽器の音色とよく相談して適当に変え 
るなり，自分でエディットするなりしてく 
ださい。皆さんの音楽心に期侍しています。 

また，今回のシーケンサ（と呼ぶのも大 
げさだが）についてご意見のある方は編集 
室までお便りください。 


10 1 MML Configuration Tool 
20 1 

30 1 by S.K 

40 1 

50 DEFINT A-Z : RESTORE 340 : POKE &HAFFF,0 

60 FOR i=lT04 : READ L(i),CTC(i) : P$(i)=STR$(L(i))：NEXT 

70 FOR j=lT02 : READ Q$(j) : NEXT 

80 IF PEEK(&HAA5F) THEN j=l ELSE j=2 

90 L(0)=PEEK(&HAEFA)*256+PEEK(&HAEF9) 

100 P$(0)=STR$(L(0)) : CTC(0)=PEEK(&HA970) 

110 LTBL=&HAEF7 : i=0 
120 » 

130 PRINT" Length LI=@" ； P$(i )；""； 

140 Z$=INPUT$(1) 

150 IF Z$=CHR$(13) THEN PRINT : GOTO170 ELSE i=VAL(Z$) 

160 IF i<lOR i>4 THEN 140 ELSE PRINT CHR$(2,2,2,29 )； : GOTO130 

170 IF i>2 THEN j=2 

180 PRINT” Timing Clock " ； Q$(j)；" M ； 

190 Z$=INPUT$(1) 

200 IF Z$=CHR$(13) THEN 220 ELSE j=VAL(Z$) 

210 IF j<lOR j>2 THEN 190 ELSE PRINT CHR$(2,2,2,29 )； : GOTO170 
220 * 

230 POKE &H4093,L(i}/96 : POKE &H4098,L(i)/96 

240 POKE &HAA5F,0,0,0 

250 IF j=2 THEN270 

260 POKE &HAA5F,&HCD,&H85,&H40 

270 POKE &HA970,CTC(i) 

280 FOR k=l TO 32 

290 MEM$<LTBL+k*2,2>=MKI$(L<i>/k> 

300 NEXT 

310 MEM$(LTBL ， 2>=MKI$(L(i> 本 2} 

320 POKE &HAFFF,1 : END 
330 * 

340 DATA 192,85,384,43,512,16,1024,16 
350 DATA On,Off 


A8B0 213E A9 22 E3 2D 2211 : 6D 
A8B8 2E 2213 2E 21 00 B0 11 : 73 
A8C0 6E 3D 017A 03 El) B0 C9 : 8F 
A8C8 00 00 00 00 00 00 00 00 : 00 
A8D0 00 00 00 00 00 00 00 00 : 00 
A8D8 00 00 00 00 00 00 00 00 : 00 
ABE0 00 00 00 00 00 00 00 00 : 00 
A8E8 00 00 00 00 00 00 00 00 : 00 
A8F0 00 00 00 00 00 00 00 00 : 00 
A8F8 00 00 00 00 00 00 00 00 : 00 
A90O 00 00 00 00 00 00 00 00 : 00 
A908 00 00 00 00 00 00 00 00 : 00 
A910 00 00 00 00 00 00 00 00 : 00 
A918 00 00 00 00 00 00 00 00 : 00 
A920 00 00 00 00 00 00 00 00 : 00 
A928 00 00 00 00 00 00 00 00 : 00 


SUM ： BD 9D BD CA 07 1A 82 EB 1ED9 

A930 00 00 00 00 00 00 00 00 : 00 
A938 00 00 00 00 00 00 CD D1 : 9E 
A940 7F 3A DB A5 E5 EB FE 03 : 0A 
A948 CA D4 A9 CD 36 54 CD AF : 1A 
A950 5B 7C B5 20 4E CD 7F 3E : 84 
A958 21 0140 22 2A AA 22 2C : A6 
A960 AA 2B 22 28 AA 44 4D AF : 09 
A968 ED 79 3E IE 32 D8 AE 3E : B8 
A970 2B 32 D7 AE 32 FF AF 21 : E3 
A978 49 AF 114D AF 0140 00 : 46 
A980 ED B0 EB 0610 36 00 23 : F7 
A98810 FB F3 3E C3 32 3C 01 : 6E 
A990 21 A5 A9 22 3D 01 CD 3C : D8 
A998 01 CD 2E AA 214B AA 22 : DE 
A9A0 5E 00 FB El C9 01 07 07 : 12 
A9A8 3K 03 ED 7916 07 3E 08 : 0A 


SUM ： 8B 30 5E 5F 60 8E IB 8C A00E 


A9B0 CD 3F AE 15 20 FA CD 3F : F5 
A9B8 AE 3E B0 F5 CD 9F 3E 3E : 79 
A9C0 7B CD 9F 3E AF CD 9F 3E : 7E 
A9C8 FI3C FE C0 20 ED 01 00 : F9 
A9D0 1C C3 3F 01 CD C3 7F B7 : E5 
A9D8 28 03 CD F5 A9 El7E D6 : CB 
A9E0 3B 23 C8 2B ED 4B 2C AA : 5F 
A9E8 AF ED 79 03 ED 43 2C AA : IE 
A9F0 ED 43 2A AA C9 ED 4B 2C : 31 
A9F8 AA 2A 2A AA B7 ED 42 20 : AE 
AA00 05 2E 3A ED 69 03 6F 1A : 4F 
AA08 FE 6138 06 FE 7B 30 02 : 48 
AA10 C6 E0 ED 79 0313 78 B1 : 4B 
AA18 28 08 2D 20 EA ED 43 2C : C3 
AA20 AA C9 CD 3C 01 C3 27 20 : 87 
AA28 00 40 00 40 00 40 01 04 : C5 


SUM ： 47 49 F5 88 El E0 0F 05 C1E9 

AA30 07 3E 07 ED 79 3A D7 AE : 71 
AA38 ED 79 3E 58 ED 79 01 07 : 6A 
AA40 07 3E C7 ED 79 3A D8 AE : 32 
AA48 ED 79 C9 F3 ED 73 3C A9 : 67 
AA50 313C A9 F5 C5 D5 E5 21 : AB 
AA58 FF AF 7E B7 CA D3 AA 00 : 2A 
AA60 00 00 218D AF 0610 AF : 22 
AA68 B6 23 20 5110 FA ED 4B : 8C 
AA70 28 AA 2A 2A AA 2B B7 ED : 9F 
AA78 42 20 07 3E 0132 FF AF : 88 
AA80 18 51 ED 78 03 28 0C ED : F2 
AA88 78 03 20 FB 0B ED 43 28 : F9 
AA90 AA 18 DF ED 43 28 AA 21 : C4 
AA98 8D AF E5 219D AF 16 00 : A4 
AAA0 ED 78 28 05 03 FE 3A 20 : ED 
AAA8 F7 B7 28 02 3E 01 E3 77 : 71 


SUM ： E3 90 8F 9F F4 50 5A 90 5DFE 


AAB0 23 E3 7123 70 2314 7A : BB 
AAB8 FE 10 38 E4 El11 00 00 : 1C 
AAC0 218D AF D5 E5 7E B7 C4 : 10 
AAC8 DE AA El D1231C 7B FE : F2 
AAD0 10 20 F0 El D1 Cl FI ED : 71 
AAD8 7B 3C A9 FB ED 4D E5 D5 : 4F 
AAE0 F2 F5 AA CD 4A AE 78 B1 : 7F 
AAE8 D1 E5 CC 36 AD El7C B5 : 77 
AAF0 El C0 36 01 C9 CB 23 21 : B0 
AAF8 9D AF 19 4E 23 46 ED 78 : 81 
AB00 28 04 FE 3A 20 08 D170 : CD 
AB08 2B 71 El36 00 C9 D1 ED : 3A 
AB10 78 28 F4 FE 3A 28 F0 D5 : B9 
AB18 E5 CD 29 AB El28 E7 D1 : 47 
AB20 38 ED 70 2B 71 El36 80 : C8 
AB28 C9 ED 53 FD AF ED 78 03 : ID 


SUM ： 9D 13 561C 55 6B 47 83 A8A6 

AB30 FE 4138 2A FE 48 30 34 : 4B 
AB38 CD 49 AB C5 D5 CD B1 AC : 85 
AB40 D1 Cl CD 4E AD 3E 01 B7 : 50 
AB48 C9 D6 4187 6F ED 78 03 : 3E 
AB50 FE 2D C8 2C 2C FE 2B C8 : 3C 
AB58 FE 23 C8 2D 0B C9 FE 3E : 26 
AB60 CA 6B AC FE 3C CA 6B AC : FC 
AB68 7F B7 37 C9 FE 52 28 D2 : 80 
AB70 FE 49 CA 6E 3D FE 5A CA : DE 
AB78 47 3F FE 5E CA 73 3F FE : 5C 
AB80 5C CA 9C 3F FE 4D CA 09 : IF 
AB88 3F FE 54 CA 7D AC FE 59 : DB 
AB90 CA 3D AC FE 4B CA ID AC : 8F 
AB98 FE 7E CA 98 AE FE 5F CA : B3 
ABA0 78 AE FH 53 CA BD 3F FE : 3B 
ABA8 50 28 39 21 00 00 FE 4F : IF 


SUM ： 1A 7 4 (；9 C3 A512 30 0B 11F7 


特集 MIDI 対応シーケンサ 109 
















B2B0 

B2B8 

B2C0 

B2C8 

B2D0 

B2D8 

B2E0 

B2E8 

B2FC 

B2F8 

B300 

B308 

B310 

B318 

B320 

B328 


40 

19 

4E 

23 

46 

23 

5E 

D2 

56 

EB 

0B 

2B 

D1 

C5 

E5 

15 

66 

AE 

El 

Cl 

C9 

CB 

23 

3A 

23 

E5 

21 

41 

40 

19 

71 

FF 

70 

23 

Cl 

71 

23 

70 

C9 

44 

FA 

AD 

38 

05 

7D 

CD 

C7 

C2 

77 

CD 

CC 

AE 

23 

7E 

E5 

F2 

C7 

AE 

96 

38 

06 

El 

77 

6E 

C3 

68 

AB 

El 

C3 

68 

AB 

C9 

FA 

AD 

38 

05 

7D 

CD 

C7 

C2 

77 

CD 

02 

40 

3E 

7F 

28 

19 

7B 

FE 

08 

3E 

7F 

38 

02 

81 


AC30 

AC38 

AC40 

AC48 

AC50 

AC58 

AC60 

AC68 

AC70 

AC78 

AC80 

AC88 

AC90 

AC98 

ACA0 

ACA8 


SUM ： IB B1 E3 06 2A 0E 814C 


B0P0 

B0F8 

B100 

B108 

B110 

B118 

B120 

B128 


AE50 

AE58 

AE60 

AE68 

AE70 

AE78 

AE80 

AE88 

AE90 

AE98 

AEA0 

AEA8 


SUM ： 74 B5 D8 B1 E2 FA 62 CA 


Cl 
5B 
44 
2F 
03 
00 
00 
00 
0 0 
00 
00 
00 
E5 
8B 
4C 
AE 


SUM ： 0B 73 D5 E7 Cl C3 42 BF 8373 


SUM ： F2 A5 

AEB0 3E 0F 
AEB8 7E CD 
AEC0 38 D2 
AEC8 39 AF 
AED0 CB 23 
AED8 00 D0 
AEE0 0F EE 
AEE81A 1C 
AEF0 16IE 
AEF8 03 80 
AF00 00 4D 
AF08 00 2A 
AF10 00 ID 
AF18 00 16 
AF20 00 12 
AF28 00 0F 


62 

El 

B8 

D8 

BB 

E8 

AD 

30 

D4 

6C 

C8 

30 

28 

81 

3B 

27 


ABB© 
ABB8 
ABCO 
ABC8 
ABDC 
ABD8 
ABEO 
ABH8 
ABFO 
ABF8 
AC0O 
AC 08 
AC10 
AC18 
AC20 
AC28 


SUM ： DB A9 E4 4918 34 F9 06 FA57 

B330 00 00 00 00 00 00 00 00 : 00 
B338 00 00 00 00 00 00 00 00 : 00 
B340 00 00 00 00 00 00 00 00 : 00 
B348 00 00 00 00 00 00 00 00 : 00 
B350 00 00 00 00 00 00 00 00 : 00 
B358 00 00 00 00 00 00 00 00 : 00 
B360 00 00 00 00 00 00 00 00 : 00 
B368 00 00 00 00 00 00 00 00 :⑽ 
B370 00 00 00 00 00 00 00 00 : 00 
B378 00 00 : 00 


SUM ： 00 00 00 00 00 00 00 00 0000 


SUM ： 9C 3B 66 20 95 31 F9 CF 0A76 

B1B0 3C C3 68 AB E5 2129 40 : 81 
B1B819 7E El C9 D1 FE 64 DA : 4E 
B1C0 68 AB D6 64 6F CD 22 3F : EA 
B1C8 C6 C0 CD 9F 3E 7D CD 9D : 17 
B1D0 3E AF CD E3 3D 3C C3 68 : 41 
B1D8 AB ED 78 FE 28 28 09 FE : 65 
B1E0 5B 20 IE 3E F0 CD 9F 3E : 71 
B1E8 03 CD FA AD 38 0A 7D CD : 03 
B1F0 9F 3E ED 78 FE 2C 28 F0 : 84 
B1F8 FE 5D 20 05 3E F7 CD 9F : 21 
B200 3E 03 C3 68 AB CD FA AD : 8B 
B208 38 21 ED 78 FE 2C 20 IB : 23 
B210 E5 03 CD FA AD 7D El38 : F2 
B21812 67 CD 22 3F C6 B0 CD : EA 
B220 9F 3E 7D CD 9D 3E 7C CD : 4B 
B228 9D 3E 3C C3 68 AB CD FA : B4 


SUM：10 DA 59 4C C6 EC 4D 8A 3560 

B230 AD 3819 AF CB ID CB IF : 7F 
B238 CB IF F5 CD 22 3F C6 E0 : B3 
B240 CD 9F 3E FI CD 9D 3E 7D : CC 
B248 CD 9D 3E 3C C3 68 AB CD : 87 
B250 FA AD 3817 7D 32 D8 AE : 2B 
B258 ED 78 FE 2C 20 0D 03 CD : 8C 
B260 FA AD 38 07 7D 32 D7 AE : 1A 
B268 CD 2E AA C3 68 AB CD FA : 42 
B270 AD 7D B7 28IB FE 10 30 : 62 
B27818 F5 CD 22 3F C6 B0 CD : 7E 
B280 9F 3E 21 BD AF 7E CD 9D : 52 
B288 3E FI85 6F 7E CD 9D 3E : 49 
B290 3C C3 68 AB E5 21 ED AF : B4 
B29819 7E El B7 C9 AF D5 E5 : 61 
B2A0 ED 5B FD AF 21 CD AF 19 : AA 
B2A8 77 El D1 C9 D5 E5 ED 5B : F4 


SUM：14 02 E5 E9 B7 9E 7B DA 6CE5 

B0BO 80 12 231310 F4 06 04 : D6 
B0B8 EB 2B 3E 7F BE 38 017E : 48 
B0C0 2B 10 F9 Cl ED 44 90 C6 : 7C 
B0C8 7F 4F D1 D5 3E 58 83 F5 : 82 
B0D0 23 E5 06 04 7E B7 FA 4D : 8E 
B0D8 3E 81 F2 41) 3E 3E 7F E6 : DF 
B0E0 7F 77 2310 EF El FI CD : B7 
B0E8 6A 3E 1)1 FI C9 26 00 29 : 82 


SUM ： 3A C3 A8 913D 22 EB 43 FEE9 

AF30 00 0D 00 0D 00 0C 00 0C : 32 
AF38 00 00 00 00 00 00 00 00 : 00 
AF40 00 00 00 00 00 00 00 00 : 00 
AF48 00 04 64 08 04 04 64 08 : E4 
AF50 04 04 64 08 04 04 64 08 : E8 
AF58 04 04 64 08 04 04 64 08 : E8 
AF60 04 04 64 08 04 04 64 08 : E8 
AF68 04 04 64 08 04 04 64 08 : E8 
AF70 04 04 64 08 04 04 64 08 : E8 
AF78 04 04 64 08 04 04 64 08 : E8 
AF80 04 04 64 08 04 04 64 08 : E8 
AF88 04 04 64 08 04 00 00 00 : 78 
AF90 00 00 00 00 00 00 00 00 : 00 
AF98 00 00 00 00 00 00 00 00 : 00 
AFA0 00 00 00 00 00 00 00 00 : 00 
AFA8 00 00 00 00 00 00 00 00 : 00 


SUM ： 20 3184 55 24 2C 20 4C 0055 

AFB0 00 00 00 00 00 00 00 00 : 00 
AFB8 00 00 00 00 00 0A 00 0A :14 
AFC0 14 1E 28 32 3C 40 50 55 : AD 
AFC8 5F 64 6E 78 7F 00 00 00 : 28 
AFD0 00 00 00 00 00 00 00 00 : 00 
AFD8 00 00 00 00 00 00 00 00 : 00 
AFE0 00 00 00 00 00 00 00 00 : 00 
AFE8 00 00 00 00 00 00 00 00 : 00 
AFF0 00 00 00 00 00 00 00 00 : 00 
AFF8 00 00 00 00 00 00 00 00 : 00 
B000 D5 CD FA AD DA DA 3D 7D : B7 
B008 B7 28 0B 3D FE E4 D2 DA : B5 
B010 3D FE 28 D2 2A 3F F5 3E : D1 
B018 01 CD E3 3D 7B FE 08 30 : 9F 
B020 43 FI D1 D5 21 39 40 19 : 8D 
B028 77 6F CD 5B 3E D1 C5 E5 : C7 


SUM:1A 4C 4419 87 49 51 BU 67B9 

AE30 ED 79 05 ED 51 C9 01 00 : 73 
AE38 1C ED 79 05 ED 50 C9 C5 : 52 
AE40 01 00 07 ED 79 0C ED 51 : B8 
AE48 Cl C9 1)5 CB 23 CB 23 21 : 5C ： 


SUM ： 2A B9 E9 0D 2A D3 4A 76 C860 

ACB0 AB CD 02 40 CA 2F AD 7B : DB 
ACB8 FE 08 38 3A 7D D5 CD CC : 63 
ACC0 AE 46 23 4E 87 5F 21 D9 : 45 
ACC8 AE 19 56 23 5E CB 3B CB : 6F 
ACD0 1A 10 FA El617D D6 08 : Cl 
ACD8 87 CD 2D AE 3C 53 CD 2D : B8 
ACE0 AE 7D 54 CD 2D AE 3E 07 : 6C 
ACE816 F8 CD 2D AE 3E 0D CD : CE 
ACF0 36 AE CD 2D AE C9 7D B7 : 89 
ACF8 20 013D C617 FE IB 38 : 8C 
AD00 0B D610 FE 0F 38 05 FE : 39 
AD0812 28 013C D5 CD EB 3D : 41 
AD10 F5 CD CC AE 7E 3D 87 87 : 05 
AD18 87 87 57 FI82 57 El7D : 8D 
AD20 C6 28 CD 3F AE 7D F6 78 : 93 
AD28 57 3E 08 CD 3F AE C9 CD : ED 


\0V6)762CAEB28E8A0D 
AAD39B2298AC6DB6 


r891EED5ElD 765197 
77133 CF32C0C0107 

:DD05FE9F05F 26889 
EE2D97C90F50D321 

0B0DDEED6570DD70 

004CC33C1D033AB4 

11A7E3F09D751AC9 
0F177E99C 7000 F 02 

1ADE3DD6E9CE8D01 

0FC32CCC3C3F3C32 

5853E9FFF9E1B910 

F2FEACA3917F0C10 

579DC1E2DFEFE1E6 

C5CCCF32CAA5FDF1 

FB11D95D1DC3E3DD 
7CCFCCDCFDC 80873 

0808080808080808 
33445566778899 AA 
11I* 11111* 11111111* 1 

bbbbbbbbbbbbbbbb 


c BA0B81F73C06E327 
7 7CE6A1759DCD7EC5 


>CA6A 70031 AC32 

3 D8953DCD018FA41B 
7 C0CD6CCE0035F02C 


9EE93DD511E9D8E0 

CFAC5ACD11A2C2F0 


-c 21 c F F 


EA68D5130A1B99EE 
3C10 ACC 241461032 

A06E51E3ED8200D2 

E4036DA2FC1603B0 

0808080808080808 
33445566778899 AA 

ddoddddddddddddd 

aaaaaaaaaaaaaaaa 


9 439DD89DE37C8 7 51 

8 AC217DA1D9EF8DD5 
8 

3 . 

9 EB7CEE8DDAD792EC 
B FC67F 32113 C8C0F1 

E 6A563FDBBEF778E0 
D 53E20F3CCF68B3FO 

c 3B1E8F2CCA8D1A01 
c 2CFF7F1 33 1D7F3D0 

B EBB8D18BB8E78E39 

8 5667E21CC2A61F0C 

39-22D3B0AD8AAF 807 

9 166E004F1 7106733 

4 E8B03DC8BDD84D6B 
6 A0E41101CEC38ED0 

0 709B«8D9y-96 iE J7;9:9)l 
1 F 21022 C13C1A8CC0 

9 1EBD1B13BB8A5778 
A 1F1CE200CE 218332 

•• 0808080808080808 
i 3BC こ D9EEFF 001122 
u DDDDDD 山 DVDD^E 上 VEUJVE\E 

s aaaaaaaaaaaaaaaa 


14C1 000000005 E10 
E 00000000000 E3F0 

E3B1 000000000570 
7000000000000 F70 

92A1 000000000 A40 
1000000000000000 

FI 910000000000 E0 
A 000000000000230 

D 0810000000005 E0 
c 000000000000330 


F76E100^ 


! I • V 0000008 D9 
AB 000000000009 CC 

D15D1 00000000181 
FD 000000000002 FE 


13DB3DEDCDE9 

42CC2CAC3CA0 


FA 0183 1E8D8EB 228 
3F2E0CDA6A60C036 

DDCDE17C2AAE30B3 
CC27FCFCDFD 4237 c 

35EDBE8D9DE1B2FI 

8DFA7A1C0C11C4EC 

OB8A7DEDEBEO0D0A 

3A7F52A3FAF01E2A 

E8DD5DF6B8D6E7DE 
36ECCC3DA 6 7 03 B33 

734517 DB83BD0ACD 
5C2ED0CA6CA4061C 

718358 BOOA 7850 DDE 
0C3013A6F76C0E1A 

7EDE8D836BAB1 298 
0AA1376C8ADA210D 


FC9614FF 

79DABC85 


1E8D1D16 
ID 03030 E 

9D6E1388 

1CDD0A16 

98DD9D95 

203C0EC0 

96E0E414 

2CD130F4 

99D65E14 

2CCCE3C0 

D9QD5411 
5113 C9EC 

416E5 1A3 
5BCDF2F0 

90DD9000 

293CC020 


1 FF1F9DFBC0A8E1F4 
E 97D9D3C818A5AB08 


0DD8D1EBDD 079106 
1C11CEAAEC 40804 F 

68EEDDC 81596 B012 
c 03333 C62D3EC280 

D6A9EED 3551 EB710 
3C61DDCCEF 270013 

EED0DD11G95E8E99 

DAC0CCFDACF33F10 

DF65CBB7F1EB410B 
C30031A73E 75090 c 

3DE1DE8C373DEB6E 

8C113360C72CFC07 

04DAED3E39EE 7714 
213FD3C321A 60010 


0808080808080808 
33445566778899 AA 

0 0 0 0 0 0 0 0 0 0 0 o 0 0 0 0 

3 3 3 3 3 3 B H BBBBBBBCQ 


4 115CFBACC443A23A 
c 955B85EE22F 96543 


B2AOD 9506321110 

51BD90C 620000000 
EFA4C1111 0000000 


A 8 c D 11, 


•E006B51F 


5 2 0 


3D 503 FF3 


• _ > B 5 E 

• C0AD6F8ADF 

E5CD1A4EAC9F085D 
F0CAF78FF11426C7 

C8DA7D8BD00FE3BE 
22CF6817C3433CAO 

F15D60KF 549671 
05EC92F3D03E5C 


>E758CBC5E1E1 
-FAF14CDCF27 


8 8 
6 3 

112 1 
D D D D 


llO Oh ! X 1988.8. 































A,(DE) 
•a* 
C,S0 
•e，+ l 

A, 


OUT 

INC 

INC 


LD 

RET 


I013C 

$2027 


DBFW $4000 
DEFW $4000 
DEFW $4000 


OUT 


BC f CTC 
A,7 
(C),A 
A,(TMPV0) 

(C) f A 

A,$58 ； SET V 

(C),A 


LD BC,CTC+3 

LD A,$C7 

OUT (C) f A 

LD A t (TMPV) 

OUT (C ) f A 

RET 

INT ROUTINE >> 


LD 

LD 

PUSH 

PUSH 

PUSH 

PUSH 

し 

LD 

OR 

JP 

• i>s 

L 

LD 

XOR 


UNTSP) f SP 
SP # INTSP 


HL^PFLAG 
A f (HL) 


Z.IE9 ； 0 = PAUSE 
3 ； for Timing Clock 


HL.ACTF 

B t 16 


HL # BC 

NZ t IEQ2 

(PPLAG) t A 
IE9 

A f (C) 


LD 

JR 


A,(C) 

BC 

NZ,DROP 
BC 

(TAIL),BC 
I HQ 

(TAIL),BC 

HL.ACTF 

HL 

HL，PC 

D.O 


HL 

/V,(HL) 

HL 

BC,(HEADO) 
\ 

(C),A 

BC 

(HEAD0),BC 
(HEAD),BC 


BC f (HEAD0) 
HL,(HEAD) 

A 

HL.BC 
NZ,STORE1 
し，•： ， 

(C) f L 

BC 

L.A 


CALL STORK 


fij スト 4 MIDI シーケンサ（ソースリスト） 


0000 

0000 

0000 

0000 

0000 

0000 

A8B0 

A8B0 

A8B0 

ABEO 

A8B0 

A8B0 

A8B0 

A8B0 213E A9 
A8B3 22 E3 2D 
A8B6 22112E 
A8B9 2213 2E 
A8BC 21 00 B0 
A8BF 116E 3D 
A8C2 017A 03 
A8C5 ED BO 
A8C7 C9 
A8C8 

A8C8 00 00 00 00 00 
A8CF 00 00 00 00 00 
A8D6 00 00 00 00 00 
A8DD 00 00 00 00 00 
A8E4 00 00 00 00 00 
A8EB 00 00 00 00 00 
A8F2 00 00 00 00 00 
A8F9 00 00 00 00 00 
A900 
A900 

A900 00 00 00 00 00 

A907 00 00 00 00 00 

A90E 00 00 00 00 00 

A915 00 00 00 00 00 

A91C 00 00 00 00 00 

A923 00 00 00 00 00 

A92A 00 00 00 00 00 

A931 00 00 00 00 00 

A938 00 00 00 00 

A93C 

A93C 00 00 

A93E CD D17F 

A9413A DB A5 
A944 E5 
A945 EB 
A946 FE 03 
A948 CA D4 A9 
A94B 
A94B 
A94B 

A94B CD 36 54 
A94E CD AF 5B 
A9517C 
A952 B5 
A953 20 4E 
A955 

A955 CD 7F 3E 
A958 21 0140 
A95B 22 2A AA 
A95B 22 2C AA 
A9612B 
A962 22 28 AA 
A965 44 4D 
A967 AF 
A968 ED 79 
A96A 3E IE 
A96C 32 D8 AH 
A96P 3E 2B 
A97132 D7 AE 
A974 32 FF AF 
A977 

A977 2149 AF 
A97A 114D AF 
A97D 0140 00 
A980 ED B0 
A982 
A982 EB 
A983 0610 
A985 

A985 36 00 
A987 23 
A98810 FB 
A98A 
A98A F3 
A98B 3E C3 
A98D 32 3C 01 
A990 21 A5 A9 
A993 22 3D 01 
A996 CD 3C 01 

.4999 CD 2E AA 
A99C 214B AA 
A99F 22 5E 00 
A9A2 FB 
A9A3 
A9A3 El 
A9A4 C9 
A9A5 

A9A5 0107 07 
A9A8 3E 03 
A9AA ED 79 
A9AC 

A9AC 16 07 
A9AE 3E 08 
A9B0 

A9B0 CD 3F AE 
A9B315 
A9B4 20 FA 
A9B6 CD 3F AE 
A9B9 

A9B9 3E BO 
A9BB 
A9BB F5 
A9BC CD 9F 3E 
A9BF 3E 7B 
A9C1 CD 9F 3E 
A9C4 AF 
A9C5 CD 9F 3E 
A9C8 FI 
A9C9 3C 
\9CA FE CO 
A9CC 20 ED 
A9CE 

A9CE 0100 U ： 

A9J)1 C3 : iK 01 
A9D4 
的 IU 
A9U» 

A9DI 

A9D4 CD C'Ji 7F 
A9D7 B7 
AyDH 28 03 


Iwai，8 MML with MIDI 
Power uped by S.Kaneko 
255PS (5500rpm.NET) 


OFFSET $C8B0-$A8B0 


EQU 

EQU 


$0704 

(4000 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
60 00 
00 00 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 


HL,MMLSTART 
($2DE3) V HL 
($2EU ) f HL 
($2E13),HL 
HL,$B000 
DE,$3D6E 
BC f $40E8-$3D6£ 


SA900-SPACE 


25 

26 STACK 


30 MMLSTART 


DS 2 

CALL $7FD1 

LD A,($A5DB) 

PUSH HL 

DE f HL 


CP 

JP 


03 
Z,DOSTR 


38 ；<<<<<<<<<<<<<< TEMPO 

39 STEMPO 

40 CALL $5436 


DEC 

LD 

LD 


A,H 

NZ r PRET 

INISIO 
H い WTOP+1 
(HEAD) 

(HEAD0),HL 
HL 

(TAIL) V HL 
BC f HL 
A 

(C) f A 
A.30 
(TMPV),A 

A,43 ； for 384 

《 TMPV0),A 
(PPLAG) ， A 

HL.DFLDMY 

DE.DFLW 

BC,4*16 


DE|HL 
B.16 


T120 


LD 

LD 

OUT 


A,$C3 
($0130) ,A 
HL.QUIETl 
($013D) V HL 
$0130 

TOCTC 
HL.IEXEC 
($0O5E),HL 


BC,CTC+3 

A,3 

(C),A 

D,7 

A.8 


LD 


MIDI ; Bn, 123,0 
A ( 123 ；(All Note off) 
MIDI 


CALL 
XOR A 

CALL MIDI 

POP AF 

INC A 

CP SCO 

JR NZ,^3 


<<<<<<<<<<<<<< DO STRING >>>>>>>> 


A9DA 

A9DD 

A9DD 

A9DE 

A9DF 

A9H1 

A9E2 

A9E3 

A9E4 

A9E4 

A9E8 

A9E9 

A9EB 

A9EC 

A9F0 

A9F4 

A9F5 

A9F5 

A9F9 

A9FC 

A9FD 

A9FF 

AA01 

AA03 

AA05 

AA06 

AA06 

AA07 

AA07 

AA08 

AA0A 

AAOC 

AA0E 

AA10 

AA12 

AA12 

AA14 

AA15 

AA16 

AA17 

AA18 

AA1A 

AA1A 

AAiB 

AA1D 

AA1D 

AA21 

AA22 

AA22 

AA25 

AA28 

AA28 

AA2A 

AA2C 

AA2B 

AA2E 

AA2E 

AA31 

AA33 

AA35 

AA38 

AA3A 

AA3C 

AA3B 

AA3E 

AA41 

AA43 

AA45 

AA48 

AA4A 

AA4B 

AA4B 

AA4B 

AA4B 

AA4B 

AA4C 

AASO 

AA53 

AA54 

AA55 

AA56 

AA57 

AA57 

AA5A 

AA5B 

AA5C 

AA5F 

AA5F 

AA62 

AA62 

AA65 

AA67 

AA68 

AA68 

AA69 

AA6A 

AA6C 

AA6E 

AA6E 

AA72 

AA72 

AA75 

AA76 

AA77 

AA79 

AA7B 

AA7D 

AA80 

AA82 

AA82 

AA84 

AA85 

AA87 

AA87 

AA89 

AA8A 

AA8C 

AA8D 

AA9I 

AA93 

4A93 

AA97 

AA9A 

AA9B 

AA9E 

AAAO 

AAA0 

AAA2 

AAA4 

AAA5 

•\AA7 

AAAy 

AA‘\y 

AAAA 

AAAC 


ED 4B 2C AA 


ED 43 2C AA 
ED 43 2A AA 


ED 4B 2C AA 
2A 2A AA 
B7 

ED 42 
20 05 
2E 3A 
ED 69 
03 


FE 61 
38 06 
FE 7B 
30 02 
CB B0 

ED 79 


ED 43 2C AA 


CD 3C 01 
C3 27 20 

00 40 
00 40 
00 40 


01 04 07 
3E 07 
KD 79 
3A D7 AE 
ED 79 
3B 58 
ED 79 

01 07 07 
3E C7 
ED 79 
3A D8 AE 
ED 79 
C9 


ED 73 3C A9 
313C A9 


218D AF 
0610 


HD 4B 28 AA 


2B 

B7 

ED 42 
20 07 
3B 01 
32 FF AF 
18 51 

ED 78 


HD 78 
28 05 


3E 01 


122 

123 PRETX 

124 

125 

126 

127 

128 

129 

130 PRETXX 

131 

132 

133 

134 

135 

136 

137 

138 STORE 

139 

140 

141 

142 

143 

144 

145 

146 

147 STORE1 

148 

149 SLOOP 

150 

151 

152 

153 

154 

155 

156 SO 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 FULL 

170 

171 

172 

173 TAIL 

174 HEAD 

175 HEADO 

176 

177 TOCTC 

178 

179 

180 
181 
182 

183 

184 

185 TOCTC1 

186 

187 

188 

189 

190 

191 

192 ; 


ODUNEE D o u N D D E DDRBRDUN D 
PLSIRD LXOILLR LLOSJLOl L 
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INC 

INC 


PUSH 

PUSH 


CALL 

POP 

POP 

INC 

INC 


(SP), 

(HL>, 


(SP) 9 HL 
(HL)，C 


A,D 

16 

C,SPC0 


DE,0 

HLpACTF 


PUSH 

PUSH 


CALL 

POP 


DE 

P # ACT7 


RCTR 

A,B 


CP 

JR 

PUSH 

PUSH 

CALL 

POP 

JR 

FOP 


DE 

A. (C) 
Z.DIE2 

Z:DIE2 

DE 

HL 

DONOTB 


CP 

JR 


CALL 

PUSH 

PUSH 

CALL 

POP 

POP 

CALL 


LD 

IS 


(DESTACK),DE 
A f (C) 

BC 

C.DNO 
•G，+l 
NC*, DN1 


A,1 


AB54 2C 
AB55 FB 
AB57 C8 
ABS8 FE 
AB5A C8 
AB5B 2D 
AB5C OB 
AB5D C9 
AB5E 
AB5E FE 
AB60 CA 
AB63 FE 
AB65 CA 
AB68 
AB68 7F 
AB69 B7 
AB6A 37 
AD6B C9 
AB6C 
AB6C 
AB6C FE 
AB70 FE 
AB75 FE 
AB7A FK 
AB7F FE 
AB84 FK 
AB89 FE 
AB8E FE 
AB93 FE 
AB98 FE 
AB9D FE 
ABA2 FE 
ABA7 PE 
ABAB 21 
ABAE FB 
ABB2 2C 
ABD3 FB 
ABB7 2C 
ABB8 FE 
ABBC 2C 
ABBD FE 
ABC1 
ABCl E5 
ABC2 CD 
ABC5 D1 
ABC619 
ABC7 B5 
ABC8 F5 
ABC9 CD 
ABCC 30 
ABCE FI 
ABCF D1 
ABD0 18 
ABD2 
ABD2 67 
ABD3 FI 
ABD4 D1 
ABD5 EB 
ABD6 73 
ABD7 FE 
ABD9 20 
ABDB 7A 
ABDC FE 
ABDE 20 
ABE0 CB 
ABB218 
ABE4 
ABE4 CD 
ADE7 CA 
ABEA 
ABEA 7B 
ABEB FE 
ABBD D2 
ABF0 C5 
ABF1 D6 
ABF2 CD 
ABF5 38 
ABP7 7D 
ABF8 FE 
ABFA 30 
ABFC D1 
ABPD D5 
ABFE D5 
ABFF F6 
AC00 21 
AC0319 
AC04 6E 
AC05 CD 
AC08 7H 
AC09 E6 
AC0B 4F 
AC0C PI 
AC0D OF 
AC0E OF 
ACOP B1 
AGIO Dl 
AC1167 
AC12 3E 
AC14 83 
AC15 CD 
AC18 
AC18 Dl 
AC19 Cl 
AC1A C3 
ACID 
ACID 7B 
AC1E FE 
AC20 D2 
AC23 C5 
AC24 D5 
AC25 CD 
AC28 Dl 
AC29 38 
AC2B 7D 
AC2C FE 
AC2£ 30 
AC30 07 
AC31 07 
AC32 57 
AC33 3E 
AC35 83 
AC36 CD 
AC39 
AC39 Cl 
AC3A C3 
AC3D 
AC3D 05 
AC3E CD 
AC4I 3B 
ACM 3 HU 
ACM 5 FE 
AC47 20 
AC49 03 
AC4A E5 
AC4B CD 
AC4K 7D 
Af 4F El 


52 28 D2 

49 CA 6B 3D 
5A CA 47 3F 
5E CA 73 3F 
5C CA 9C 3F 
4D CA 09 3F 
54 CA 7D AC 
59 CA 3D AC 
4B CA ID AC 
7B CA 98 AE 
5F CA 78 AE 

53 CA BD 3F 

50 28 39 
00 00 

4F 28 0F 

56 28 OA 
5128 05 
4C 20 A7 


02 40 
DC 3F 


39 40 

5B 3E 
3F 


68 AB 

0B 

68 AB 

PA AD 

0E 

40 

09 

30 

3F AE 

68 AB 

FA AD 

24 

78 

2 C 

IK 


394 

395 

396 

397 

398 

399 

400 

401 

402 DN0 

403 

404 

405 

406 

407 ACT8 

408 

409 


RET 

DEC 

DEC 

RET 


SCF 

RET 




420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 SETGO 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 STG1 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 PAN 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 PAN2 

495 

496 

497 

498 KEYPR 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 


6 KHVFR2 


519 WBEC 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 


JR 

LD 


LD 

LD 


2,UPDOWN 
2,UPDOWN 
A, A 


INC 

CP 

INC 

CP 


PUSH 

CALL 

POP 

ADD 

PUSH 

PUSH 

CALL 

JR 

POP 

POP 

JR 


: JR 
: JP 
: JP 
: JP 
: JP 
: JP 
: JP 
: JP 
: JP 
：JP 
: JP 
: JP 
: JR 


: JR 
: JR 


Z,RUl 

Z f INST00 

Z,TARE 

Z,CTRLC 

Z.BEND 

Z.MIDNUM 

Z.STRUN 

Z,WREG 

Z,KBYFR 

Z.VUP 

Z.VDOWN 

Z.STCTC 

2, PAN 

Z,SETGO 

Z,SETGO 

2 f SETGO 

NZ.ACT8 


NUMBER 

NC.STGl 



PUSH 

PUSH 

CALL 


CP 

JR 

POP 

PUSH 

PUSH 

PUSH 

LD 

ADD 

LD 

CALL 


POP 

RRCA 

RRCA 


ADD 

CALL 


POP 

POP 


CP 

JP 

PUSH 

PUSH 

CAL し 

POP 


INC 

PUSH 

CALL 


NUMBER 

C,PAN2 

A f L 


DE 

AF 

HL,INSTN 

HL, DB 

L # (HL) 

GETVTD 

A,(HL) 

$3F 

C.A 

AF 


C DE 
D r A 
A,$20 
A,E 
WOPM 

DE 


A,E 

8 

NC.ACT8 


NUMBER 

DE 

C.KEYFH2 

A,L 

$40 

NC,KEYFB2 


D,A 
A,$30 
A,H 
WOPM 

BC 


NUMBER 
C f WREG9 
A, (C) 

NZ,WR£G9 


BC 

HL 


NUMBER 

A,L 


leE4 


0 F 
0 A 

0 p 
0 8 


leFe 


E37723E371237023147AFE38E11121D5ES7EB7C4E1D1231C7BFE20ElDlclFlEDFBED 


F54A 


6 


el239D 


78043AS 


5 5 2 D8115C1C 51069 B 19 E 3 6 D 8 E 0 1 OBI 169 1 D8H855D1818 OBI 169 
E D F C7BOBCE7BEC3C c 2 14 2 4 E 2 F 2 D 7 2 7 H 3 c D E2P2DECE2D3 7 2 7 E 3 c 


ABFDABACAD 

0 8 4- A 0 9 7 D o 3 8 1 A 8 4 9 n K nn 
0 7 F 3 F 2 E E 8 5 7 4 2 4 3 4 S3 4 < 

EDED S FE38FE30 S C5D5CDD1C1 S3E B7 cyl}b876Fss FE c 82 c 


EEFG 1 2345678 ACDD 0 : 3 , 3 M* 5 ' 67 ABCDEF 13 ^ 4 ) 56 > 7 m>c>E)E)H)£)E)F 0 F 33 : 6789 ADEF<D 124557 ABCP'EE 024667789 AABDEEFF 135789 CDF<& 2234556899999 DF 02461853 Q 3 B}c 3 D lo l» 2 l 2 l 5 l 5 l 7 l 8 } 919 }BK ID u- so 2!53 
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531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 WREG1 

542 

543 

544 WROPM 

545 

546 

547 WREG9 

548 

549 

550 UPDOWN 

551 

552 

553 

554 

555 

556 

557 

558 

559 8TRUN 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 
670 

571 STR1 

572 

573 

574 

575 

576 

577 

578 

579 

580 STR2 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 KEYON 

591 

592 

593 

594 

595 

596 

597 PSGDO 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 
609 


PSG1 


620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 OPMDO 

639 

640 

641 

642 

643 OPMDO0 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 OPMDOl 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 
BB5 
t>66 
667 


C,WR] 

DE 


SUB 

CALL 

ADD 


INC 

DEC 


CALL 

POP 

JP 

CALL 

JP 


POP 


LD 

SUB 

ADD 

CALL 

INC 

LD 

CALL 


CALL 

CALL 

RET 


INC 

PUSH 

CALL 

PUSH 

CAL し 

LD 

DEC 

ADD 

ADD 

ADD 

ADD 

LD 

POP 

ADD 

LD 


BC 

D,A 

A.B 

し 

C,WROPM 
WPSG 

BC 


WOPM 

WREG1 


DPLTBL 

A,(HL) 

M.ACT8 

9 

NC f ACT8 
(HL),A 
ACT8 

NUMBER 
C,ACT8 
A,L 
30 

C.ACT8 

BC 

C,L 

B»0 

DE,3662 

HL,0 

A v 16 


HL 9 BC 

NC.STR2 

HL,BC 


NZ.STRl 

A # E 

(TMPV),A 

TOCTC1 

BC 

ACT8 


MDCHECK 

Z.MIDIDO 

A f E 

8 

C,OPMDO 


DPLTBL 

B, (HL) 

HL 

C, (HL) 

A, A 

B, A 

HL.PSGF-REQ 

HL.DE 

D, (HL) 

HL 

E f (HL) 


HL 

H,C 

A,L 

し 

WPSG 


A,L 

D,H 

WPSG 

A,7 

D t $F8 

WPSG 

A,13 

RPSG 

WPSG 


A f $17 
拿 IB 

C^OPKDOl 

$10 

$0F 

C,OPMDOl 
$12 

Z r OPMDOl 


DFLTBL 
A,(HL) 
A 

A V A 
A, A 
A, A 
A, A 
D,A 
AF 
A,D 
D,A 


AD1E 

AD1P 

AD20 

AD22 

AD25 

AD26 

AD28 

AD29 

AD2B 

AD2E 

AD2F 

AD2F 

AD32 

AD35 

AD36 

AD36 

AD39 

AD3C 

AD3C 

AD3D 

AD3P 

AD41 

AD41 

AD43 

AD46 

AD47 

AD47 

AU48 

AD4A 

AD4D 

AD4H 

AD4E 

AD4E 

AD4F 

AD52 

AD53 

AD54 

AD58 

AD59 

AD5A 

AD5E 

AD61 

AD62 

AD63 

AD63 

AD63 

AD6S 

AD65 


A069 
AD6A 
AD6B 
AD6C 
AD6D 
AD6E 
AD70 
AD72 
AD74 
AD75 
AD78 
AD78 
AD7B 
AD7D 
AD80 
AD82 
AD82 
AD83 
AD83 
AD86 
AD88 
AD89 
AD8A 
AD8B 
AD8C 
A08D 
AD8B 
AD8F 
AD91 
AD92 
AD93 
AD95 
AD95 
AD98 
AD9A 
AD9B 
AD9D 
AD9F 
ADA1 
ADA3 
ADA3 
ADA4 
ADA5 
ADA7 
ADA9 
ADAB 
ADAB 
ADAC 
ADAB 
ADB0 
ADB3 
ADB4 
ADB5 
ADB6 
ADB7 
ADB7 
ADB9 
ADBB 
ADBC 
ADBD 
ADBF 
ADC1 
ADC2 
ADC3 
ADC 3 
ADC 5 
ADC6 
ADC 6 
ADC7 
ADC8 
ADCB 
ADCD 
ADCF 
ADDO 
ADD1 
ADD3 
ADD3 
ADD4 
4DD6 
ADD# 
ADD9 
ADDB 
ADDC 
ADDF 
ADE1 
ADH4 
ADE6 


7D 

C6 28 
CD 3F AE 


3E 08 
CD 3F AK 


7B 

PE 08 
38 06 

16 00 
CD 2D AE 
C9 


ED 53 63 AD 

D1 

C5 

ED 4B 63 AD 
CD 66 AE 
Cl 
C9 


CD CC AE 

23 

23 

56 

23 

5E 

D5 

ED 78 
FE 40 
20 21 
03 

11 00 00 

CD 1A AE 
30 05 
11 01 00 
18 41 

5F 

CD 1A AE 
38 3B 


5F 

16 00 


6B 

CB 7D 
28 04 
CB BD 
3E PB 

F5 

7D 

FK 21 
38 02 
2E 20 


26 00 
CB 25 
11 F7 AE 


6B 

CB 3A 
CB IB 


CD OB 40 
ED 78 
FE 26 


28ID 
OB 

21 FK bb 
3E 01 
CD OC *10 
1812 


668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 MIDIDO 

679 

680 
681 

682 KBYOFF 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 OFFOPM 

694 

695 

696 

697 

698 

699 DONUM 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

.0 


720 

721 

722 

723 

724 

725 

726 

727 

728 XNUM0 

729 

730 

731 

732 

733 XNUMZ 

734 

735 XNUML 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 DONOML 

750 

751 

752 
763 

754 

755 

756 

757 DONUM0 
768 

759 

760 

761 

762 

763 DNOK 

764 
768 

766 

767 

768 

769 
776 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 DONUM1 

782 

783 
78H 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 
79H 
799 
BOO 
801 
802 
B03 
804 


HL 
A.L 
▲ ••28 
kOPM 
A,L 
$78 
D,A 
A.8 
WOPM 


NTNUM 

NOTEON 


MDCHECK 

Z f NOTEOFF 

A f B 

8 

C,OFFOPM 

D v 0 

WPSG 


D,E 

A,8 

WOPM 


DB 

DONUMS 

HL 

DE 

(DONUMW) 9 DB 

DE 

BC 

BC,(DONUMW) 

WCTR 

BC 


2 


DFLTBL 

HL 

HL 

D # (HL) 

HL 

E,(HL) 

DE 

A,(C) 

N2, DONOML 
BC 

DB v 0 

DIGIT 
NC,XNUMZ 
DE V 1 
DONUM1 

K, A 

DIGIT 
C,DONUM1 
H t D 

L, E 
HL.HL 
HL f HL 
HL f DB 
HL f HL 



XNUML 

NUMBER 
NC,DOKUM0 
L,E 
7 f L 

Z r DONUM0 

7,L 

A,$FE 

AF 

A f L 

33 

C, DNOK 
L,32 

AF 

H.0 

DE ,LENTBL 

HL 9 DE 

E,(HL) 

HL 

D, (HL) 

$FE 

NZ V D0NUH1 

H,D 

L,E 

D 

E 

HL V DH 

DE.HL 

HL 9 DE 

AF 

HL 

H f A 

ANDFLAG0 ; No k 
A t (C) 

• k f 

A,H 

HL 

NZ,DONUM2 

BC 

A,(C> 

BC 

2.DONUM4 

BC 

HL,$FFFF 

A*1 

ANDFLAG ； k 
D0NUM4 




L L H L 
;8 山 


B BE bebbbdbb e 0 E A B 0 D 
A A A. A A A A A A A A o 0 A A A 4 A 

5 8 7 D 00F'78 OC 898 8 A8 B8 0E0O 32A 22 F 8 E 8 2 F 
1 0 0 2 6 3 F 6 3C 606 6 P6 16 0401 216 40 E D 3 6 02 

81 5 7 B E D 8 D 13:D8)lr36P6AE 273 DADHA5D611E BBD7D09D CDOB2D13 
3 D C57F73C CC cl DC DC8FFD7C CD7FDC 40123 CCBBE301 13273 ccc 


8 A 
0 3 


c 


9 


BAA 


E 

8 D 
0 2 


E R eh 
A A A A 

D 7 8 D D 6 D 
2 0 F 2 o 3 2 


1 7BBOFS21 

o 11010010 


D E 
3 A 

B c 
E c 


D \ BE8 D5D63E7P1963B B B o 11 D67DC3D D 4 D B 6 D E D D 9 D 7 0 D 6B8.6E8E8C 5D5DEU 71 ni7> 7- 1 2)7 
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DB 

E 

HL,PACK 

HL,DE 

C, (HL) 
HL 

B,(HL) 
HL 

B,(HL) 

HL 

D, (HL) 
DE,HL 
BC 

HL 

DE 

BC 

HL 

WCTR 

HL 

BC 


H 

E 

HL 

H い PACK 
HL.DE 
(HU # C 
HL 

(HL),B 

HL 

BC 

(HL),C 
HL 

(HU t B 


NUMBER 

C.VD0WN2 

A,L 

DFLTBLV 
(HU,A 

DFLTBL 

HL 

A,(HL) 

HL 

DFLTBLV 

(HL) 

C.VRETURN 

HL 

(HL).A 


Z,D0NUH3 

HL f DE 

D0NUM2 


A, (C) 
Z, NUH9 

Z,NUM9 

DIGIT 

し 

DIGIT 

C.NUM1 


A,(C) 
•9，+ l 
C f DIOITl 


BC,$1C00 

(C),A 


Ctrl No. 
Most LEFT 


for DIO 
(Roland) 


95 

)00 

110 

120 

127 


Moat RIGHT 


POP 

JP 


ACT8 


CALL 


NUMBER 
C.VUP2 
LQ A,L 

CALL DFLTBLV 

U) (HL) V A 


CALL 


LD 


MDCHECK 

A # 12? 

Z.VUP3 ； 0=MIDI 
A.E 
6 

A,127 
C,VUP3 
A,15 

DFLTBL 


CALL 
INC HL 

PUSH HL 

PUSH AF 

LD A,(HL) 

CALL DFLTBLV 
ADD A,(HL> 

LD E,A 

POP AF 

CP B 


LD HL.VAREA 

ADD HL.DE 

RET 

PUSH DE 

LD HL,DFLW 

SLA E 

SLA E 

ADD HL,DE 

POP DE 

RET 

WORK AREA 


$12D0 
拿 11C2 
$1004 
$0FD2 
S0EEE 
$1DDE 
S1C2E 
$1A9A 
$191C 
$17B4 
$165E 
S165E 
S151E 
S13EE 
$12D0 


768,384,192,128,96 
•55,48,42 
,32,29.27 
v 22 t 21,20 
t,17 f 16,16 
い 4,14,13 


13 


12 


o 
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第1回 


Murata Toshiyuki 


村田敏幸 


今月からスタートするこの 「 Z 80 マシン語ゲー厶工房」は，ゲームプログラムをサンプル 
として取り上げながらマシン語の基礎を学んでいこうというものです0そしてそのゲーム 
プログラムに関しては，皆さんからの要望もバシバシ取り入れていく予定らしいので，ぜ 
ひ参加してくださいね。 


ご挨拶だよ 


初めまして。今月からしばらくの間 ， Z 
80のマシン語で遊ぼうというみんなのお相 
手を務めるのがこの僕，村田だ。 

Z 80の入門講座といえば，今年の5 H 号 
で惜しまれつつ終了した泉大介氏の「マシ 
ン語体操1*2*3」を読んでいた人は多いだ 
ろう。「マシン語体操」は，全機種共通シ 
ステム S-OS “ SWORD ” の上で厳選された 
命令のみを使用したプロダラム例を示し， 
それに泉氏の見事な解説を加えることで， 
誰にでも読め，楽しめ，わかるという近年 
まれに見る名講座だった。遅ればせながら 
泉さんには「ごくろうさまでした」と言い 
たい。 

と，いきなり殊勝な書き出しをしたのに 
はわけがある。というのは，僕には「マシ 
ン語体操」を超える Z 80 入門講座は書けな 
いかもしれない。ただ，違う方向性を示す 
ことはできるだろう，との思いがあってこ 
の連載を始めることにした。 

マシン 語を使う楽しみのひとつは，自分 
の マシンに直接 触れることにある。これま 
での 「マシン 語体操」の 場合， S - OS 上で扱 
っている 分 だけ 「マシンに じかに触れる」 
感じが薄れてしまっていたように思う。そ 
こでこの連載では，各機種別の基本レベル 
での処理まで言及してみようと考えている。 

誤解のないように言ってお〈力 ? ，機種別 
の要素を盛り込むからといって， Z 80 とい 
う共通の土台を無視してかかるわけではも 
ちろんない。 XI も MZ も Z 80 マシンな の 
だから，プログラムの大筋は共通のものと 
なる。どうしてもハードに依存せざるを得 
ないとき，またはハードに依存したほう力 ？ 
よいときには別々に用意するよ，と言って 
いるに過ぎない。その場合でも，やりたい 
ことが同じである限り，アルゴリズムはほ 
ぼ共通のものになるだろう。「マシン語体 
操」とは異なる方向性と言いながらも，「な 
あんだ， 結局 みんな同じ Z 80 マシン なんだ 




ね」というところに帰つて米るような気が 
している。多少遠回りにはなるかもしれな 
いけれど . 。 

で，具体的になにをやるかというと 
横スクロ ールシユーテイングゲーム 

を作ることにした。対象機種は XI ， MZ - 
2500， MZ -700とする。当然 XI 版は turbo 
で， MZ -700 版は1500でも動作するから， 
Oh ! X を読んでいるほとんどの機種のユー' 
ザーには楽しんでもらえると思う。ここで 
名前を挙げなかつ すこマシン (特に MZ - 200 0) 

も気が向けばサポートするつもりでいるし， 
turbo と1500に関しては，それぞれの特徴 
を生かした変更点を示す用意はある。恃つ 
ていればそのうちいいこともあるだろう。 
どうしても侍てない人は「僕のマシンもや 
つて係」まで怒濤のハガキ攻撃をかけてほ 
しい。 

( これだけは用意してね 



かは必要になるだろうから，いまのうちに 
用意しておくことが望ましい。アセンブラ 
と命令表，これだけあれば当分の用には足 
りる（僕の場合は，未だにこれだけで足り 
ていたりする)。 

というところで，ぼちぼち本編に突入す 
る0「わ 一い， いよいよ ゲーム だぞ お」 と 
喜んだ人には申し訳ないが，今月と米月は 
ゲームを 作るために必要な Z 80 の基礎の部 
分をやる。やるといったらやる。 

ダダをこねる子には「基礎を知らずして 
ゲームを 作るとは 2 力片早い っ！」 という 
言葉を贈りたい。 

〔 マシン語は難しいの？ 

このテのマシン語入門では，最初に「マ 
シン語は難しくありません」といって読者 
を安心させるのが常となっている。けれど， 
僕はへそ曲がりだからそうは言わない。ど 
う言うかというと，マシン語を党えるのは 



この連載ではダンプリストを掲載しない 
方針だ。それはダンプリストを打ち込むの 
がうまくなったからといって，マシン語を 
覚えられるわけではないという，当たり前 
の理由と（ゲームは少しずつ組み立ててい 
く予定なので)，ダンプリストでは毎月つ 
じつまを合わせるのが困難だという现実的 
な理由による。また，限られたページをダ 
ンプリストで埋めてしまうのはもったいな 
いとも考えた。こういったわけで，この連 
載を活用しようと思ったら，アセンブラを 
用意してもらう必要がある。 

アセンブラは Z 80 用（ザイログ表記）の 
ものであればなんでも構わないのだが，褐 
載されるアセンブルリストは Oh ! X 標準ア 
センブラである ZEDA 用のものであり，ま 
た，短いサンプルは S-OS “ SWORD ” 上で 
動作するように作られるので，そのほかの 
システムを使う人は注意を要する。 S-OS 
“ SWORD ” と ZEDA を用意してもらえれば 
いちばんよい。 

もうひとつ， Z 80 の命令表はどの道いつ 


BASIC を覚えるのと同じぐらい難しい 

と言う。別な言い方をすると， 

逆上がりができるようになる〈らい 
飛び箱が飛べるようになるくらい 
自転車に乗れるようになるくらい 
泳げるようになる〈らい 
難しいとも言える。 

要は コッの 問題，きっかけの問題だ。ま 
た，よく 「マシン語は暴走するから怖い」 
と言うけど，僕には暴定するとどうして怖 
いのかがよくわからない。そりやあ，暴走 
したせいで作りかけのフ。ログラムが消えて 
しまうこともあるし，ディスクを飛ばして 
しまうこともある。でも，消えてしまった 
プログラムもセーブしてあればそこまでは 
戻ることはできるし，ディスクもバックア 
ップをとってあれば W らない。そもそも# 
走が原 L 大 I でコンピュータが壊れてしまった 
りはしないんだから恐れることはないと思 
う。むしろ「暴走はしないが，なんとなく 
変な動作をする」バグが入り込むことのほ 
う力 ？ よっほ。ど怖•い。 
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暴走はして当然なんだ。僕だって毎日の 
ように暴走させている。 

それでは本題です ) 


では，そろそろマシン語プログラムの実 
例を見てもらい，そこで使われている命令 
について 解説して い くことにする。マシン 
語の各命令は驚〈ほど単純な機能しか持っ 
ていないから，理解するのは造作もないこ 
とのはずだ。なお，本文中では平気な顔を 
して専門用語を使っていたり，詳しい説明 
をはしよっている箇所がある。それらにつ 
いてはページのそこいらじゅうに解説をち 
りばめてあるので，用語の説明はそちらを 
参,照してほしい。 

まずはリスト1を見てもらおう。こいつ 
は S - OS “ SWORD ” 上で動作するごく簡単 
なプログラムで，アセンブルし実行すると 



た値90は “ Z ” のアスキーコードに相違な 

い0 

最後の 

RET 

は RETum の略で，サブルーチンから呼び 
出し元へ戻る命令だ。が，ここではサブル 
ーチンから戻るのではなく，「プログラムの 
実行を終えて S - OS のモニタへ戻る」とい 
う働きをしている。ちょっと引っ掛かるも 
のを感じるかもしれないが，このプログラ 
ム全体も S - OS から見ればサブルーチンの 
ようなものとして扱われている，と考えて 
おいてほしい。 

さて，わずか数十行で Z 80 の3つの命令 
の働きを説明した。まだ 「 A とはなに力。 
といった謎が残ってはいる力す， LD ， CALL ， 
RET の3命令の働きはわかってもらえた 
ことと思う。マシン語はこのくらいシンプ 
ルなんだ。 


レジスタとメモ U 


A は変数のようなものだ，と言った。こ 
の「変数のようなもの j のことをマシン語 
ではレジスタという。図1に Z 80 の全レジ 
スタを示す。いまはこのうち A ， B ， C ， D ， 
E ， H，L の7つた^けを覚えておけばよい。 

A 〜 L のレジスタはちようどメモリの1 
番地分と同じ大きさ，つまり1バイトの大 
きさを持つ。1バイト= 8ビットだから， 
各レジスタには2進8桁 （ = 16 進2桁）ま 
での整数を格納することができることにな 
る。具体的には 

000000 00b 〜 111111 11b 
16進数では 
00 h 〜 FFh 
10進数に直すと 
0-255 


次の節ではさらに A の正体が解き明かさ までの値が入る。 

れるだろう。 また， BASIC では RUN したときに変数 





リスト 1 



8000 



1 

ORG 

8000 H 

8000 



2 ； 



8000 



3 #PRINT 

EQU 

1 FF 4 H 

8000 



4 ； 



8000 

3 E 

5 A 

5 

LD 

A ,90 

8002 

CD 

F 4 IF 

6 

CALL 

#PRINT 

8005 

C 9 


7 

RET 



画面にひとつ “ Z ” の文字を書く。 ソース 
では7行だが，1〜4行目は Z 80の命令で 
はなく，アセンブラに対する指令（疑似命 
令）だから，プログラム本体はわずか3行， 
3命令ということになる。 

まずはこの3つの命令の働きから説明し 

よう。 

5行目の 
LD A ，90 

は， BASIC でいう代入文にあたる。 LD は 
LoaD の略だ。いまの例では 「 A に90とい 
う値を入れる j という意味になる。 A が何 
者かはあとで説明することにする。ここで 
は BASIC でいう変数みたいなものだと思 
っていてくれれば十分だ。 

続いて6行目の 

CALL # PRINT 

は， CALL の名のとおりサブルーチンを「呼 
び出して」いる。 BASIC であれば GOSUB 
にあたる命令だ0 CALL の後ろにはサブル 
ーチンの始まるアドレスを書く。リスト1 
ではアドレスを数字でそのまま書かずにラ 
ベルを使っている0 “# PRINT ” というラ 
ベルには3行目にある EQU 疑似命令で， 
1 FF 4 h という値が与えられているから， 6 
行目は 

CALL 1 FF 4 H 

と書いたのと同じ意味，つまり 1 FF 4 h 番地 
から始まるサブルーチンを呼び出している 
ことになる。 

なお， 1 FF 4 h 番地からは S - OS“SWOR 
D ” の1文字表示サブルーチンが置かれて 
いて，そのサブルーチンは 「 A 」 に表示し 
たい文字のア スキーコード を入れて呼び出 
すように作られている。5行目で A に入れ 


アセンフラ 

Oh ! X の読者には当てはまらないと思うが， 
一般にマシン語には「わけのわからない16進数 
の羅列」というイメージがある。で，その「わ 
けのわからない〜」を覚えなければマシン語で 
ブログラムが作れないと思ってしまうらしい。 
マシン語でプログラムを作る=16進数を並べる 
ことだと思っている人もいるそうな（さすがに 
ここまで言ってしまうとウソくさいか)。 

確かに最終的に， CPU が実行可能なのは「16 
進数の羅列 j だし，ワンポードマイコンの時代 
には直接16進数を並べてプログラムを作ったら 
しい。が，この文明開化の時代にそんなマヌケ 
な話があるわけはないじゃないか。実際にはマ 
シン語プログラムは「アセンブリ言語」で記述 • 
開発される。 

アセンブリ言語はマシン語の命令とほぼ I 対 
I で対応したシンブルな記号言語だ。アセンブ 
リ言語で記述されたプログラムテキスト自体は， 
普通のアスキーファイルだから，むろん直接実 
行することはできない。実行できるようにする 
には例の「16進数」に変換する「アセンブル」 
という手順を踏む必要がある。そのアセンブル 
をしてくれるプログラムが「アセンブラ」だ。 

また，アセンブリ言語で書かれたテキストは， 
マシン語プログラムの「基 j となるものという 
意味で「アセンブリソース」といい，アセンブ 
ルしてできた実行可能なプログラムを「オブジ 
エクト j と呼ぶ。 

アセンブラには，すぐに実行できる形式の才 
ブジヱクト（早い話が，普通にいうマシン語プ 
ログラムのこと）を多くの場合メモリ上に直接 


生成する「アブソリュートアセンブラ」 と，一 
度中間形式のオブジェクトをファイルに出力し， 
「リンカ」というプログラムを通して初めて実 
行可能となる「リロケータブルアセンブラ」が 
ある 0 

— 般的にアブソリュートアセンブラのほうが 
アセンブル速度が速いが，オブジェクトをメモ 
リ上に生成する場合，大きなプログラムが作れ 
ないという欠点がある。逆にリロケータブルア 
センブラはオブジェクトをファイルとして生成 
し，リンカを通さなければならないので実行プ 
ログラムを作るまでの時間はかかるが，プログ 
ラムを部品ごとに開発し，あとからいくつもの 
オブジェクトをつなげてひとつのプログラムに 
することができるので，大規模開発に向いてい 
る。 

なお，かつてはアセンブラを使わずに命令表 
を片手に手作業でアセンブルする. （ハン ドアセ 
ンブルという）ことが，マシン語を覚える早道 
のような言われ方をしたことがあった。しかし, 
これは「足腰を鍛えるにはうさぎ跳びがいちば 
んだ」というのと同じくらい間違っている，と 
僕は思う。 

ハンドアセンブルではプログラミングの本質 
とはまったく掛け離れたところに気を使わなけ 
ればならないし，人間のやることだから勘違い 
からくる不必要なバグが入り込む恐れがある。 
その点アセンブラを使えばプログラミングその 
ものに集中できるわけだ。 

マシン語はアセンブリ言語で記述し，アセン 
ブラを使うことで初めて「プログラミング言語」 
となる。マシン語を覚えるにはアセンブラは必 
要不可欠だ，というのが僕の見解だ。 
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の内容がクリアされる力す，レジスタはそう 
ではないので，プログラムでちゃんと値を 
入れるまでは 「いくつに なっているか」力 ？ 
わからない。0になっていると決め込んで 
使ったりするとひどい目に遭う。注意する 
こと。 

A 〜 L までのレジスタは「ほぼ」同じよ 
うに使うことができる0リスト1では A レ 
ジスタに直按数値を代入する例を示したが， 
同様に B レジスタに値を入れるには 
LD B ，123 

のように書けばよい。 

また， LD 命令を使ってレジスタの値を 
ほかのレジスタに代入することもできる。 

H レジスタに入っている値を A レジスタに 
コピーするには 

LD A.H 

とする。簡単，簡単。 

ここまでの例では値は常にレジスタに格 
納してきたが，メモリに値を格納すること 
だってできる0 メモリはレジスタのように 
名前がついていないから，任意のメモリは 
アドレスで指定することになる0 
当然，メモリの内容をレジスタに持って 
くることもできて， 

LD A ，（9000 H ) 

のように書けば，900 Oh 番地の内容が A レ 
ジスタに代入される。カッコが付いている 
のは，ただ 

LD A ， 900 0 H 

と書いてしまうと，900 Oh 番地の内容ではな 
く，900 Oh という数を A に入れることになっ 
てしまうためだ（しかも， A には16進2桁 
までしか入らないから，実際には900 Oh を 
入れることはできない）。このように Z 80 の 
アセンブリ言語では「ある番地に格納され 
ている値」を表すときにはカッコを付ける 
ことになっている。 

逆に A レジスタの内容をメモリにしまっ 
ておきたけれは' 

図 1 Z 80 のレジスタ 


A |_ ] _ ] F 

B 1 I ~l C 

D I I ~l E 

h I r 1 し 


IX [ 
IY [ 


LD (9000 H)，A 
のようにする。 

〔アドレツシングモード 

前述したように，同じ LD 命令でも後ろ 
のほうをちよこちよこと変えることで操作 
の対象が違ってく，る。この「操作対象の指 
定」のことを「アド レッシン グモ ー ド」と 
いぅ。 

LD A ，90 

のように「ただの値（即値)」を指定する 
形式を「イミデイエイトアドレッシング」 

i いい， 

LD A.H 

のようにレジスタを直接指定する形式のこ 
とを 「レジスタ 直接 アドレッシング ふさ 
らに， 

LD A ，(9000 H ) 

のようにメモリ番地を直接指定する形式を 
「絶対アドレッシング」と呼ぶ0 

レジスタ直接があるのだから「レジスタ 
間接」もあるんじゃないかとか，絶対アド 
レッシングがあるからには「相対アドレッ 
シング」もあるに違いないと考えた人はい 
い勘をしている。これらについてはいずれ 
実例が出てきたところで説明しよう。 

ところで BASIC の場合，たとえば PRI 
NT 文の後ろにくるのが変数だろう力' た 
だの数字だろうが，配列だろうが構わなか 
ったわけで， アドレッシングモー ドに 相当 
する概念は存在しなかった。その意味では， 
ずっと BASIC を使ってきた人には アドレッ 
シングモー ドなんてのは非常に奇異なもの 
に見えるだろう。 LD 命令は値を代入する 
命令た' と知っていれば， アドレッシング 
モード なんて覚えなくても 

LD なんとか，かんとか 
と書けばいいように思うかもしれない。 

が，残念なことにマシン語（特に Z 80) 



A ， 

B ， 

D ， 

H ， 

SP 

PC 

I 

R 


]F ， 
] C ' 
] ビ 


ではこの考え方は通用しない。そのココロ 
は， 「マシン 語では アドレッシングモード 
が違うだけで， CPU にとっては別の命令と 
みなされる J という点にある。もう少し言 
うと， 「 CPU にしてみれば違う命令なのだ 
が，同じ働きの命令は同じ記号で表した 
ほうが，プログラムする人間にとってわか 
りやすいからアセンブリ言語では同じ記号 
を使うことにした」というだけのことだ。 
本当は， 

でべでべ 9000 H 
と書けば 

LD A , (9000 H ) 

の意味で， 

あわあわ9000 H 
と書けば 

LD (9000 H)，A 

の意味になる，というように決めてもよ力* 
ったけれども（事実 Z 80 の前身である8080 
という CPU 用のアセンブリ言語では似た 
ようなことをしている），使い分けるのが 
面倒だから LD に統一されていると考えて 
ほしい。 

そして，ここが肝心なところなのだが， 
「ほんとは違う命令に同じ記号を割り当て 
た j ために，「一見ありそうな命令が存在 
しない」ということが起こる。たとえば 
LD (9000 H )，(9001 H ) 

のような形式はないし， 

LD (9000 H ),45 

のような形もない0さらには，アドレッシ 
ングモードとレジスタの組み合わせにも制 
限があり， 

LD (9000 H),A 

LD A ,(9000 H ) 

はあっても 

LD (9000 H)，B 

LD B ，(9000 H ) 

はない。どの組み合わせがあって，どれが 
ないのかは命令表を参照してほしい。ただ， 
A レジスタはかなり特別扱いされていて， 
命令にもよるが，ほとんどのアドレッシン 
グモードとの組み合わせがサボートされて 
いる0 


計算してみよラ 


前節で A レジスタは特別なレジスタだと 
H った。どのくらい特別かというと，わざ 
わざ 「アキュムレータ （加算機）」という名 
前がついているぐらい特別だ。その名が示 
すように， A レジスタは計算をするときに 
は重要な地位にある。 

Z 80にできる演算は足し算，引き算 ， A 




Z80 マシン語ゲームエ房 119 



































ND (論理積)， OR (論理和)， XOR (排他的 
論理和）しかない。これらはアセンブリ言 
語ではそれぞれ 
ADD 
SUB 
AND 
OR 
XOR 

という命令で表され， （8 ビット演算では） 
「 A レジスタになんかを足して結果を A レ 
ジスタに入れる」， 「 A レジスタからなんか 
を引いて結果を A レジスタに入れる」とい 
うように，必ず A レジスタを使って計算す 
ることになっている。 

リスト2を見てもらおう。このプログラ 
ムは A レジスタと B レジスタに適当な数を 
入れておいて，足した結果 （ A レジスタ） 

を16進数で表示するものだ。例によって， 
「 A レジスタを16進数で表示する」処理は 
S - OS “ SWORD ” のサブルーチンを利用し 
ている。また，リスト1では “ Z ” を表示 
したあと改行していなかったが，今度は最 
後 （14 行）に S - OS の改行するサブルーチ 
ン （# LTNL ) を呼び出すようにしてある。 

しばらくはこのプログラムでレジスタに 
入れる値を変えたり，8行目を9行以下に 
注釈で示したように変更して遊んでみてほ 
しい。特に，論理演算がどのようなものか 
自信がない人は，レジスタに与えた値と結 
果をよ〈見比べてみるとよいだろう。遊び 
飽きたら（オーイ，ちゃんと試してみた？） 
次に進む。 

リスト2を見て，または実際に試してみ 
るうちに，いくつかの疑問が生まれたこと 
と思う0まず，リストを見て気がつくのは 
ADD ん B 
SUB B 
AND B 
OR B 
XOR B 

というように， ADD 命令だけには “ A ，” 

が付いているが，ほかの命令には付いてい 
ない点だろう。 

すでに述べたように，8ビット演算では 
必ず A レジスタとの間で演算が行われる。 
だから, 

SUB A，B 
と書かずに 

SUB B 

と書くだけで「アセンブラにはちゃんと意 
味が伝わる」。逆の見方をすると， ADD 命 
令は 「 A レジスタではないもの」と足し算 
をすることもできるので，アセンブラに区 
別できるように A を付けるんだ。それがな 


にかは来月説明する。 

2番目の謎は，勘のよい人ならリスト2 
を実行する前に，勘が鈍くてもマメに試し 
てみた人ならそのときに気づき，勘が鈍く 
てちゃんとリスト2で遊んでみなかった人 
はまだ気づいていないかもしれない。 

A 〜 L のレジスタは8ビットの大きさで 
〇〜255の値を入れることができるんだった。 
では， A が255のとき1を足すと， A はい 
ったいいく つに なるんだろうか？リスト 
2の6行目を 

LD A ，255 

7行目を 

LD B ,1 


初めての ZEDA 

ZE D A は S-OS 上で動作するエディタアセンブ 
ラで，ソースファイルの作成からアセンブル， 
完成したオブジェクトの実行，セーブまでを行 
うことができる。アセンブラの項で述べた分類 
でいうとアブソリュートアセンブラで，メモリ 
上にあるソースをアセンブルし，メモリ上に直 
接オブジ x クトを生成する。 

いきなりだが，ごく簡単なソースプログラム， 
リスト a ) を打ち込んでもらおう。手順は次のよ 
うになる。 

まず， S-OS“SWORD ••のモニタ上から 
#LZEDA 

として ZEDA をロードし， 

#J 3000 

で ZEDA を起動する。起動時はアセンブラモード 
だから 
E 

でエディタモードに入り，さらに 
E> 

のプロンプトに続いて 

E>l 

でインサートモード（つまり挿入モードだな） 
にし，一気にリストどおり打ち込む。当然，各 
行の最後ではリターンキーを押す。スペースが 
入っているところには必ずスペースを入れ，入 
っていないところには決して入れてはいけない。 
たとえば， 3 行目は行頭にスペースが入ってい 
ないから頭に余分なスペースを入れないように 
する。 

打ち間違えたときは，リターンキーを押す前 
であればカーソルを動かして修正することがで 
きる。リターンキーを押してしまってから間違 
いに気づいたのなら，「放っておく」こと。多 
少間違えても，とにかく最後まで打ち込んだら 


として試してみよう。 

結果は， 

00 

と表示されたはずだ。どうしてか？ 

255は16進数で書くと 
FFh 

となり，1は16進数に直しても 
1h 

のままだ。 FFh に 01 h を足すと，本当は 
FFh + 01h = 100h 

とならなければならない。ところが， A レ 
ジスタには16進2桁の数までしか格納でき 
ないので， Z 80 は下2桁だけを残したとい 
うのが真相だ。はみ出した上の桁は「どこ 


とすると，リスト b ) のようなリストが表示され 
る。この状態では BASIC のようにカーソルを動 
かして自由に修正することができるので，間違 
いがあれば直す。修正が終わったら，また BRE 
AK する 0 
次に 
E>A 

としてエディタモードを抜け，アセンブラモー 
ドに戻り， 

A// 

と打ち込むとアセンブルが行われ，本文のリス 
卜丨が画面に表示される。エラーが起きたら， 
またエディタモードに入って修正することにな 
る。 

以上が ZEDA を使った ソースの 作成，アセン 
ブルの一般的な手順だ。今後リストはリスト I 
の形式で掲載される。なお，上の例でもわかる 
ように，「この ソース リストを打ち込みましょ 
う j と書いてあったら，リスト I のうちリスト 
a ) に該当する部分だけを打ち込むことになる。 


リスト a) 



ORG 

8000H 

♦PRINT 

EQU 

1FF4H 

1 

LD 

A,90 


CALL 

RET 

#PRINT 

リスト b) 

1 

2 ； 

ORG 

8000H 

3 #PRINT EQU 

4 ; 

1FF4H 

5 

LD 

A, 90 

6 

CALL 

#PRINT 

7 

RET 



リス : 卜^爹 ; .ソ 


8000 




1 


ORG 

8000H 

8000 




2 

； 



8000 




3 

#PRTHX 

EQU 

1FC1H 

8000 




4 

#LTNL 

EQU 

1FEEH 

8000 




5 

; 



8000 

3E 

12 


6 


LD 

A ， 12H 

8002 

06 

34 


7 


LD 

B,34H 

8004 

80 



8 


ADD 

A,B 

8005 




9 


SUB 

B 

8005 




10 


AND 

B 

8005 




11 


OR 

B 

8005 




12 


XOR 

B 

8005 

CD 

Cl 

IF 

13 


CALL 

#PRTHX 

8008 

CD 

EE 

IF 

14 


CALL 

#LTNL 

800B 

C9 



15 


RET 



BREAK してインサートモードを抜ける。 
E>TI 


ここで 
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かに」行ってしまった。 

次に， 0から1を引〈とどうなるのだろ 
うか。これも試してみよう。6行目から8 
行目を 

LD A ，0 

LD B ，1 

SUB B 

と変更してアセンブル，実行してみると， • 
結果は 
FF 

となる。足し算の場合がわかれば，この結 
果の意味するものもピンとくるに違いない。 
0からでは1が引けないから， Z 80 は，*本 
当はないはずの上の桁から1を借りてきて， 
IOOh — 01h のつもりで計算する。結果は言 
うまでもなく FFh となる。石萑力 M こ FFh に 01 h 
を足すと 00h になるのだから， 00h から 01h 
を引けば FFh になってもおかしくはない。 

ここで，ひとつ面白いことがわかる。あ 
る数 N のマイナスは0 - N と等しいはずだ 
から， 00 h から 01 h を引いた結果の FFh は「マ 
イナス1」だというようにも解釈できるだ 
ろう。だからこそ， FFh と 01 h を足すと 00 h 
になったという見方もできる。次の節では 
マイナスの数の扱いに ついて， さらに突つ 
込んだ話をしてみよう。 


255 =— 1 ? 


僕は A 〜 L のレジスタには〇〜255の値を 
格納することができると言った。ところ力 ? ， 
FFh はどうやら 一1 として扱ってもよいよう 
だ'し，さらに FEh = — 2， FDh =—3 というよ 
うにマイナスの数らしいものが現れてきた。 
この矛盾からは，僕があっさり引き下がる 
ことで解決される。 

そう， FFh は一1と言っていい。 

より正確には，プログラムのなかで一1と 


16 進数 

我々が普段使っている 10 進数では，〇〜 9 の 10 
種類の数字を使って数を表し，丨桁で表せる最 
大の数である 9 に丨を足すと繰り上がって 10 にな 
る。コンピュータの世界でよく使われる 16 進数 
では，〇〜 9 と A 〜 F の 16 種類の文字を使って数 
を表し，やはり丨桁で表せる最大の数 Fh に丨を 
足すと，繰り上がって 10 m になる。ここで右下の 
小さな “H" は 16 進数で表記されていることを 
表している。 

なお， ZEDA で 16 進数を記述するときは 
$1234 

のように頭に“$”を付けるか 
I234H 

のように末尾に “H” を付ける。 

表に 1 ^進数と W 進数，そしてその次によく使 
われる2進数の関係をまとめておく。 




して扱われていれば一 1 だし， 255 だとして 
扱われていれば 255 だと言える。場合によつ 
ては，どちらにも解釈できるんだ。一般に 
コンピュータでは負の数は「2の補数表現」 
という形式で表す。ある数の2の補数は， 

1) まず，その数を2進数で書き表す 

2) 1桁ずつ見て，1であれば0に，0で 
あれば1に反転する 

3) 得られた結果に 1 を足す 

という手順で求められる。たとえば一2は 

1) 2 = 00000010b 

2) 0 と 1 を反転すると 111111 01b = FDh 

3) 1 を足すと FEh 

となる。同じ手順を FEh に施すと，ちゃん 
と2に戻ることを確認してほしい。 

こう考えていくと，ある数をプラスとみ 
なすかマイナスとみなすかは，その人次第， 
プログラム 次第ということになる。それで 
はなにかと不便なので，マイナスの数を扱 
うとき，普通は2進数で表したときのいち 
ばん左の桁（最上位ビット）が1であれば 
負の数，0であれば正の数とみなすことに 
なっている。8ビットでは 
1000000 0b 〜 011111 11b 
10 進数に直すと 


-128 〜127 

の範囲の数を表現できるわけだ。この表現 
は今後もちよ〈ちよく出てくることになる 
から，頭の隅にでも入れておいてもらおう。 


キヤリフラク' 




リスト2を使った実験で，255に1を足す 
と0になることがわかった。本当は繰り上 
がりがあったわけだが，レジスタの大きさ 
の制限から，繰り上がった分はどこかに消 
えてしまっている，そう説明した。実は繰 
り上がった1ビット（2進1桁）は消えた 


表1 


10 進数 

16 進数 

2 進数 

0 

1 

0 

I 

0 

I 

1 

2 

1 

2 

1 

10 

3 

3 

II 

4 

4 

100 

5 

5 

101 

6 

6 

1 10 

7 

7 

III 

8 

8 

1000 

9 

9 

1001 

10 

A 

1010 

II 

B 

1011 

12 

C 

1100 

13 

D 

1101 

14 

E 

1110 

15 

F 

1111 

16 

10 

10000 

32 

20 

100000 

255 

FF 

11111111 


のではなく，「キヤリフラグ」に保管されて 
いる。だから， ADD 命令で足し算をしたあ 
とでキヤリフラダを調べれば，桁上がりが 
あったかどうかを知ることもできる。 

図1をもう一度見てほしい0 A レジスタ 
の隣には， F というレジスタがある。この 
レジスタは，これまでに話してきた A など 
のレジスタとは違った性格のもので，1ビ 
ット1ビットが独立した意味を持っている。 
というより，1ビットずつ独立したものを 
い〈つもまとめて，見かけ上8ビットレジ 
スタの形にしたと考えてもらいたい。キヤ 
リフラグは，この F (フラグ）レジスタのな 
かの1ビットに付けられた名前だ。 

いままではレジスタは「変数のようなも 
の」であって，値を格納して演算に使った 
りしたわけだが，フラグレジスタはその性 
格のため，値を代入して保存しておくよう 
な用途には使えない。キヤリフラダの例で 
もわかるように，演算結果によって自動的 
に値が変わってしまうからだ。文字どおり， 
フラグの集合でしかない。そのため 
LD F ，10 

とか 

LD F.A 

のような命令はない。繰り返しになるが， 
フラグレジスタは1ビットごとに別々の意 
味があるのだから，全体 （8 ビット）をま 
とめて扱うのは意味のないことだ。 

さて，キヤリフラグのお陰で，足し算の 
ときの桁上がりを知ることができるように 
なった。では， SUB 命令で引き算をしたと 
きの桁借りを知る方法もありそうだ。実は 
このときもキヤリフラグが使われ，借りが 
生じると，キヤリフラグは1になる。 

ADD 命令のときは「繰り上がった1ビッ 
卜がそのままキヤリフラグに入る」と考え 
ても，「繰り上がりが起こったことを表すた 
めに」キヤリが1になったと考えてもよか 
った。けれども，引き算の場合は「借りが 
生じたことを表すために」キヤリが1にな 
るとしか考えようがない。ここらあたりで， 
「フラグ」というものの性質が少しはっきり 
してくるように思う。 

また， AND , OR , XOR の各命令を実行す 
ると「キヤリフラグは常に0になる」。この場 
合，桁上がりも借りも生じないから，キヤ 
リが0になると考えてもらっていいだろう。 
ここまでをまとめておくと， 

1) ADD 命令実行後，桁上がりが生じれば 
キヤリは1，生じなければ0 

2) SUB 命令実行後，借りが生じればキヤ 
リは1，生じなければ0 

3) ADD ， OR，XOR 命令実行後はキャリ 
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は常に 0 
となる。 


ゼ□フラグ 


キヤリフラグに続いて，もうひとつのフ 
ラグを紹介しておこう。「ゼロフラグ」と 
いう名のこのフラグは，名前が示すとおり 
演算の結果が0になったかどうかを表す。 

たとえば， 

LD A.OFFH 

ADD A ,1 

のように A レジスタに FFh を入れておいて 
1を加えると，結果は OOh なのでゼロフラグ 
が1になる。同様に 
LD A ，5 

SUB 5 

と，引き算の結果 OOh になる場合もゼロフラ 
グが立つ。 AND , OR , XOR の各命令を使っ 
たときも，結果が0であればゼロフラグは 
1，そうでなければ0になる。 

ここで，またまたサンプルを動かして遊 
んでもらうことにする0リスト3は A レジ 
スタに適当な数を入れておいて （8 行)，足 
し算をしてみて （9 行)，結果の値 （16 進）と 
キヤリフラダ，ゼロフラダの状態を表示す 
るプログラムだ。結果は 

A レジスタキヤリゼロ 
の形式で 

46 0 0 

のように表示される。例によって，8行目 
の値と9行目の演算命令を変えていろいろ 
試してみること。 

10行目以降では，まだ説明していない命 
令をビシバシ使っている力 5 '，気にせずに実 
行結果だけに注目してほしい。 

ところで，先ほどからなにげなく 
SUB 1 

のように直接値を記述する形式（イミディ 
エイトアドレッシングというんだったね） 

を使っていることに気づいているだろう力、。 
リスト2ではわざわざ 
LD A ， なんとか 

LD B , かんとか 

ADD A，B 

のように書いていたが，イミディエイトア 
ドレッシングを使って 
LD A ， なんとか 

ADD A , かんとか 

と書いても同じ結果を得ることができる。 

演算命令で使えるアドレッシングモード 
はほかにもあるのだ力 5 '，いまのところレジ 
スタ直接とイミディエイトだけを使ってい 
くことにする。 . 

122 Oh! X 1988.8. 




無条件分岐 


特に説明しなかったし，誰も気にはしな 
かったと思うのだがマシン語プログラムは 
(ソースで見ると）上から順に実行される。 
このあたりは BASIC なんかの言語となんら 
変わらない。 BASIC では処理の流れを変え 
たいときには GOTO 文を使った。マシン語 
にもそれに相当する命令， JP がある。 

JP は JumP の略で，指定のアドレスに処 
理を移す（分岐する）命令だ。リスト4を 
見てもらおう（慌てて実行しないように）。 
このプログラムは JP 命令を 使っ た無限ルー 
プの例で，実行するといつまでも同じとこ 
ろをグルグル回るから， S - OS に戻るには 
リセットスイッチのお世話にならな〈ては 
ならない0害のない「暴走プログラム」だ0 
JP の後ろには 
JP 8000 H 

のように分岐先アドレスを書くが，普通は 
リスト4でやって見せたように 
JP LOOP 

とラベルを 使う。 ラベルを 使うのは， プロ 
グラムの 読みやすさを向上させる以外に， 
次のような必然性がある。 

マシン語プログラムでは，分岐先はアド 
レスで指定しなければならない。すでにリ 
スト1などで示したように，分岐先のアド 
レスが最初からわかっていれば，アドレス 
を直接記述することもできた。ところが， 
リスト4のようにプログラム内部に分岐す 
る場合は，アセンブルしてみるまで分岐先 
アドレスがわからない。 




そこで，「ここに分岐したい」というと 
ころにラベルという目印を付けておいて， 
JP や CALL などの分岐命令ではこのラベル 
を使って分岐先を記述するようにする。こ 
うしておけば，アセンブルするときにアセ 
ンブラが勝手にラベルのアドレスを計算し 
てくれるんだ。アセンブラを使う利点はこ 
んなところにもある。 

リスト4を見てのとおり，ラベルは行頭 
に置くことで定義される。ラベルに使える 
文字はアセンブラによって違うが ， ZEDA 
では「数字で始まらず，スペース，カンマ， 
コロン，セミコロンを含まない任意の文字 
列」が使える。また，アセンブラによって 
は「ラベルは何文字まで j という制限があ 
るが， ZEDA では1行に収まる限り何文字 
でも許される。 

また，説明が遅れてしまったが，アセン 
ブラは 行頭に スペースがないとラベルと み 
なすこ卜になっている。だから， LD や CA 
LL などの命令を使うときには，直前に いく 
つかのスペースを 入れなければ ならない。 
スペースの 数に決まりは ない が， プログラ 
ムを 読みやすくするために，行頭を8文字 
落とすのが一般的な習慣となっている。 

なお，リスト4では ラベルの 直後に コロ 
ンを ひとつ付けている。これも「習慣」で， 
ZEDA では コロンを 付けなくてもいいの だ 
が，なんとな〈見栄えがよいような気がし 
て，僕はいつも付けることにしている。 


条件分岐 


プログラムでは，ある条件に応じて処理 




リスト3 


8000 




1 


ORG 

8000H 

8000 




2 

; 



8000 




3 

#PRINT 

EQU 

1FF4H 

8000 




4 

#PRNTS 

EQU 

1FF1H 

8000 




5 

#PRTHX 

EQU 

1FC1H 

8000 




6 

#LTNL 

EQU 

1FEEH 

8000 




7 

; 



8000 

3E 

12 


8 


LD 

A,12H 

8002 

C6 

34 


9 


ADD 

A ， 34H 

8004 

F5 



10 


PUSH 

AF 

8005 

CD 

Cl 

IF 

11 


CALL 

#PRTHX 

8008 

CD 

FI 

IF 

12 


CALL 

#PRNTS 

800B 

FI 



13 


POP 

AF 

800C 

F5 



14 


PUSH 

AF 

800D 

3E 

30 


15 


LD 

A.30H 

800F 

CE 

00 


16 


ADC 

A，0 

8011 

CD 

F4 

IF 

17 


CALL 

#PRINT 

8014 

CD 

FI 

IF 

18 


CALL 

#PRNTS 

8017 

FI 



19 


POP 

AF 

8018 

3E 

30 


20 


LD 

JR 

A ， 30H 

801A 

20 

01 


21 


NZ.SKP 

801C 

3C 



22 


INC 

A 

801D 

CD 

F4 

IF 

23 

SKP ： 

CALL 

#PRINT 

8020 

CD 

EE 

IF 

24 

25 


CALL 

#LTNL 

8023 

C9 




RET 



U スト4 


8000 

1 

ORG 

8000H 

8000 

2 ； 



8000 

3 LOOP ： 



8000 C3 00 80 

4 

JP 

LOOP 










を振り分けることがある。 BASIC でなら 
IF 〜 THEN 〜 

というような構文がこれにあたり， Z 80 に 
も同じような機能を果たす命令がある。と 
いっても Z 80 には IF 〜 THEN のようなオー 
ルマイテイな命令はなく 
IF 〜 GOTO 〜 

IF 〜 GOSUB 〜 

IF-RETURN 

に相当する命令がバラバラに存在するだけ 
だ。それぞれすでに出てきた 

JP 

CALL 

RET 

の各命令を使う。書式は 

JP 条件，分岐先アドレス 
CALL 条件，分岐先アドレス 
RET 条件 
となる。 

さて，なにをもって条件とするかだが， 
マシン 語では「フラグの状態」を条件とし 
て利用する。つまり，「キヤリフラグ'が1な 
ら指定の アドレスへ 分岐する」，「ゼロフラ 
グが〇ならサブルーチンを呼び出す」とい 
った使い方をするわけだ。具体的な例を挙 
げると 

JP C , ERROR 
CALL NZ，TEST 
RET NC 

のように書く。 Ct か NZt かは「フラグ 
の状態を表す記号」で 

C : キヤリフラグが1ならば 
NC :キヤリフラグが0ならば 
Z :ゼロフラグが1ならば 
NZ :ゼロフラグが0ならば 
の意味になる。用語を持ち出しておくと， 
NC ， NZ はそれぞれ「ノンキヤリ」，「ノン 
ゼロ」と読む。 

ここで，読者にクイズを出そう 0 「 A レジ 


アドレス 

コンピュータのメモリは“バイト”という単 
位の小さな区切りに分けられている。それぞれ 
には「番地」とか「アドレス」と呼ばれる〇か 
ら始まる通し番号が付けられており， 「8000 h 番 
地 j のようにして参照される。仮にメモリを配 
列にたとえると，アドレスは添え字にあたると 
いえる。 

Z80 のメモリ空間は 64K バイト （IK バイト 
= 2 10 バイト=1024バイト）だから，0000 h 番地 
から FFFFh 番地までが存在することになる。 

また，丨バイトは「0か丨かを表すもの j を8 
つまとめたもので，「0かIか〜 j のことを“ビ 
ット”という。感覚的には丨ビットは2進数の 
/桁に相当し，Iバイト= 8ビットだから，2 
進数8桁の範囲の値を格納できることになる。 


スタの値と B レジスタの値:を比べてみて， 
等しければ指定アドレスへ分岐する」には 
どうしたらよいだろう力、。仮に分岐先アド 
レスは“ TEST ” という ラベルで 表すことに 
しよう。いままでに紹介した命令だけで実 
現できるから，しばらく考えてみてほしい。 

たぶん，もうクイズの答えはわかってい 
ると思うが，念のため確認しておこう。 

まず，最後の「等しければ^ 1 定アドレス 
へ分岐する」処理は 

JP 条件 ， TEST 

という形になるのは間違いない。 

JP A = B，TEST 

なんて書き方が許されれば，話はこれで終 
わりだが，あいにく JP 命令で使える条件 
は「フラグの状態」しかないんだった。そ 
こで， JP の前に別の命令でフラグをセッ 
卜しておき，そのフラグの状態によって分 
岐するようにしなければならない。どの命 
令を使うかだが， SUB 命令を利用するのが 
よさそうだ。 

もし A レジスタと B レジスタが等しけれ 
ば， 

SUB B 

を実行した結果は0となり，ゼロフラグが 
立つ。そのあとで 
JP ， Z，TEST 

とすれば目的を達成することができる。つ 
まりクイズの答えは 
SUB B 
JP Z , TEST 

となる。この組み合わせで， BASIC でいう 
IF A = B GOTO 〜 

に相当する処理が行えるわけだ。逆に 「A 
と B が等しくなければ分岐する」には 
SUB B 
JP NZ , TEST 

とする。 

では，クイズ第2弾。 「 A と B を比べて， 
A のほうが小さければ分岐する」にはどう 
すればよいか。 

今度はゼロフラグではなく，キヤリフラ 
グを使えばいい0 A レジスタから B レジス 
夕を引いてみて，「借り」が生じれば B の 
ほうが大きかったことがわかる。そこでク 
イズ2の答えは 
SUB B 
JP C , TEST 

となる。これも逆に 「 A が B 以上であれば 
分岐する」ようにしたければ 
SUB B 
JP NC , TEST 

とする。 

ここで， 


SUB B 

実行後のフラグの変化を，元の A レジスタ 
と B レジスタの値の大小関係別にまとめて 
ぉくと 

A く B キヤリ，ノンゼロ 
A = B ノンキヤリ，ゼロ 
A > B ノンキヤリ，ノンゼロ 
のようになる。 

では，クイズ第3弾。やはり A レジスタ 
と B レジスタを比較して， A が B 「以下」な 
らば分岐させるにはどうすればよいだろう。 
答えは次のようになる。 

SUB B 

JP Z，TEST 

JP C，TEST 

JP 命令を 2 つ並べるのがボイントで，最 
初に A と B が等しければ先に飛ばしてしま 
い，続いて A が B より小さい場合をチェッ 
クしている。 

さらにクイズ第4弾。今度のはちょっと 
奠隹しい。 A が B 「より大きい」ならば “ TE 
ST ” へ分岐するようなプログラムを考えて 
みてほしい。もちろん 

JP NC , TEST 

では A = B の場合も分岐してしまうから， 
うまくない。 

きっと悩んでいるだろうから，答えを教 
えよう。こうなる。 

SUB B 

JP Z , SKIP 

JP NC’TEST 

SKIP : 〜 

どういうことかというと ， A = B ならば 
最初の 

JP Z , SKIP 

で， “ SKIP ” というラベルに分岐する〇見 
てのとぉり “ SKIP ” へ飛んでくると，も 
う “ TEST ” への JP 命令があるところを通 
らな〈なってしまう。で， 

JP NC , TEST 

は 「 A > = B ならば〜」の意味だが，すで 
に A = B ではないことが保証されている力、 
ら，実質的に 「 A > B ならば〜」の意味に 
なるわけだ。 

では，最後のクイズ。 「 A > B ならばサブ 
ルーチンを コールす るにはどう したらよい 
か」 

一見， JP が CALL に変わっただけでクイ 
ズ3と同じだと思うかもしれない。そこで， 
まず考えるのは 
SUB B 
CALL Z , TEST 
CALL C，TEST 

のようなプログラムだろうが，残念ながら 
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間違いだ。仮に A と B が等しかった場合を 
考えてみよう。 

A = B なら Z フラグが立つ。そこで， 

CALL Z’TEST 

でサブルーチンへ分岐する。めでたしめで 
たしかと思うと，サブルーチンを呼び出し 
たのだから，サブルーチンの RET 命令で 


2) 背景は 3 X 3 文字の大きさのパーツを 
いくつか作って組み合わせる 

3) 弾は1文字の大きさで，自機が前方に 
まっすぐ撃つ弾と，敵が自機を狙って撃 
つ弾の2種類を用意する 

4) XI および MZ- 2500では8色の 8 X 8 
ドット PCG を使う 


フィックを使えとか，背景が2画面分じゃ 
少ないなんて寝ぼけたのはダメだぞ）あり 
がた一く参考にさせてもらうから，そっち 
のほうもよろしく。 

ふぅ,やっと終わった 



CALL C’TEST 

があるところに戻ってくる。まだ救いはあ 
って ， A = B だったのだからノンキヤリな 
のでこの行は素通りしてくれそうに見える。 
けれども，「もしかするとサブルーチン側 
でも ADD や SUB なんかの演算命令を使って 
いて，フラグが変化しているかもしれない」。 
運悪くキャリが立って帰ってくると 
CALL C.TEST 

で，もう一度サブルーチンを呼び出してし 
まうことになる。 

というわけで不正解。正しい答えは来月 
発表しよう。それまでゆっくり考えてみて 
ほしい。 

I キャラクタ募集のお知らせ） 

マシン語の話はここまでにして，最後に 
お待ちかねのゲームの話をしておこう0 
横 スクロールシュー テイング といっても 
たいしたものを作るわけじやない。グラフ 
イツクなどは使わず， 40 X 25 のテキスト画 
面だけですませる。当然，滑らかな動きな 
んてのからはほど遠いものになるだろう。 

また，データ量を極力押さえたいので， 

敵キャラの種類も片手に足りるぐらい（た 
ぶん2種類か3種類）にする。背景も2画 
面分だけ用意して繰り返すっもりだ。面も 
ひとつあればいいだろう。タイトルも付け 
なければ， BGM や効果音も考えない。も 
ちろん，アイテムの類を用意するつもりも 
ない0 

テキストでゲームが作れればグラフ イツ 
クでも作れる。2種類の敵キャラが動かせ 
るようになれば，20種類だろうが30種類だ 
ろうが動かせる。2画面の繰り返しで背景 
がス クロー ルできるようになれば， データ 
を増やせばいくらでも長くできる。1面が 
できれば，2面目もできる。ゲーム本体が 
できれば タイ トルを付けるくらい簡単だ0 
そんなノリで押してみようと思う。 

で，僕はキャラクタを作るのがおっくう 
なので，キャラクタパターンは読者の方そ 
れぞれに用意してもらうつもりでいる。以 
下に規格をまとめるから，この線に沿って 
作っておいてほしい。 

1) キャラクタの大きさは2 X 2文字 


5) MZ -700 はキャラグラで8色でもいい 
し，古旗君方式の2画面重ね合わせ疑似 
36色でもいい 

6) 背景は右から左へ流すので，自機は右 
向き，敵キャラは左向きとなる 

7) 敵キャラの「どれかひとつ」は， 2な 
いし 4 パターン程度のアニメーシヨンに 
する予定もある 

8) これもあくまで予定なのだが，彩りを 
添えるために 6 X 6 もしくは 8 X 8 程度 
の大きさのデカキャラがひとつあっても 
いいよ うに思う 

9) データの フォーマツ トはいまのところ 
特に指定しない。 BASIC で表示できるよ 
うにしておけば十分だ 

そうそう。この際だからサンプル用のキャ 
ラクタを募集してしまおう。自信作ができ 
たらどんどん送ってきてほしい。キャラク 
タパターンだけでなく，敵キャラなら移動/ 
攻撃パターンなんかも付けてくれると嬉し 
いな。ほかにもなにか要望があれば（ダラ 


疑似命令 

アセンブリ言語には疑似命令というものがあ 
る。これはマシン語本来の命令ではなく， 「ア 
センブラに対する指示 j をする命令群だ。いく 
つかの疑似命令があるのだが，ここではよく使 
う ORG と EQU の2つについてだけ説明しよう。 
ORG 命令は ORiGin の略で 
0RG アドレス 

の形式で書き，オブジェクトが「どの番地から 
始まるのか」を指定している。たとえば 
ORG 9D00H 

とあれば，プログラムは900011番地から始まる 
ようにアセンブルされることになる。特にアブ 
ソリュートアセンブラでは 0RG 命令で指定され 
たアドレスからオブジェクトを直接生成するの 
で， 0RG 命令を付け忘れたり，変なアドレスを 
指定したりすると，モニタやアセンブラを破壊 
する危険性があり，アセンブル時に暴走してし 
まうことさえある。 

本稿ではオブジヱクトは可能な限り800 0 m 番 
地から始まるように統一する。だから，どのサ 
ンプルを見ても，先頭に 
ORG 8000H 

と書いてあるはずだ。また，オブジェクトが80 
0011から置かれるのだから，実行するには S O 
S “SWORD” 上から 
林」8000 

とするか，または ZEDA のアセンブラモードで 
J 8000 

と入力することになる。 


〈っそ 一。 今月は思いっきり死んだ 。 Z 
80については知り尽くしているつもりだっ 
たのに，いざ，説明しようとしたら難しい 
のなんの。かなり説明過多になってしまった。 

えっ？ 「説明不足の間違いじゃない力、」 
って？ちゃうちゃう。ほんとはもっとあ 
っさり クールに まとめたかったんだ。とこ 
ろ力 ? ，ついついおせっかいして余計なこと 
まで話してしまったので，混乱してしまっ 
た読者もいるかもしれない。 

逆にいうと，ここに書いてあることを全 
部覚えようとする必要はないということだ。 
命令は使っていれば自然に覚えるものだし， 
用語に関してもそうだといえる。それより 
も，いくつか挙げた小さなプログラム例を 
実際に走らせて，気のすむまであれこれ試 
してみてほしいと思う。 

次回も引き続き Z 80 の命令解説をする。 
並行して実践向きの細かなテクニックなん 
かも紹介してみたい。 

じゃ，来月また会おう。 

なお， Z80 のプログラムは多くの場合，アセン 
ブルのときに指定したアドレス以外では動作し 
ない。だから， 

ORG 8000H 

としてアセンブルしたプログラムをいったんセ 
ーブしてから900011番地に口ードしたとしても 
実行することはできない。 

次に， EQU 疑似命令は EQUate の略で，「ラベル 
に定数を定義する j 命令だ。 

TEISUU EQU 100 

のような書式で使い，以後，100と書く代わり 
に TEISUU というラベルで記述できるようにな 
り，プログラムを読みやすくすることができる。 

注意しなければならないのは，ラベルは必ず 
行頭から書き始めなければならないことだ。上 
の例だと， “TEISUU” の前に余分なスペースを 
入れてはいけない。 

また，疑似命令ではないのだが，プログラム 
の可読性を上げる目的で，アセンブリソースに 
は注釈を入れることができる。具体的には，セ 
ミコロン以後から行末までは注釈とみなされる。 

フラグ 

「ある状態かどうかを0か丨で表すもの」を 
“フラグ”という。 BASIC でも変数をひとつ用 
意して，普段は0にしておき，なにかの条件が 
整ったら丨にする，といった使い方をするだろ 
う。これもフラグの例といえる。 

なお，フラグを文字どおり旗に見立てて，I 
にすることを「立てる j といい， 0にすること 
を「倒す」ということもある。 


124 Oh! X 1988.8. 
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実用 (？) オブジェクト指向のゲームプログラミング 


最終回 


Hamaguchi Isamu 

浜口勇 


オブジェクト指向の機能 


連載を通してわかりにくいという意見が 
多かったのだが，これの大きな原因のひと 
つは前処理を行うためのフイルタの意味や 
働きと実際にアプリケーシヨンを作るため 
の方法（というか考え方）を同時進行で 
説明してきたためだという気がする。そこ 
で，ここでは classm 自身の機能に絞り込ん 
で説明してみよう。 

「オブジェクト指向が〜」といままで説 
明してきたのだが，いったいどこからどこ 
までがオブジェクト指向なのかは漠然とし 
てはっきりしない。ちようどかつての構造 
化プログラミングのようなものだと考えれ 
ばよいだろうか？ 構造化に関してはダイ 
クストラ先生の原点があるわけなのではっ 
きりしているのだが，オブジェクト指向に 
関したパ、イブルといったものはどこにも存 
在しないように感じられる。 C にだって K 
& R があるのにだ。 

それで飞かつては Smalltalk =オブジェ 
クト指向という図式があったのでよかった 
のだが，今現在はそれもかなり怪しい。ち 
よっと考えただけでも C + +， Object C , 
CLOS などなど思いつくぐらいで，『日経パ、 
イト』に載ったオブジェクト指向言語の特集 

表1さまざまなオブジェクト指向型言語 

データの抽象化 

T -1 

C ++ 

Object C 

—— オブジェクト指向 

Smalltalk -80 

C し OS 


オブジェクト指向のゆくえ 


なんとかかんとかサンプルの スネークゲーム も出来上がり，完成 
しだ証しとしてオブジェ ク トのダンプ U ストも掲載する。この 
連載も.これでおしまいとなるが，最後にいままでのまとめと今後 
に対する展望などを考えてみることにしよろ。 


には聞いたこともないような言語の名前が 
たくさん出てきていた。そのうち IBM のい 
う COBOL 構造化プロダラミングのようにと 
んでもないオブジェクト指向も出てくる可 
能性もないとはいえない。 

ここで，これらの言語の指し示すオブジ 
ェクト指向というものを表1にまとめてみ 
た。 


C ++ と〇 bject C 


まず柚象データ型に近い（というかほと 
んどそのものということになっている）の 
が C ++。ちなみに 『 UNIX 原典』（パーソナ 
ルメディア刊）という本では 「 C における 
データ抽象化」というタイトルで C + + に 
ついて解説している。一応 ， C + + の売り 
としてオブジェクト指向をあげているとこ 
ろもあるが，結構怪しい面も多い。一般に 
こういったデータを抽象化して扱う機能は， 
C では構造体の拡張として， PASCAL なん 
かではレコードに対する拡張として持たせ 
るのが流行みたいになっている。 

C + + の場合はかなり汎用的に作られて 
いるのでやり方によってはあとで述べる0 
bject C みたいな処理を行うことも可能で 
ある。ただし ， Object C の ソース だって最 
終的には C に落ちるのである。やろうと思 
えばできる，と，それ用に作られていると 
は大きな違いがあるということである。 

それにしても，ただでさえ難しいといわ 
れている C にさらに+ +した言語というこ 
とで我々一般人の能力を超越している部分 
があるのも事実で，私にもよくわからない。 

さて，次は Object C だが，これはざっと 
見た限りでは classm ともたいして変わら 
ない 。 Object C 自身はオブジェクト指向ま 
つしぐらなので C + + に比べるとずいぶん 


とわかりやすい。 

変数に関しては明らかに，単なる構造体 
を使っているのだが，メソッドの呼び出し 
にどういった方法を使っているかははっき 
りしない（参考文献がよくなかった気もす 
るが)。しかし，いろいろな解説の記事を 
合わせて考えると， classm と同じ方法だろ 
うと考えられる。つまり関数へのポインタ 
を使うわけである。安易な方法ではあるが， 
これ以上複雑な方法を取ると，リアルタイ 
ムな応用に使用できなくなってしまう0 
それでは， C の構造体をどうやって使う 
かについて説明していこう。 

まず，スネークゲームのクラス object が 
C ではどのように表される？ これについ 
て考えてみると，次のような定義が作られ 
るだろう。 

struct mateclass { 

struct mateclass *mclass; 
struct c_method *method; 

} m .object = I&m .object,&object_cmethod}; 
struct class { 

struct mateclass *mclass; 
struct i.method ^method : 
unsigned int memsiz; 

} object = { &m_object ， &object_imeth 
od,sizeof(struct instance)( : 
struct instance { 

struct class *class; 

} i_object : 

struct c_method { 

(*alloc)(); 

(*new)(); 

} object_cmethod={&object_alloc(), 

&0Dject 一 new}; 

struct i .method { 

(*free)(); 
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(* freeobj )(); 

} object_imethod = { & object _ free (), 
& object_freeobj ( )}; 

ざっとこういった感じである。これでメ 
ソッドの new を呼び出すには，クラスへの 
ポインタを使って， 

ob = (* ( object . method - > new ) )(& object ); 
というふうに行えばよいのでかなり楽だ。 
変数へのアクセスも， 
i = cl -> memsiz ; 

のように行えばよいのである。だから Z 80 
などのそれほど機能が高くない CPU でも， 
LSI -C や MSX-C のように実用性の高い C 
コンパイラを使うことによって，容易に実 
現できる。 

実際に classm を C 用に拡張する場合に問 
題になるのは，いまアクセスしているオブ 
ジェクトを指すためのポインタをどうする 
かという問題である。 

classm では BC レジスタに割り振ってい 
たのだが， C では明示的にどのレジスタに 
レジスタ変数を割り振る，といったことが 
できないので，レジスタの代わりに大域変 
数に割り振るといった処置が必要になる。 
しかし私自身としては，前記の例でもそう 
なっているように，関数の第1引数を必ず 
オブジェクトへのポインタとして割り振る 
という方法を使っている。そうすれば受け 
側のメソッドでは， 
object _ new ( cl ) 
struct class * cl ; 

{ 

というかたちで受ければよいことになる。 

もしもこれを大域変数で行ぉうとすれば， 
同じ変数の型がオブジェクトごとに異なる 
という処理を行わなければならな〈なり面 

図1単純継承と多重継承 



単純継承 



倒である。幸い， LSI - C などで 
は第1引数を HL レジスタに割 
り振っていてメソッドがア セン 
ブラで書かれていてもそれほど 
処理に変化はない。しかし，通 
常の C の場合はスタック上に積 
まれるために処理を少し変えて 
やらなければならなくなるだろ 
う。すべてをアセンブラで行う 
のではなくて，このように C を 
中心にして細力 H 、 ところをアセ 
ンブラで処理するというふうに 
すると開発もかなり容易になるし，プログ 
ラム全体の見通しもよくなる。 


Smalltalk 


さて，その次に〈るのが Smalltalk であ 
る。これは Smalltalk -80 に限ってもバー 
ジョンアップがなされていて，ひとつで 
はない。つまり多重継承が可能になる前と 
後では大きく異なるということがいえるの 
である。 

ひとつのクラスに対してその親（スーパ 
ークラス）がひとつなのを単純継承，複数 
あるのを多重継承といって分けている（図 
1)〇 

単純継承の Small talk というのは ， class 
m なんかと比べてもたいして変わらないじ 
やないかと思われるかもしれないが大きく 
異なる点が2つある。 

まずひとつ目は，呼び出されるメソッド 
が決定実行時にされるということである。 
たとえば classm ではどのオブジェクトを呼 
ぶかはアセンブルする前に決定しておいて， 
定義してやらなければならない。しかし， 
Smalltalk の場合には実行時に呼び出すメ 



ソッドの名前を基に，メソッドのテーブル 
を検索してメソッドを探し出す。つまり呼 
び出し側は，どんなオブジェクトにメッセ 
ージを送るか，ということをまった〈知ら 
なくてもよいことになる。 

さて，この差はどれくらい大きいの；^ろ 
うか？ 当然， Smalltalk のほうが自由度 
が高い（オブジェクト令えわかれば，それ 
がどんなクラスに所属していようと，メッ 
セージを送れる)。しかし，メソッドの検索 
を行う限りリアルタイムゲームには使用で 
きないというのは，事実である。つまり処 
理時間に幅ができてくるからだ。 

オブジェクト指向で疑問なのはこのあた 
りである。メソッドを実行時に決定しない言 
語はオブジェクト指向と言えないのだろう 
か？そして，それは言語の処理能力にど 
のようにかかわってくるのだろうか？ 誰 
か，知っていたら教えてほしいものである。 

さて2つ目の差だが， Smalltalk という 
言語は一度作成されたオブジェクトを解放 
する命令を持たないということである。つ 
まり，作りっぱなしなわけで，あとはシス 
テムが管理してくれるために， ユーザーは 
間違って解放したオブジェクトに対してア 
クセスするといったミスを犯す心配がない0 
これは逆にいうと Lisp 同様死ぬほどメモ 
リを使うということで，用途はどうしても 
限られてくる。 

では，多重継承について考えてみよう。 
単純継承の場合は，メソッドは実行時に検 
索しなければならなかったが，変数に関し 
ては， C の構造体のようにコンパイルした 
ときに決定されればそれでよかった。なぜ 
なら，継承していくにしたがって構造体の 
後ろに新しい要素が付け足されていくだけ 
で，全体の順番が変化することはないから 
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だ。ところが多重継承ではそうはいかない。の絶対番地が決定するので，中間コードの 


ある変数がメモリ上のどこにあるかは，一 
定ではないために，先頭からの顺番とかで 
はアクセスできないのである。 

たとえばクラス A と B を多重継承した C 
を考えると， 
struct A { 


int 

aaa ; 

int 

bbb ; 

int 

ccc ; 

int 

ddd ; 

int 

aaa ; 

int 

bbb ; 

int 

ccc ; 

int 

ddd ; 


クラス C のメソッドの中では， 
l=cl —ノ CCC ; 

という式は正しいが，クラス B のメソッ 
ドの中で，同じ式を使うと， ccc は変数の 
最初の要素を指すというかたちにコンパイ 
ルされてしまっているため，実際には aaa 
に対してアクセスしてしまう結果となる。 
そのため，変数の名前を使って毎回変数を 
探してやらなければならない。つまり，多 
重継承の場合の変数は実行時にならなけれ 
ば決定しないということなのだ。 

たとえば BASIC のようなインタプリタ 
でも，変数に1回でもアクセスすれば，そ 


梅村恭司， 「 Smalltalk -80 入門 j ， サイエンス社 
安いし，薄いし，内容もよい，という牛丼の 
ような本。結局これがいちばん役にたったと 
いう点で，言語的に攻めたい人にはお勧めで 
すね。 

鈴木則久編，「オブジェクト指向解脱と WOOC 
’85からの論文 j ， 共立出版 

Smalltalk 以外のオブジェクト指向についても 
いろいろと載っており，バラエティに富んで 
いるので読んでいて面白い。ただ，論文とい 
うだけあって，すぐに役立つようなものでは 
ない0 

館野昌一，及川一成，田制贵俊，「基礎からの S 
malltalk -80 Jf 工学社 

こういった本は，実際に Smalltalk -80 を使え 
る環境にある人が読むと身につくのだろうが, 
一般のパソコンユーザーには必ずしも勧めら 


中にその番地を格納して処理の高速化をは 
かるのだが，この場合は変数をアクセスす 
るたびに変数の番地を必ず求めなければ正 
しい処理は望めない。そういう意味では， 
当然 BASIC よりも処理スピードは遅くな 
るだろう。そして，それにも増してさらに 
処理時間を推定するのが困難になる。つま 
りリアルタイム処理向けでなくなるわけで 
ある0 


未知数の CLOS 


それでは最後に，複数のオブジェクトに 
対してメッセージを送れるという CLOS を 
見てみよう。 

これは 『 bit 』 の記事で読んだだけなので 
あまり詳しいことは知らないが一度にひと 
つの オブジェクトにしかメ ッ セージを送れ 
ないのは不自由だということらしい。もし 
一度に複数のオブジェクトにメッセージを 
送れるならば，いままで行ってきたひとつ 
のオブジェクトに対してだ'けメ ッ セージを 
送るというのも，その特別な場合として使 
用できるということになるわけである。こ 
れは，一見して普通の関数とあまり変わら 
なくなってしまう。 

たとえばオブジェクト A と B に C という 
メッセージを送るというのを C 言語風に書 
くと， 

C ( A , B ) ; 

となって，どこがオブジェクト指向なのか 
わからない。し力、し，実際には A ， B がど 


れないかもしれない。 

特集「オブジェクト指向プログラミング j ， イン 
ターフェース， 1987. 1. CQ 出版 

これからはオブジェクト指向の時代だ，頑張 
るぞ 一， といったやる気がわいてくる特集。 
ただしこれも，すぐに役に立つというもので 
はない。オブジェクト指向の概念はなんとか 
なったが，どうすればアプリケーションがで 
きるだろう？ といったところまでだったの 
が残念。 

上谷晃弘，「統合化プログラミング環境 Sm 

alltQl k -80 1 interlisp-D 」，丸蕃 

筆者連が DTP の富士ゼロックスだけあってテ 
クニカルイラストやレイアウトはかくのごと 
くあるべきだ，というお手本のような本。特 
に内容を印象的に見せるテクニカルイラスト 
には，感心させられる。 


のクラス に属したオ ブジエクト かによって 
呼び出されるメソッド C は毎回異なること 
になるわけである。 

たとえば，情けない例で申し訳ないの 
だが， 

printf (“％ d ”， n >; 

とやっても， 
printf ( fd ，“％ d ”， n ): 

とやっても，それぞれ呼び出されるメソッ 
ドが違うのだからよいことになる。なぜな 
ら，最初の引数のクラスによってメソッド 
が選択できるからだ（これはべつに“％ d ” 
printf : n と fd printf :“％ d”n でもかまわな 
いのだけどもね)。ここまでくると Prolog 的 
になってくるような気がするが，そうなる 
とどうなるか？ということはまだよくわ 
からないみたいだ。 


ROM 化について 


私の場合ビデオゲームのプログラムがテ 
ーマであり， ROM 化は避けられない問題 
だ。実際には classm の場合，インスタンス 
変数のみ RAM 上に展開するようにしている。 
これはちようど， LSI - C なんかが取ってい 
る方法と同じといえるだろう。 LSI - C では 
初期化された変数や構造体はすべて dseg 
( ROM 上）にくるようになっている。 

classm では初期化された構造体=クラス 
変数ということで，クラス変数には参照は 
できるけれども，変更ができないという制 
限が付くことになった，なにしろ ROM 上に 
あるわけだからね。つまり LSI - C とかを使 
えば C で作ったプログラムでも ROM 化で 
きるわけで， C でオブジェクト指向をやり 
たい向きには最適かもしれない。 


バク'を飼い馴らす 


この連載で心残りなのは，もう少し大き 
めのプログラムを紹介したかったというこ 
とだ。また， C とかを使わないとなかなか 
実用的な線はクリアできないというのも事 
実で，やはり16ビット機向けのものになっ 
てしまうのかもしれない （ CPU の機能とい 
うよりも，単に C が普及しているかしてい 
ない 力、， という点において)。 

ところで，個人的にオブジェクト指向の 
どこが良いかというと，実は、バグが出ると 


オブジェクト指向に関する参考文献 


実用 （ ？）ォブジェクト指向のゲームブログラミング 127 







0180 

0188 

0190 

0198 

01A0 

01A8 

01B0 

01B8 

01C0 

01C8 

01D0 

01D8 

01E0 

01E8 

01F0 

01F8 


0600 

0608 

0610 

0618 

0620 

0628 

0630 

0638 

0640 

0648 

0650 

0658 

0660 

0668 

0670 

0678 


0480 

0488 

0490 

0498 

04A0 

04A8 

04B0 

04B8 

04C0 

0408 

04D0 

04D8 

04E0 

04E8 

04F0 

04F8 


SUM ： 

0500 

0508 

0510 

0518 

0520 

0528 

0530 

0538 


2111 
09 86 
01 AF 
88 C5 
CD 3C 
C8 21 
00 FF 
46 06 
0A 0D 
00 01 
24 32 
5E 06 
C5 01 
66 06 
F5 01 
01 00 


0580 

0588 

0590 

0598 

05A0 

05A8 

05B0 

05B8 

0500 

05C8 

05D0 

05D8 

05E0 

05G8 

05F0 

05F8 


0540 

0548 

0550 

0558 

0560 

0568 

0570 

0578 


0400 

0408 

0410 

0418 

0420 

0428 

0430 

0438 

0440 

0448 

0450 

0458 

0460 

0468 

0470 

0478 


0200 B0 CA 0A 02 21 
0208 3C 01 Cl C9 21 
0210 73 23 72 EB 5E 
0218 70 21 04 00 09 
0220 7B B2 CA 2C 02 
022819 7123 70 C9 
0230 09 5E 23 56 D5 
0238 09 5E 23 56 EB 
0240 56 EB A7 ED 42 
0248 0211 04 00 19 
0250 72 7B B2 CA 66 
0258 00 19 E5 21 02 
0260 23 56 El73 23 
0268 01 C9 21 04 00 
0270 56 C9 72 02 76 
0278 9E 01 AE 02 B8 


SUM ： E9 2E C3 AA 38 4C 4C F3 


SUM ： 0B F6 D0 23 B14E 5A B8 


SUM: 7B 75 B2 CA 39 E7 C5 B1 


SUM: 

0700 

0708 

0710 

0718 

0720 

0728 

0730 

0738 

0740 

0748 


SUM: 4C 6F B9 DC 13 C8 3B BB 9B40 


62 

41 

5F 

3D 

C2 

28 

D2 

4D 

IF 

9A 

CA 

E4 

52 

E4 

74 

C8 


SUM：1219 8D 07 CA F312 A9 E5CF 


SUM ： 4F 73 75 CC 79 40 40 12 43F1 


C7 
1A 
67 
8A 
89 
65 
BB 
89 
A 8 
64 
BB 
B2 

27 
3A 
08 

28 


SUM: 

0380 

0388 

0390 

0398 

03A0 

03A8 

03B0 

03B8 

03C0 

0308 

03D0 

03D8 

03E0 

03E8 

03F0 

03F8 


0320 0313 
0328 88 C9 
0330 011C 
0338 01 Cl 
0340 3215 
0348 00 CD 
0350 88 21 
0358 A7 CA 
0360 Cl D1 
0368 B4 C2 
0370 06 00 
0378 C2 63 


SUM: B2 8F 8D EE E6 D0 84 E6 3050 


0100 

0108 

0110 

0118 

0120 

0128 

0130 

0138 

0140 

0148 

0150 

0158 

0160 

0168 

0170 

0178 


SUM: 47 2C D7 8E B311 03 FI AEF4 


SUM ： Cl D5 58 BF F5 6B A4 55 7C1E 

0300 0A 00 CD 3C 01 Cl C3 F3 : 8B 
0308 02 Cl C9 0B 03 0F 03 2A : D6 
0310 03 26 03 AE 02 A8 03 6A : FI 
0318 02 0C 02 63 03 7C 03 0B : 00 


いうことなのである。それも，プログラム 
が実際に動き出してから予想外のバグが出 
るのである。作ってもいない機能が半分® 
壊しながらも動いたりするのは楽しいし， 
かえってイマジネーシヨンを搔き立てられ 


ることになる。 

ちょっとあぶない気もするが，そういっ 
た副作用を飼い馴らすことができればゲー 
ムプログラミングの面白さも増すことだろ 
う0たとえば，アドベンチャーゲーム記述 


言語として期待する向きが多いのも，そう 
した副作用のせいだと思う。 

半分壊れながらも，動き続ける融通とい 
うのはコンピュータがなかなか持てない能 
力のひとつではないだろうか。 


リスト 1スネークゲームの ダンブリスト （ Xl / Xltu 「 bo ) 


0 11 0 0 C 9 0 0 1111119 
000003 C 000002227 

808A3DB 2208 C1796 
09B25CE20DBC07C4 

1110D0B 8112 1B373 
2000E 0202000 A272 

8C52B2009CD7D73E 
88 C 02070 CC2FC724 

5911613 B 29120 F75 
0C 0052257 C000A7C 

11E4391D31EC6999 
00992 C7E 20900110 

1C11EBB93C1 21000 
03005 EE 673000000 

CDBC 88108 D4A4244 
3CA 800060 CE6D000 


70C 207906 C 036699 
70300 Be 0000300 C7 

6AD3A 8118 EF52E8D 
80c 408005 1F2758E 

910D14C 0606016 A7 
020E 203003000010 

0EE88ADF2041B61E 
070883 CF 5410 A 713 

991451016 F13660C 
00200 C000F 310001 

10721100 C0A 42220 
2073000040216900 


A7539E0FADF21D89 
7952047 ED 88 CAD 6 B 


571D9E2C 413402 C0 
D70EC5B 300000731 

59C519BD180BE 311 
C13DD07CEBEC 0212 

30D 920304454135 F 
00C1 7070000027 DA 

V3BB 058012 < 
>2020C56C0< 


« 28010 C001C102 

D4B1 266091240513 
014C195CC0000D27 


B 6 D 64543 
1 A 934329 


7 

D 

2 

B 

7 
9 

9 

8 
B 

7 

F 

4 

5 

7 

5 

8 7560E828 

6 71017838 

4 9AE237E5 
2 13332171 


79B1E83C 
72E1 780 t 


0 2 2 7 00 3 C 

1FE36E8B 

16521780 


77AC 57531 A58FC48 
6557897 EB5ECB533 


23000 C2DEDBFF01E 
7200074 C7CF0D117 

1E9A 211090 A 62119 
E 500100000 C0C220 

B 91115 C604C655E0 
E0222C 300033 1E70 

908888 D1B1013E30 
108888 C 202 F 22721 

0E 201408 1 & 643511 
0011110828 F020E2 

A1 32224 B1A165B77 
02533300 C1C10F77 

13DEEE11111DC399 
27E 777210003 EC00 

5B 69994 BC5C 52500 
E 25000 0 43C30D000 


9B3D 9141 
9992 FD38 

月 AA9E236 
333 C5B25 

77779 B33 
77770772 

9999030 E 
11110705 

0000CBC9 

00000230 

01821210 

11012710 

11112 B5E 
22220100 


6789D 322 
1111 c 2 c T 


1DEEE111E89E 2134 
2C 77722238 CA00-00 

489998988 C1DA80C 
080008 C 881 CC 8 BE 6 

F4000C1EF11 14444 

000001 ell 0000000 

229A 811225 CC 6872 
c 30000033 C3365A6 

EE1115CEE8DD4424 
B 7222 c 3778 CC 0000 

999888 D 9900022 C3 
00C888C 002006801 

002EF 000026 C9124 
000112000300 C000 

A 8 B 22269 A 0112 EA7 
00E 3330002220963 


C3B68B 8 IF 7484974 
7F3A40D309F8F797 


D 9620003 D32E 5322 
c 05700024205 C200 

0033242 EA319DEAA 
00220005 C720C586 

8213111511202921 
0077222 EED 007000 


EE 80468 A00 
3188 C107D0 

2D 7-D 228200 
3E0A 338300 

79FDD8F300 

2C0C311C00 

E1288EA800 
3CC8C 33800 

7 774E776F00 
5 00B1A 00100 

4 DDD28ED200 

3 22738 1A300 

7 DDB7E3DD00 

4 CC 221 CC 300 

c 883EA 88890 
9 8803388 CC0 


-c 0 11 \ 0 0 


6BBF5CBD8A01ABC4 
F 8 E 8 F 99899 E34A10 


1 DB 12 F 9891007222 
0 EAD 01280 cl 30333 

EB676A0E0900F080 

0100030137000010 

607 1B56A0D11DEEE 
C0949C230E20C333 

1161690918070877 
F0000C 0208202800 

99353869900 F 6099 
779c 980202001211 

DD966CF90A1D02DD 
EEC 00162030 C13CC 

FC99D1F 964570388 
A 1 CAA 14004 c 00288 

B 0816089 FD961EFF 
1070008244 cl 2311 

0808080808080808 

8899AABBCCDDEEFF 

6666666666666666 

0000000000000000 


B 8 3 6 8 4 4 

6 

F . 

8 

6 

9 

0 

6 

B 

3 

3 7FFA300 

4 
6 

9 

7 

F 

6 


• 8 3 6 0 4 F 


A12B9EA7B119F 021 
F2AEC 963022 C00C2 

13AD 82133177 A9EE 
00FC 80000077 C0B7 

E 2134 A803C 882199 
FA0008BEB 3884201 


-c 11 E 8 0 0 . 


< 2 7 F F A 5 < 


F 11 3 0 0 < 

930E999C 31002 DE4 
000FCAC 012000 E70 


2 A 0 0 0 c 0 < 


B 93543 A 62533 
30D6DBA1961C 


55C54B13D128 

0C3F00F072B8 

15DE111FB2B2 
lee 721032070 

15094 BC3E66B 
0 D 00043 c 4955 

024082 DD0D3D 
0000D4C32C2E 

B A 1 6110313 E9 
08200000205c 

3D 818 c 609693 
0C 828306 C600 


8 

8 

E 


• C44EC3F7637F10 


9 A - 
3 c C 

212D8BB 931901 1 CD 
15 CE0E262D10003C 

EDDD 0920 EB201CD0 
1E1001C65E0003C0 

084E3015B6F07D0 0. 
011350 BEE 5106 C00 

603AD 08533401001 
1021E27D1 2300002 

319381 B13ED 03013 
F 070020015206020 

01 Dl 24276987016 F 
00 E 0007651200201 

01 Ell 033317006 cl 
0570102 C2E 300060 

013 B 913 1E69C 0311 
0200707055 E10A00 


619E77E619D23F65 

9ECAA7AC0F9E3FB2 

2060C60C12EC 9531 
000B30B 30090 DC02 

A 619 D19DCD 222995 
7027C27C 3200000 D 

21960960 DDAA 10 A 1 
02C40C40CC86D0C0 

217381340121260c 
707200200 C0000B3 

243E17E10258B19D 
0 E 242 F 4200 DBE27C 

6D752D 5216222060 
9C7C0CC02B 000040 

20F 9919 c)5:3)liE6)8 >3 )4 
00A0AC0CDCDA9020 

CCO90A10A11 9122 El 
0010C00C0CC 00042 


• • 0808083 B 08080808 

M 8 e 8 e 9c9e ACABeB CCDDEEFF 

S 2222222222222222 
s 0000000000000000 
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BASIC 入門 


最終回 


纖サンプリンク職 

Nakamori Akira 

中森章 

約1年に渡ってこ'紹介してきた XBM 00 日 ASIC 入門も，ついに最終回を 
迎えました。今回は最後の砦ともいうべき ADPCM に挑戦です。その 
昔，ダンシング•ヒーローを奏でていた X 68000 のビープ音に感動したと 
いう経験を生かして，中森氏はどのように料理するのでしょうか。 


X 68000 が発売された当時，いちばん驚い 
たのは，ビープ音を自由に変更できる機能 
でした。ビープ音といえば，あの「ピー ツ」 
という味気ない音が常識であると思い込ん 
でいた私は，編集室のマシン室の X 68000 
から流れてくる「ダンシング•ヒーロー」 
のイントロに大きなシヨツクを受けたもの 
です。そしてこのビーフ°音の変更は X 68000 
の特徴のひとつである ADPCM (Adaptive 
Differential Pulse Code Modulation ) 方 


x - basic では変数を使用する前には変数の型 
宣言をしなければなりません。宣言できるデー 
夕型は int (4 バィト整数)， cha「（l バイト整数)， 
str (文字列)， float (実数）の4種類です。 

X-BASIC のプログラムの実行はその大部分が 
関数の呼び出しによって行われます。それ以外 
は制御構造です。型宣言と制御構造と関数，こ 
れが X-BASIC の3大要素です。 

X-BASIC には画面上のキャラクタをスムーズ 
に移動させるためのスプライト機能が備わって 
います。これにより最大128個のキャラクタを 
同時に移動させることができます。この移動の 
ときパターンの反転，色の変更なども可能です。 
また，バックグラウンドと呼ばれる画面が2面 
あり，ここでは最大 64X64 個並べたキャラクタ 
を背景として利用できます。バックグラウンド 
面上では，画面上のすべてのキャラクタが同時 
に移動します。 

また， X-BASIC では65536色同時発色を特徴と 
する X68000 のグラフィック機能を扱うことがで 
きます。色数が65536色であるのはグラフィッ 
ク画面（実画面）が 512X512 ドットの場合です 
が，色数を256色，16色と減らすことによって， 
実画面を2画面，4画面と増やすことができま 
す。さらに，色数を16色，実画面数を丨画面に 
限れば I024X 1024ドットという大画面を扱うこ 
ともできます。また，複数個の実画面は高速に 
切り換えることができますし，それぞれをスク 
ロールさせる こともできます。この機能をうま 
く使えば，アニメー ショ ンも簡単です。 

また，グラフィック画面の特徴として半透明 
機能があります。これは，グラフィックの実画 
面同士あるいはグラフィック画面とテキスト画 
面（スプライト画面）を重ね合わせて表示する 


式を用いたサンプリング機能によって行わ 
れていたのでした。 

おそらく， X 68000 はサンプリング機能を 
備えた世界で最初のパソコンです。サンプ 
リング機能自体は新しい技術ではありませ 
んが，それとパソコンとの合体はまさに新 
機軸だったといえるでしよう。このサンプ 
リング機能によってパソコンの可能性が大 
きく広がったということは疑う余地はあり 
ません。とにかく，「ダ'ンシング •ヒーロー」 


機能です。この重ね合わせは，最も優先順位の 
高いグラフィック画面が半透明になることで実 
現されます。しかし，残念ながら半透明機能は 
X-BASIC から直接扱うことができません。メモ 
リ上にマッピングされている， X68000 のビデオ 
コントローラの内部レジスタを直接害き換える 
ことで扱うことができます。 

X68000 ではグラフィック画面のみならず，テ 
キスト画面もビットマップ方式を採用していま 
す。さらに，テキスト画面は16色のパレットや 
スクロール 機能も備わっています。このため， 
テキスト画面もグラフィック画面と対等に扱う 
ことができます。たとえば，グラフィック画面 
の退避領域としてテキスト画面を使用すること 
ができます。 

また， X68000 にはマウスが標準で付いてきま 
す。そして， X-BASIC ではこのマウスを扱うた 
めの関数が用意されています。マウスを入力装 
置とすることで操作性のよいプログラムを窨く 
ことができます。 

X68000 のハードウェアでスブライト，グラフ 
ィックと並ぶ3大特徴のひとつが FM 音源です。 
X68000 は FM 音源用の LSI として 0PM (YM2 151 ) を 
内蔵し，8オクターブ，8重和音のステレオ演 
奏を行うことができます。そして， X-BASIC は 
0PM に音楽を演奏させるためのインタフェイス 
として MML (ミ ユージ ック•マクロ • ランゲー 
ジ）と呼ばれる言語が用意されています。この 
MML は演奏の繰り返し指定を簡単に記述できる 
という特徴があります。また，この音楽の演奏 
は，割り込みによって，ほかのプログラムの実 
行と同時に行うことが可能なため， FM 音源をゲ 
ームなどの BGM として利用することもできるで 
しよう。 


のイントロとの出会い。これがなければ私 
は X 68000 を買っていなかったかもしれませ 
ん（そんなことないってば)。 


サンプリンクと ADPCM 


サンプリング機能とは，その名のとおり， 
実際の音をサンプリング（標本を取るとい 
う意味，早い話が録音）して記憶しておき， 
それをそのまま再生することにより元の音 
を再現する機能です。 ADPCM 方式という 
のはその録音の方式です。 X 68000 には音を 
出す機能として FM 音源もあります力 5 ， F 
M 音源がサイン波を組み合わせて音を人工 
的に作り出すのに対して，サンプリングは 
実際に鳴っている音をそのまま記憶して才 
ウム返しに出力する点で異なっています。 

たとえば， FM 音源を用いて本物の楽器 
に近い音を作るためにはかなりの労力が必 
要です力 5 '，サンプリングを用いればなんの 
努力も必要なく本物の楽器の音が作り出せ 
てしまうのです（録音してるのだから当た 
り前か）。 

それでは，これからサンプリング機能と 
ADPCM についての基礎知識を説明してい 
きましよう。まずはサンプリング周波数で 
す。音声のデータ（音の波形だと思ってく 
ださい）は，時間が経過するにつれて連続 
的（アナログ的）に変化していますが，そ 
れをパソ コンの メモリ内に取り込むには， 
音声のデータをデジタルな0と1の並びに 
変換する必要があります。その方式のひと 
つが PCM 方式と呼ばれるものなのです。 

PCM (Pulse Code Modulation ) とは， 
ごく短い一定間隔おきに音声のデータをサ 
ンプリングし，そのとき得られた値を0と 
1の並びに変換 ( A/D 変換）して記憶すると 
いう方式です。 PCM 方式による録音は，ア 
ナログ形式に比べて， S / N 比の向上，ダイ 
ナミックレンジの拡大，録音時の音質劣下 
防止という点に特徴があるといわれていま 
す。そして， PCM 方式のサンプリングの間 
隔を示す指数がサンプリング周波数と呼ば 


X - BASIC の基礎事項(前回まで) 
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れるものです。 

サンプリング周波数は1秒間にサンプリ 
ングされるデータの個数を示すもの（つま 
り何回サンプリングする力、）で，たとえば， 
サンプリング周波数が 15.6KHZ であれば1 
秒間に15600個のデータが等間隔の時間で 
取り込まれることを示します（図 1KX680 
00では ADPCM 録音のサンプリング周波数 
として， 

3.9KHz 5.2KHz 7.8KHz 

10.4KHz 15.6KHZ 

という5種類の周波数をサポートしていま 
す。サンプリングは音声のデータを0と1 
の並びに変換しますが，そこにはサンプリ 
ング周波数の情報は残りません。このため， 
録音されたデータを正しく再生するために 
は，録音時と再生時に同一のサンプリング 
周波数を指定する必要があります。しかし， 
このことを逆に利用して， 15.6KHZ のサン 
プリング周波数で録音したデータを7 • 8K 
Hz などの周波数で再生して音程を変えると 
いうこともできます（本来の1/2のサンプ 
リング周波数で再生すると音程は1オクタ 
ーブ下がる）。 

さて，サンプリングする音を本当の音に 
近付けるためには，サンプリング周波数を 
高くする （1 秒間にサンプリングするデー 
夕数を増やす）に越したことはありません。 
しかし，音声のデータをそのまま記憶して 
いたのではメモリやデイスタの容量があっ 
という間にパンクしてしまいます。そこで 
考えられたのが，前回サンプリングした値 
との差分を記憶していく DPCM (Different 
ial PCM) です。 

音声が通常は連続的に変化することを考 
えると，ある時点でサンプリングした音声 
データの値は前回サンプリングした値と似 
ていると予想されます。したがって差分は 
0に近い値になり，それを記憶するための 
メモリやデイスタの容量も小さくてすんで 
しまうのです。これが ADPCM の DPCM で 
す。 

そして， ADPCM の A というのは「適応 
制御 (Adaptive Control)j からくるもの 
です。これは DPCM によって得られる差分 
のデータを適当に変換して，もっと少ない 
データで間に合うようにする技法です。X 
68000の ADPCM では具体的にどのような 
適応制御が行われているのかは知りません 
が， X68000 では1回のサンプリングで得ら 
れるデータを4ビット （ 1ビットは符号ビ 
ット）という少ないビット数で表現できる 
ようになっています（図2)。それでいて， 
なお再生時に本物に近い音が出るのは AD 


PCM の A のおかげなのです。 マニュアルに 
ADPCM のサンプリング周波数と1秒間に 
消費されるメモリ容量の記述があります力 ? ， 
1回のサンプリングで1/2バイト （4 ビット） 
のデータが消費されることを 知っていれば， 
サンプリング周波数の値を2で割ったもの 
がそれになることがわかりますね。 

もう少し詳しく知りたい人は特集の加藤 
氏の記事を参照するとよいでしよう。 


AUDIQFNC の中身 


X-BASIC でサンプリング関係の関数は 
AUDIO.FNC のなかに入っています。もう 
ほとんどワンパターンになってしまいまし 
た力 5 ',例によって，これを以前この連載で 
紹介した （1987 年10月号）プログラムでダ 
ンプしてみましよう。 AUDIO.FNC のなか 
に定義されている関数は次の6つです。 
a_play (* ptr, char, char, [int]) 
a_rec(* ptr, char, [int]) 
a_stat() 
a_end() 
a_stop() 
a_cont() 

注 （） 内は引数の型 

[] 内は省略可能な引数の型 
* ptr は1次元配列へのポインタ 
ここで，「おやっ」と思った人がいるかもし 

図1サンプリングとサンブリング周波数 


れませんね。 マニュアルには a_play と a_r 
ec 以外の関数は載っていません。それどこ 
ろか，バージョン2よりも前の X-BASIC 
に付属の AUDIO.FNC には a_play と a_rec 
の2つの関数しか定義されていないのです。 
なにか初期の X68000 を買った人は損をした 
気がしないでもありません力 ? ， マニュアル 
に載ってないくらいの関数ですから使い道 
は それほどありません。しかし，これらの 
関数を外部関数として定義するのは簡単な 
ので，あとで作ってみます。とりあえず， 
これらの関数の機能を書いておくと次のよ 
うになります。 

a.play ADPCM データの再生 
a.rec ADPCM データの録音 
a.stat ADPCM の動作状況 
a.end ADPCM の強制終了 
a_stop ADPCM の動作中断 
a.cont ADPCM の動作再開 
これを見てわかるように，バージョン2の 
X-BASIC で追加された関数は， FM 音源の 
制御であったのと同様な ADPCM の中断， 
再開，終了に関するものです。しかし， 
play 関数の実行時 （ADPCM の再生時）は， 
通常の場合は，演奏が終わるまで BASIC に 
制御が戻ってきません。このため， ADPC 
M の中断や再開をする関数があってもあま 
り嬉し〈はないのです（演奏中は実行でき 
ない>〇 a_play 関数の実行後，すぐ BASIC に 


音量 



時間 


音置 

~ [ill JH 一一 y — 時間 
AT AT AT AT AT AT AT AT 


ぶ 


X ? 


'Q 


連続的に変化する音をごく短い時間 AT (秒）ごとに測定（サンプリング）する 
サンプリング周波数 


図2 X 68000 の ADPCM のデータ形式 


データ I 


データ 2 


データ 3 


差分の絶対値 

差分の絶対値 

差分の絶対値 

-差分の符号 

— 差分の符号 

—差分の符号 


H — 4 ヒット — H 


h — 4 ヒット — H 


— 4 ヒット — H 
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制御が戻ってくる場合は ADPCM のデータ 
が OFFOOh バイト以下のとき （ DMA 転送の 
都合）ですが，経験的には a _ stop 関数と a _ 
cont 関数はビープ音に対してしかうまく働 
かないようです。結局，あまり使えない関 
数であることがわかるでしよう。 

使い道がないといった手前恐縮ですが， 
それでは，待望 （？） の外部関数です。 a _ 
stat , a _ stop , a _ cont ， a_end を外部関数 
で定義するとリスト1のようになります0 
リスト1を見てもらえばわかりますが，こ 
れらの関数はすべて IOCS コールに よって 
実現されています。プログラムの構造はあ 
まりにも単純なので説明は不要でしよう。 
なおリスト1の関数名はバージョン2の X - 
BASIC の AUDIO . FNC と共存できるように 
a_statl a_stopl a.contl a_endl 
t なっています。外部関数の X - BASIC へ 
の取り込み方法は，この連載でイ可回もやっ 
ていますから，バックナンバーを参照して 
ください。 


ADPCM を使ラ 


ADPCM の利用で必要な関数は a _ play 関 
数と a _ rec 関数です 0 すなわち，音を録音 
( a _ rec ) して再生 ( a _ play ) すること，そ 
れがすべてです。 ADPCM による録音と再 
生は次の手順で行われます。 

1) PCM データを格納するための配列を宣 
言する 

2) a _ rec 閨数を実行する（録音)。録音す 
る音声の入力は X 68000 の AUDIO IN 端 
子にラジカセなどの出力端子を接続して 
行ぅ 

3) a _ play 関数を実行する（再生)。音声の 
出力は X 68000 の内蔵 スピーカー， または 
AUDIO OUT 端子から行う 

4) 必要な場合に おいて PCM データ を ファ 
イルに格納する 

また，ファイルにあらかじめ格納されてい 
る PCM データを再生するためには次の手順 
になります。 

1 ) PCM データを格納するための酉己列を宣 
言する 

2) ファイルの内容を配列に読み込む 

3) a _ play 関数を実行する（再生） 

そして，録音と再生時に使用する a _ rec 関 
数と a _ play 関数のフォーマットは以下のよ 
うになっています。 

a _ rec ( na , sf [, lng ]) 
na PCM データを格納する配列名 
sf サングリング周波数 

0 3.9 KHz 


1 5.2 KHz 

2 7.8 KHz 

3 10.4 KHZ 

4 15.6 KHZ 

lng 録音する配列 na の長さ（省略可能） 

0〜配列 na の添字の最大値+1 

省略時は na の全データ 
a _ play ( na , sf , md [, lng ]) 
na PCM データを格納している配列名 
sf サンプリング周波数 

0 3.9 KHz 

1 5.2 KHz 

2 7.8 KHZ 

3 10.4 KHZ 

4 15.6 KHZ 
md 出カモード 

0 出力なし 

1 左のみ出力 

2 右のみ出力 

3 左右から出力 

lng 再生する配列 na の長さ（省略可能） 

0〜配列 na の添字の最大値+1 

省略時は na の全データ 
関数の使い方を頭に叩き込んだ とこ ろで実 
際に プログラムを 作ってみまし よう。とい 
っても，単に a_rec 関数を実行して a_play 
関数を実行するだけではあまりにも能がな 
いので少し工夫をします。 

ADPCM で録音するためには X 68000 の A 
UDIO IN 端子から音声を入力しますが， a _ 
rec 関数を実行するまではいまどんな音が 


AUDIO IN 端子から入力されているか知る 
ことができません （ a _ rec 関数の録音中には 
内蔵 スピーカー などから音が出る)。これで 
は歌謡曲などの音楽を途中から録音したい 
ときは，どこから a _ rec 関数を実行したら 
よいかわからず困ってしまいます。そこで， 
a _ rec 関数を実行する前でも AUDIO IN 端 
子に入力されている音声を聞くことができ 
るようにします。これはなにか高級なこと 
をやらなければならないように思うかもし 
れませんが，非常に単純なことです。タネ 
を明かせば「非常に短いデ”夕長を使って 
a _ rec を繰り返す」ということをやればいい 
のです0つまり，以下のようなアルゴリズ 
ムです0 

1) a _ rec 関数で少しだけ録音する 

2) キー入力を調べる 
キー入力があれば 4) へ 

3) 1) へ戻って再び繰り返す 

4) a _ rec 関数で実際に録音する 

5) a _ play 関数で再生する 

本当にやりたいのは 4) と 5) の操作なのです 
が， それに先立って 1) 〜 3) の キー入力侍ち 
の ループが あります。この 1) 〜 3) の ループ 
内で a _ rec 関数を少しだけ実行するのです。 
つまり， a _ rec 関数に与える PCM データ 用 
の配列の大きさを小さくするわけです。 

たとえば配列の大きさが 500 バイトでサ 
ンプリング周波数が 15.6 KHZ < 1 秒間に 78 
00バイトを消費）の場合， a _ rec 関数の実行 
に要する時間は， 


リスト14つの外部関数定義プログラム 


ADPCMSNS 

ADPCMMOD 


equ 



$ffff 

$8001 

$66 

$67 



dc.l 
dc.1 
dc.l 


— ret し ret,—ret,—ret 
一 token,—param,_exec 
0 , 0 , 0 , 0,0 



.even 

_a_atat : 

moveq.l ♦..ADPCMSNS f d0 
trap 参 15 
move.1 d0 9 _ret_val 
clr.l d0 ~ 


ret_arg,a0 



ADPCM の動作再開 



_a_cont : 

moveq.l #2,dl 
moveq.l #_ADPCMMOD,d0 
trap #15 



ADPCM の強制終了 



_a_end: 

clr.l dl 

moveq.l #_ADPCMMOD,d0 
trap #15 




_stop_param : 
_cont_param: 
_end_param : 

dc.w 
—stat—pararo: 



•a^Btopl 1 ,0 
* a__stat 1 1 t 0 
•a^contl 1 f 0 
'a^endl % ,0 


_stop_paran,_stat_param 
_cont_paran•_end_param 


void_ret 

int_ret 



_ret_arg: 

d 

_ret_val : 


_a_atop,_a_stat 
_a_cont 丨 _a__end 

0，0，0 
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500/7800 = 0.06 (秒） 

です。したがって 1) 〜 3) の ループでは 0.06 
秒間音が鳴っては （ a _ rec 関数の実行)，音が 
一瞬とぎれる （ a _ rec 閨数の終了）という動作 
を繰り返すのです。この間音は連続して鳴 
っているように聞こえます。このときキー 
入力があるとループを抜け出し，実際の録 
音が開始されます。タイミングによっては 
キーを押した瞬間の0 • 06秒分のデータを取 
り逃す恐れもあります力 5 '，まあ，それくら 
いは我慢しましょう。以上のような考えで 
作ったプログラムがリスト2です 0 

リスト2のプログラムではサンプリング 
周波数を 15.6 KHZ に固定しています力 5 '，い 
ろいろなサンプリング周波数を試したい人 
は適当にプログラムを変更してください。 
また，リスト2のプログラムで配列 a の内 
容を ファイルに セーブすればビープ音用の 
PCM データを作ることができます（この場 
合のサンプリング周波数は 15.6 KHZ から変 
えないで〈ださい）。 


音声合成に挑戦 


ADPCM としては a . rec 関数で録音され 
た PCM データを a . play 関数で再生するの 
が ノーマルな 使用法です。しかし，ここでは 
a _ play 関数で再生する PCM データを人工 
fl 勺に作り出して，一種の音声合成に挑戦し 
てみることにします。 X 68000 の PCM デー 
夕は4ビットの差分データが並んだもので 
す。これと同じデータを作り出せばよいわ 
けです。といっても，人間の声などのよう 
に複雑な波形を持つ音のデータを作るのは 
やさしいことではありません。そこで，ひ 
とつのサイン波によって作られる音のデー 
夕を作ります。これならばある時刻を与え 
たときの音の大きさ（これがサンプリング 
される値）が簡単に計算できますから PCM 
データを容易に作ることができます。 

それでは， 

F = A * sin ( wt ) 

A 振幅 
〇〇 振動数 
t 時間 

という i 皮形を考えてみましよう。これは ㈤ 
という振動数で鳴り響く音になります。音 
階の「ド•レ•ミ……」は，それぞれ一定 
の振動数を持った音のことですから，いろ 
いろな振動数を持つサイン波で， PCM デー 
夕を作ってやれば， ADPCM で「ド•レ•ミ 
……」を演奏することも不可能ではありま 
せん。たとえば，振動数 w を持つ音を鳴ら 
すための PCM データは以下の3段階の手順 


で作り出すことができます。 

1) サンプリングされた音の大きさ Ao , Ai ， 

A2 ， A3 , . を計算する 

Ao = A . sin (27 TGj - 0 - AT ) 

Ai = A # sin (2^- wl * AT ) 
A 2= A # sin (2^* w 2* AT ) 


A 3= A . sin (2? r - T ) 

ただし， AT : サンプリングの間隔（サン 
プリング周波数の逆数） 

2) 音の大きさ Ao ， Ai ， A2 ， A 3, . か 

らその差分 Do ， Di ， D2 ， D 3，. を計 


リスト2 ADPCM による録音と再生 


10 /本 

20 /* ADPCM による録音と再生 

30 /* 

40 dim char a(65535) 

50 dim char a0(499) :/本 ダミーの配列 

60 atr ans 
70 /拿 

80/* キー入力があるまで a0 で録音•再生を « り返す 
90 /拿 

100 a_rec(a0 ,4 ) 

110 color 2 

120 print " [ Y ] キーを押すと録音を関始します。" 

130 color 3 

140 print 

150 while 1 

160 ans=inkey$(0) 

170 if (ans="y")or(ana="Y") then break 
180 a_rec(a0,4) 

190 endwhile 

200 /拿 

210 /* 本当に緑音を関始する 

220 /本 

230 print "ADPCM の録音中です。"： print 
240 a_rec(a, 4 ) 

250 print "錄 音を終了しました 〇 " : print 

260 /* 

270 /* a0 と a の配列の内容をつなげる 
280 パ 
290 /拿 

300 /* PCM データを再生する 
310 /» 

320 color 2 

330 print " [ Y ] キーを押すと再生を開始します。" 

340 color 3 : print 

350 while 1 

360 ans=inkey$( 0 ) 

370 if (ans="y")or(ans="Y") then break 
380 endwhile 

390 print "ADPCM の再生中です。"： print 
400 a_play(a,4,3) 

410 print "再生を終了しました。" 

420 end 


リスト 3 ADPCM データ作成プログラム 


10 /* 

20 /* A D P C M データ作成ブログラム 

30 /* 

40 float A=J4G# 

50 float freq 

60 float dt=6.41O25641025e-5# /* 1/15.6K 

70 float a0,al 
80 int dO,dl 
90 dim char N(8000) 

100 atr fi1,nura 
110 int fp 
120 int i , j 
130 /« 

140 for i=0 to 17 

150 freq = A*exp(i*log(2# }/12#> 

151 locate 0,0 : print chr${5)+"freq="；freq 

160 a0=O# 

170 for j=l to 8000 

171 locate 0,1 : print chr$(5)；j 

180 al=7#*ain(pi(2)*dt*j*freq) 

190 dl = int(al-a0) 

200 if((j mod 2)=0) then { 

210 N((j¥2 )-1)=(encode(dl)shl4) or (encode(d0)) 

220 » 

230 d0=dl : aO=al 

240 next 

250 num=str$(i) : if i<10 then num="0"+num 
260 fil = ,, D:A"+num+" .DAT" 

270 fp=fopen(fil,"c"> : fwrite(N,8001,fp) : fclose(fp) 

280 next 
290 end 
300 /* 

310 func int encode(x) 

320 int s=8 

330 if(x>0) then 3=0 

340 return(s or (x and 7)) 

350 endfunc 
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算する。 

Do=Ai-Ao 
Di =A2 - Ai 
D2 = A3—A2 
D 3 = A 4 -A3 


3) 差分 Do ， Di ， D2 ， D3 ,. を 4 ビット 

で表し PCM データに変換する。このデー 
夕を配列やファイルに格納するときは2 
個 （8 ビット）ずつ組にしてバイト単位で 
行う。データ形式は図2を参照のこと 
ところで ， A (ラ）の音は 440 Hz の振動数 
を持つといわれています。そこで，先の 1) 
〜 3) で w を440にすれば，再生すると A の 
音で鳴る PCM データを作ることができる 
のです。 A の音の振動数を知っていれば， 
ほかの音の振動数は12平均律 （1 オクター 
ブ内に等しい振動数の間隔で12個の半音を 
配置する調律法）によって 


A 

440 

Aft 

440 X (72) 1 

B 

440 X ( vT ) 2 

C 

440 X (7 T ) 3 

C # 

440 X ( T 2") 4 

D 

440 X (72") 5 

D # 

440 X (^ Y ) 6 

E 

440 X (7 T ) 7 

F 

440 x (7T) 8 

F # 

440 X ( T 2) 9 

G 

440 X (7 T ) 10 

Gtt 

440 x (7T) 11 

A (1 オクターブ上） 


440 X (7 Y ) 12 


という計算式で求めることができます。こ 
のとき2の12乗根のべキ乗を求めることが 
必要になります力 5 ',これは指数と対数の， 
x = exp ( log ( x )) 

という関係を用いれば， 

(7 T ) n = exp (( n /12) * log (2)) 

という式から求めること力すできます。以上 
のような考えで，各音階に対応した PCM 
データを作るためのプログラムがリスト3 
です0リスト3を実行するとドライブ C に 
A * *. DAT (* * は2桁の数字） 
というファイルが作られていきます。ドラ 
イブやファイル名が気に入らないときは行 
番号260で作つているファイル名 （ fil という 


変数）を変更して〈ださい。作られるファ 


イルと音階の対応は， 
A 00. DAT->A 
A 02. DAT—B 
A 04. DAT — C # 
A 06. DAT — D # 
A 08. DAT^F 


A 01. DAT — A # 
A 03. DAT—C 
A 05. DAT—D 
A 07. DAT—E 
A 09. DAT — F # 


リスト 4 ADPCM による「はとぼっぽ」 


20 /* f はとぼつぼ」 by ADPCM 

30 /* 

40 /* 

50 /* A00:A A0L ： A+ A02:B A03：C A04 ： C+ A05：D A06 ： D+ A07:E 

60 /本 A08：F A09 ： F+ A10：G A11:G+ A12：A A13 ： A+ A14：B A15 ： C.... 

70 /* 

80 dim char A00(8000),A01(8000),A02(8000),A03(8000) f A04(800O),A05(8000) 
90 dim char A06(8000),A07(8000),A08(8000),A09(8000),A10(8000),All (8000) 
100 dim char A12I8000),A13(8000),A14(8000),A15(8000),A16(8000) f A17(8000) 

110 /本 


120 fp=fopen("B:A00.DAT","r") 
130 fprfopen("B:A01•DAT","r"> 
140 fp=fopen(”B:A02.DAT" , "r") 
150 fp=fopen("B ： A03.DAT","r") 
160 fp=fopen("B:A04.DAT","r") 
170 fp=fopen<"B:A05.DAT","r") 
180 fp=fopen("B ： A06.DAT" , "r") 
190 fp=fopen("B ： A07.DAT","r") 
200 fp=fopen("B:A08.DAT","r") 
210 fprfopen("B ： A09.DAT","r") 
220 fp=fopen("B:A10.DAT","r") 
230 fp=fopen<"B:A11.DAT” ， M r") 
240 fp=fopen("B:A12.DAT","r") 
250 fp=fopen("B:A13.DAT",”r"> 
260 fp=fopen( "B:A14.DAT" ， . ， r” > 
270 fprfopen("B ： A15.DAT",”r つ 
280 fp=fopen("B ： A16.DAT","r") 
290 fp=fopen("B ： A17.DAT","r") 


300 /* 


310 /* 演奏 


320 /* 


321 for i=l 

to 2 

330 

a play(A03,4,3,4000) 

340 

a_play(A05,4,3,4000) 

350 

a_play(A07,4,3,8000) 

360 

a piay(A10,4,3,2000) 

370 

a_play(A07,4,3,2000) 

380 

a_play(A03,4,3,4000) 

390 

a_play(A05 f 4 f 3,8000) 

400 

a_playiA03,4,3,4000) 

410 

a_play(A05,4,3,2000) 

420 

a_play(A07,4,3,2000) 

430 

a play(A10,4,3,2000) 

440 

a play(A10,4,3,2000) 

450 

a play(A07,4, 3,2000 > 

460 

a play(A07,4,3,2000) 

470 

a_play(A10,4,3,2000) 

480 

a_play(A07,4,3,2000) 

490 

a_play(A03,4,3,2000) 

500 

a_play(A05,4,3,2000) 

510 

a_play(A07,4,3,8000) 

520 

a play(A10,4,3,2000) 

530 

a play(A10,4,3,2000) 

540 

a_play<A10 ， 4, 3,200 0) 

550 

a play(A07,4,3,2000) 

560 

a play(Al2,4,3,2000) 

570 

a play(A12,4,3,2000) 

580 

a play(A12,4, 3,200 0} 

590 

a play(A10,4 t 3,2000) 

600 

a_play(A07,4,3,2000) 

610 

a_play(A07,4,3,2000) 

620 

a play«A07,4,3,2000) 

630 

a_play(A05,4,3,2000) 

640 

a 一 play(A03,4,3,8000) 

650 

for j=0 to 8000 : next 

660 next 



I read(AWWiovulft p) 
fread(A 01 ， 800 l,fp) 
fread(A 02,800 1,fp) 
fread(A 03,800 1,fp) 
fread(A 04,800 1,fp) 
fread(A 05,800 1,fp) 
freacU A 06,800 1,fp) 
fread(A07,8001,fp) 
fread(A 08,800 1,fp) 
fread(A 09,800 1,fp) 
fread(A10,8001,fp) 
fread(All,8001,fp) 
fread(Al2,8001,fp) 
fread(A13,8001,fp) 
fread(A14,8001,fp) 
fread(AI5,8001» fp) 
fread<Al 6,800 1,fp) 
fread(A17 .8001 .fu) 


fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclo8e(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 
fclose(fp) 


A 10. DAT—G 
A 12. DAT—A 
A 14. DAT—B 


All • DAT — G # 
A 13. DAT — A # 
A 15. DAT-C 


A 16 • DAT->C # A 17 • DAT^D 

となっています。 

さて音階の PCM データができたらそれを 
使って音楽を演奏してみなければ面白くあ 
りません。演奏をさせるためのサンプルプロ 
グラムがリスト4です。ここで演奏する曲 
目は「はとぽっぽ」です。リスト4のプロ 
グラムでやっていることは，リスト3のプ 


ログラムで作った PCM データをファイル 


(ドライブ B からになっているので注意）か 


ら配列に読み込んで， a _ play 関数で演奏し 
ているだけです。このとき， a _ play 関数で 
再生する長さを変える（第4引数）ことによ 
つて，演奏する音の長さを変えています。 
つまり， 2分音符を8000として， 4分音 


符4000，8分音符2000，16分音符1000とい 
う具合いに分割しています。ここでは例と 
して「はとぽっぽ j を取り上げましたが， 
ほかの曲ももちろん演奏することができる 
でしょう。 ADPCM 版 MML の出来上がり 
というわけです。まあ，実際にリスト4のプ 
ログラムを実行してみてください。 

ちょっと単調だけど結構，聴ける演奏に 
なっていますね。最初， ADPCM の A がな 
んだかよくわからなかったので， DPCM だ 
けで PCM データを作ってみましたが，こん 
なにうまくいくとは意外でした。 


FM 音源をサンプリング 


リスト3では，人工的に PCM データを 
作り出したわけですが，やはり ADPCM の 
本道 （？） は，実際にサンプリングした PC 


x 68 ooobasic 人門 133 













リスト 5 FM 音源で音を鳴らす 


10 /» 

20 /* F M 音源で音を鳴らす（だけ） 

30 /* 

40 m_init() 

50 m_aUocU ,10001: m_alloc(2, 1000) 

60 m_aasign(1,1) : m_assign( 2,2 ) 

70 1,"LIV12P181 f> Y48,0 >A&ARA+&A + RB&BR<C&CRC + &C+RD&DRD+&D+RE&ER") 

80 m trk{2, 'L1V12P2W15 Y49,40 >A4ARA+&A + RB&BR<C&CRC+&C+RD&DRD + &D+RE&ER , * ) 
90 in trk(1 し 1V12015 F&FRF + &F+RG&GRG+&G+KA&ARA + &A+RB&BR く C&CRC+&C+RD&DR” > 
100 m trk(2,"L1V12@15 F&FRF+&F+RG&GRG+&G + RA&ARA+&A+RB&BR<C&CRC+&C+RD&DR") 
110 m_play(1,2) 


リスト 6 ADPCM データ作成プログラム 


i0 /* 

20 /* ADPCM データ作成ブログラム 

30 /本 

40 dim char N( 8000 ) 

50 str fil,num 

60 int fp 

70 int i 

80 /拿 

90 for i=0 to17 

100 print i ， " 番目： [Y] キーを押すと録音を開始します。 
110 a_rec(N,4,200) 

120 while 1 

130 fil=inkey$(0) 

140 if (fil="y">or<fil="Y"> then break 

150 a_rec(N,4,200) 

160 endwhile 

170 a_rec(N,4 ,8001 ) 

180 num=8tr$(i) : if i<10 then num="0"+num 
190 fil= M C ： B"+num+".DAT" 

200 fp=fopen(fil ， "c"> : fwrite(N,8001,fp) : fclose(fp) 
210 print " 完了しました 。" 

220 next 
230 end 


M データを用いることでしよう。 

それでは，リスト4でファイル （ A 00 .D 
AT 〜 A 17. DAT ) から読み込む PCM データ 
を FM 音源で作ることにします。これなら， 
まともな演奏が期侍できそうですね。ここ 
では FM 音源で演奏した「ド•レ•ミ……」 
の音をテープレコーダに録音し，その音を 
a . rec 関数で取り込むということをやって 
みます。 FM 音源で音を鳴らすためのプロ 
グラムがリスト5です。 

このプログラムを実行すると A の音から 
1オタターブ上の D の音までが順番に演奏 
されます。ただそれをテープレコーダで録 
音してください。この音はプリセット音の 
「パイプオルガン j で，コーラス効果を出す 
ために左右から出力される音の振動数を少 
しずらしてあります0テープレコーダへの 
録音が終わったらそれを再生させ，リスト 
6のプログラムで PCM データに変換しま 
す。 

リスト6のプログラムは基本的にはリス 
卜2のプログラムと一緒で， X 68000 の AU 
DIO IN 端子に入力される音を短い a _ rec の 
逢行をループしながら鳴らしてぉき，キー 
が押されると本当の a _ rec 関数の実行を行 
うというものです。そして，この動作を18 
回（作る PCM データのファイル数）繰り返 
すようになっています。私たちがやること 
は，リスト6のプログラムを実行したあと， 
録音していたテープを再生し，テープから 
流れてくる音の音程が変わったら Y キーを 
押すという操作を18回行うだけです。18回 
キーを押し終わったあとにはドライブ C に 
18個の PCM データのファイルができている 
でしょう（ねっ，簡単でしょう)。 

ファイルの作られるドライブやファイル 
名を変更したい人は，例によって行番号190 
を書き換えてください。リスト6のプログ 
ラムによって作られる PCM のデータはリ 


不思議だけどできるのです 

a rec 関数の実行が終わると AUDIO 旧端 
子から入力されている音声は聞こえなくな 
ってしまいます。しかし， a _ rec 閲数の実行 
後も AUDIO IN 端子から入力されている音声 
を鳴らし続ける方法があります。それは a _ 
rec 関数で録音する PCM データの格納され 
る配列の大きさを OFFOOh バイトにすること 
です。つまり，宣言としては 
dim char a (& HFEFF ) 

という具合になります。 OFFOOh バイトとい 
うのは DMA 転送の処理単位ですが，この境 
界値のところになにかがあるのかもしれま 
せんね。 


スト4のプログラムでそのまま使うことが 
できますから，このデータを使ってリスト 
4の「はとぼっぽ j を再演奏してみましよ 
う。今度はまともな「はとぽっぼ」を聴く 
ことができると思います。また，リスト6 
のプログラムで 「あ•い•う…… 」といっ 
た人の声の PCM データを作って， X 68000 
におしゃべりさせることもできますね。 


ビープ音変更プロクラム 


私力す ADPCM に感動したのはビープ音に 
よってでした。そこで，ビープ音を扱うプ 
ログラムを作らないのは片手落ちというも 
のです。ここではビープ音を変更するプロ 
グラムを作ってみましょう0ビーフ。音はデ 
バイスドライバ ( BEEP . SYS ) によって X 
68000の起動時に設定されます。このため， 
ビープ音を一度設定したらそう簡単に変更 
することはできません。このため， X-BAS 
1 C の BEEP 命令を実行すると，いっも同じ 
ビープ音がなるのです（当たり前のことです 
が)。これでは面白くないので，ビープ音を 
何度でも設定し直せるプロダラムを作りま 
す。といっても，これは X - BASIC だけで 
は不可能です。そこで，外部関数の助けを 
借りることにします。 

それでなにをすればいいかというと，こ 
とは簡単です。ビープ音に関しては，ビー 
プ音のための PCM データが格納されている 


メモリの先頭番地 （32 ビット）が 978h 番地 
に ， PCM データの サイズ（バイト数，16ビ 
ット〉が 97Ch 番地に格納されています。こ 
の 978h ， 97Ch という番地は BIOS ROM の 
内部で絶対アドレスで t 旨定してありますか 
ら， ROM のバージヨンが変更にならない限 
り変わることはないので安心です。プログ 
ラムでは，これらのアドレスの内容を書き 
換えてやればいいのです。このため，外部 
関数の仕様は PCM データの格納された配列 
の名前と，配列のサイズを与えることにな 
ります。つまり，ビープ音を変更する外部 
関数の名前を chg _ beep として，そのフォー 
マットを次のように決めます。 
chg_beep ( na [， lng ]) 

na ビープ音用の PCM データを格 
納している配列名 

lng ビープ音を鳴らす配列 na の長さ 

(省略可能〉。バイト数で^•定す 
ること。省略時は na の配列の全 
データ 

ここでいう配列とは1次元配列 ( char か in 
t か float ) のことで，配列名を引数とする場 
合は，外部関数内では配列をポインタ（ァ 
ドレス）の形式で受け取ることになります。 
そこで1次元配列のボインタがどのような 
ものであるかを知っておく必要があります。 
手元に X - BASIC の内部資料があるわけで 
はありませんから，本当のところは不明で 
すが，配列へのポインタは図3のような情 
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char 
_str 
二 ptr 

_diml_array 
_dim2_array 
_dimn_array 
一 omit 


equ 

equ 

equ 


$0001 

$0002 

$0004 

$0008 

$0010 

$0020 

$0040 

$0060 

$0080 


diml_vp 

拿 

int_orait 


equ $0037 

： _diml_array+_ptr+_float+_int+_char 


void_ret 
int ret 


$ffff 

$8001 


25 

26 

27 

28 


図 3 配列へのポインタが指し示すもの 


1次元配列 


配列情報を 
含めた総バイト数 


次元一 


I 要素の 
バイト数 


添字の 

最大値 


配列の内容 


2次元配列 

+0 +1 +2 +3 


+ 4 +5 +6 +7 +8 +9 


配列情報を含めた 次元一丨 丨要素の 第丨の添字 

総バイト数 バイト数 の最大値 


+ 10 +11 +12 +13 +14 +15 +16 


第2の添字 第丨の添字が+丨になると 

の最大値 き，その要素が何バイト先 

にあるかを示すバイト数 


配列の内容 


3次元配列 

+ 0 +1 


配列情報を含めた 
総バイト数 


次元一丨 丨要素の 第丨の添字 第2の添字 

バイト数 の最大値 の最大値 


-12 +13 +14 +15 +16 +17 +18 +19 +20 +21 +22 


第3の添字 第丨の添字が+丨になると 第2の添字が+丨になると 配列の内容 

の最大値 き，その要素が何バイト先 き，その要素が何バイト先 

にあるかを示すバイト数 にあるかを示すバイト数 


リスト7 3つの外部関数定義プログラム 


報を示していると思われます。 

これは配列の次元が変わると内容も微妙 
に変わっています。つまり，1次元配列の場 
合は，10バイトの配列情報に続いて実際の 
要素がメモリ内に格納されており，その10 
バイトの配列情報の先頭アドレスを示すも 
のが配列へのポインタなのです。したがっ 
て，酉己列の要素が格納されている先頭番地 
を知るためにはポインタに10を加える必要 
があります。これだけのことを知っていれ 
ば外部関数が書けそうです。外部関数でや 
るべきことは次のようになります。 

1 ) 引数として配列へのボインタとサイズ 
を受け取る 

2 *)配列へのボインタに10を加えたものを 
978 h 番地に格納する 

3) サイズを 97 Ch 番地に格納する。サイズ 
が省略されたときは，配列へのボインタ 
に8を加えたアドレスから要素数（正確 
には配列の添え字の上限）を得て，それ 
に1要素のサイズを掛け算した値を 97 Ch 
番地に格納する。1要素のサイズは配列 
へのポインタに7を加えたアドレスから 
得ることができる（バイトでリードする 
場合)。なお，この方法では配列の総バイ 
卜数を求めたことにならないが（なぜか 
は自分で考えてみてね)，誤差は最大8バ 
イト程度なので問題はないだろう。また， 
サイズを求めるには配列へのボインタが 
指し示す「配列の総バイト数」を使えば 
簡単だが，ここではあえてドン〈さい方 
法をとってしまった（反省） 

なお，外部関数内でメモリをリード/ライ 
卜する場合は IOCS コールを 用います。この 
ような手順でビープ音を変更できるのです 
が，注意すべきことは変更したビープ音の 
PCM データは X-BASIC の フリーエリ ア内 
にあるということです。 

ビープ音を変更したままで X-BASIC を 
抜けるとその領域は開放されてしまいます 
から，ほかのプログラムを動かしているう 
ちにそのエリアが使われて，ビーフ。音の P 
CM データを壊してしまう恐れがあります。 
そうなれば，もはやまともなビーフ。音は鳴 
りません。そこで，用意したの力 ? get_beep 
関数と put _ beep 関数です。 

get_beep 関数は現在のビープ音の情報 
(978 h 番地と 97 Ch 番地の内容）を退避します。 
put_beep 関数は退避されているビープ音の 
情報を回復します。したがって， X-BASIC 
に入ったときに get_beep 関数を実行し， X - 
BASIC を抜けるときに put_beep 関数を実行 
すればビープ音を元に戻すことができます。 
ビープ音をあれこれと変更して遊ぶのは X - 
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.even 

_chg__beep ： 


move• 1 

arg vec+0(8p)，dl 


add.l 

参 10 了 dl ； 

データの先頭 

moveq.1 

#$88,d0 ； 

ロングのライ 

movea.l 

#$000978 v al 


trap 

«1S ； 

アドレス拉定 

move.w 

arg typ+10(ap),d0 


addq•w 
beq 

#l,d0 

omit_ irg ； 

引数なし 

move•1 

arg_vsc+10(sp),dl 


data_set : 



movea.l 

#$00097c,al 


moveq.1 

#$87,d0 ； 

ワードのライ 

trap 

*15 ； 

個数せってい 

clr.1 
rts 

dO ; 

エラーなし 

omit_arg : 



subq.1 

#2,dl 


movea.l 

dl,al 


moveq.1 

#$83, d0 


trap 

#15 ； 

データの個数 

move•w 

d0, tmp area 


subq•1 

#2,dl 


movea.l 

dl,al 


moveq.1 

#$83 ,d0 


trap 

#15 


move.w 

tmp area.dl 


cmp. b 

#l,d0 ； 

char か 

beq 

data set 


cmp. b 

#4,d0 ； 

int か 

beq 

skip4 


asl• w 

#3,dl ; 

float を仮定 

bra 

data_set 


skip4 : 



asl• w 

#2,dl 


bra 

data_set 


.even 



_ge し beep: 



movea.l 

#$000978, al 


moveq.1 
trap 
move•1 
move.1 

«$84,d0 ； 

#15 

d0,_beep_aave 
d0, ret val 
#$83, d0 ； 

#15 

アドレス 

moveq.1 
trap 

個数 

move.1 

dO, beep aave+4 


clr.1 

d0 


lea 

ret_arg,a0 


rts 



.even 



_put_beep •• 



movea.l 

#$000978, al 


move.1 

beep save,dl 


moveq.1 

*)88 f d0 ； 

アドレス 

trap 

*15 


move.1 

dl ,_ret_val 
beep aave+4,dl 


move.1 


moveq,1 

#$87, d0 ； 

個数 

trap 

#15 


clr.1 

d0 


lea 

_ret_arg,a0 



データ エリア 


.even 

dc,b ’chg 一 beep*,0 
dc.b * get—beep 1 ,0 
dc•b , put_beep , ,0 


_param ： 


dc.l 

dc.l 

dc.l 


—chg_beep—param 
_get_beep_param 
—put_beep_param 


_chg_beep_param: 

dc.w diml_vp 

dc.w int 一 omit 

dc.w void—ret 

_get_beep_param: 
_put_beep_pararo: 

dc.w int_ret 

.even 

_exec : 

dc.l 
.even 
tmp_area : 

dc. w 
.even 
_ret_arg : 

dc. w 
ret val : 

~ dc.l 


配列 

サイズ（省略可能） 
戻 D 俏（なし〉 


_chg_beep, 一 get—beep• 一 put 一 beep 


010,0 

0 


Deep save : 

dc.l 

end 


0,0 


BASIC のなかだけにしておきましようね。 
以上不した， chg _ beep ， get . oeep , put.be 
ep という外部関数の定義をするプログラム 
がリスト7です。リスト1の場合と同様に， 
これらの外部関数を X - BASIC へ取り込む 
方法は，パ、ックナンバーなどを参照してく 
ださい。 


そしてさよラなら 


これまで13回に渡って X - BASIC を解説 
してきたこの連載も今回で一応終了です。 
長い間のお付き合い，本当にありがとうご 
ざいました。そして，どうもお疲れさまで 
した。この連載の方針として， X - BASIC の 
個々の命令の細かい使用法は意図的に避け 
てきました。それは命令の細部に重点を置 
くあまり，プログラム全体の流れがつかみ 
にく くなるといった事態を避けたかったか 
らです。 

これは X - BASIC の連載ですから， X-BA 
SIC を使ったプログラミングをいろいろと 
示してきましたが， X - BASIC を使うとい 
うことは本質ではありません。 X 68000 を使 
って遊ぶということが大きな目的だったの 
です。そのためになにかプログラムを作る 
場合，いちばん大切なのはそれをどのよう 
な手順で実行するかということ，つまり， 
アルゴリズムです。それを実現するための 
言語はなんでもいいのです。ただ， X-BAS 
1 C がいちばん使いやすかったのでそれを使 
っていただけのことです。 

また， X - BASIC の連載のくせにアセン 
プリ言語で書いた外部関数を臆面もなく載 
せてきたのは，アセンブリ言語と X-BASI 
C の合体力 5 '「遊ぶ j という点でいちばん都合 
がよかったからにほかなりません。今回で 
この連載は終了しますが，これからも X-B 
ASIC (とアセンブリ言語）を使ってどんど 
ん遊んでみましよう。そして，過去13力月 
に渡ってご紹介してきたさまざまな事柄が， 
さらなる遊びのためのヒントとなれば幸い 
です。 

最後に，この連載のタイトルは結構わけ 
のわからないものが多かったと思いますが， 
これらはみな「伝説巨神イデオン」のサブ 
タイトルのもじりなのです（第1回目だけ 
はガンダムでしたが)〇イデオンはテレビ放 
映のあと劇場映画として復活し，そしてい 
まビデオでも復活しています。この連載も， 
果たしてイデオンよろしく，いつかまた復 
活することがあるのでしようか。それは「神 
ならぬ身の知る由もなし」といったところ 
です。 

l 3 b Oh ! X 1988.8. 
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第的部マルチウィンドウエディタ WINER 


籲マルチウィンドウエディタ 

E-MATE に次ぐ S-OS 用のスクリーンエデ 
ィタの登場です。すでに E-MATE の掲載さ 
れた1986年5月号が品切れになり，これま 
で長い間 E-MATE が入手できなかった方も 
いらっしゃるでしよう。そういう方にはま 
さに待望の新型スクリーンエディタの登場 
です。このエディタでは ZEDA, CAP-X85, 
Prolog-85, magiFORTH, FuzzyBASIC, CASL 
&COMET, CONTEX, STORY MASTER, tiny CO 
RE WARS, SLANG などのテキスト データを 
記述することができます。また，このエデ 
ィタの呼び名ですが“ワイナー”ではなく 
"ウィナー"というふうに読んでください 
ね0 

さて， E-MATE の強化版として送られてく 
る投稿のほとんどはコントロールキー対応 
にしたり，単にキーアサインを変更したり， 
高速化したりといった機種ごとの特殊化を 
行ったものでした。もちろん，掲載された 

全機種共通システム揭載記事 

■85 年6月号 
序 嫌 共通化の試み 

第丨部 S - OS " MACE " 

第2部 Usp - 85インタプリタ 
第3部チェックサムプログラム 
■85 年7月号 

第4部マシン語プログラム開発入門 
第5部エディタアセンブラ ZEDA 
第6部デバッグツール ZAID 
_85年8月号 

第7部ゲーム開発パッケージ BEMS 
第8部ソースジ x ネレータ ZING 
_85年9月号 

ィンタラプト S - OS 番外地 
第9部マシン語入カツール MACINTP-S 
第10部 Lisp -.85 入門⑴ 

_85年10月号 

第丨丨部仮想マシン CAP - X 85 
逢載 Lisp - 85入門⑵ 

_85年丨丨月号 
連載 Lisp -85 入門 (3) 

■85 年12月号 
第12部 Prolog -85 発表 
■86 年 I 月号 

第13部リロケータブルのお話 
第14部 FM 音源サウンドエディタ 
_86年2月号 
第 15部 Sr*OS " SWORD " 

第丨6部 Prolog - 85入門⑴ 

_86年3月号 
第17部 magiFORTH 発表 
連載 Prolog -85 入門⑵ 

■86 年4月号 

第18部思考ゲーム JEWEL 
第丨9部 LIFE GAME 
連載 基礎め、らの magiFORTH 
連載 Prolog -85 入門 (3) 

■ 86 年5月号 

第20部スクリーンエディタ E-MATE 
逢載 実戦演習 magiFORTH 

_86年6月号 
第21 部 280 TRACER 
第22部 magiFORTH TRACER 
第23部ディスクダンプ&エディタ 
第？4部 “ SWORD " 2000 0 D 
連載 対話で学ぶ magiFORTH 


ブログラムを各自で機能強化するというの 
は S -0 S の正しい使い方なのですが，新しい 
発想のエディタが現れないのもちょっと問 
題です。 

新しいエディタを作る際の最大の問題と 
なっているのは S -0 S にコントロールキーが 
ないということでしょう。しかし，すべて 
のマシンにコント ロ ールキーやフアンクシ 
ヨン キーがあるわけではありません。それ 
でもすベてのマシンでなんらかのエディタ 
は走っています。エディタにはコント ロー 
ルキーが必須という固定観念をなくすこと 
が重要でしょう。 UNIX などでは，端末を選 
ばないソフトウ x アの書き方がある程度確 
立されています。 

E-MATE のように コントロールモー ドを 
設定してしまうか，この WINER のようにコ 


ン トロ ールコー ドを エ スケ ー プシ ー ケンス 
にしてしまうか。 vi のようにコマンド モー 
ドだけで間に合わせてしまう手もあります 
し，いろいろと方法はあると思います。こ 
ういったところをクリアしたうえで，各機 
種に コン ト ロールキー 対応の モー ドもつけ 
るといったかたちのものが望ましいでしょ 
ぅ。 

WINER の作者である近藤さんはさらに WIN 
ER のパワーアップを計画しているようです。 
これも近いうちに発表できるでしょう。ま 
た，残念ながら今月は各機種用のラインプ 
リントルーチンを載せるスペースが確保で 
きませんでした。とりあえず，共通ルーチン 
で使用してみてください（もちろん，共通 
ルーチンを參考にして各機種用のルーチン 
を自作されても結構ですが)。 


ネ寺別イ寸錄 PC -880 IKSS-OS " SWORD " 

■86 年7月号 

第25部 FM 音源ミュージックシステム 
付録 FM 音源ボードの製作 

連載 計算カアップの magiFORTH 
特別付録 SMC -777 版 S - OS “ SWORD ” 

■86 年8月号 

第26部対局五目並べ 

第27部 MZ - 2500版 S - OS “ SWORD " 

■ 86 年9月号 

第28部 FuzzyBASlC 発表 
連載 明日に向かって magiFORTH 

■86 年10月号 

第29部ちょっと便利な拡張プログラム 
第30部ディスクモニタ DREAM 
第31部 FuzzyBASlC 料理法<1> 

■86 年 II 月号 

第32部パズルゲーム H 0 TTAN 
第33部 MAZE in MAZE 
連載 FuzzyBASlC 料理法 <2> 

■86 年12月号 

第34部 CAS し & COMET 
連載 FuzzyBASlC 料理法 <3> 

■ 87 年丨月号 

第35部マシン語入カツール MACINTO-C 
連載 FuzzyBASlC 料理法 <4> 

■ 87 年2月号 

第36部アドベンチャーゲーム MARMALADE 
第37部テキアベ作成ツール C 0 NTEX 

■ 87 年3月号 

第38部 * 法使いはアニメがお好き 
第39部アニメーションツール MAGE 
付録 “ SWORD " 再掲載と MAGIC の標準化 

■ 87 年4月号 

第40部 INVADER GAME 
第41 部 TANGERINE 

■ 87 年5月号 

第42部 S - OS “ SWORD " 変身セット 
第43部 MZ -700 用 “ SWORD " を 0 D 対応に 
_87年6月号 

インタラプトコンパイラ物語 
第44部 FuzzyBASlC コンパイラ 
第45部エディタアセンブラ ZEDA -3 

■ 87 年7月号 

第46部 STORY MASTER 


_87年8月号 

第47部パズルゲーム碁石拾い 
第48部漢字出カパッケージ JACKWRITE 
特別付録 FM -7/77 版 S -0 S “ SW 0 RD " 

_87年9月号 

第49部リロケータブル逆アセンブラ Inside-R 
特別付録 PC - 8001 / 8801 版 S - OS “ SWORD " 

■ 87 年10月号 

第50部 tiny CORE WARS 
第51部 FuzzyBASlC コンパイラの拡張 
第52部 Xlturb (^ S - OS tt SWORD " 

■87 年 II 月号 

序論 神話のなかのマイクロコンピュータ 

付録 S -0 S の仲間たち 

第53部もうひとつの FuzzyBASlC 入門 
第54部ファイルアロケータ& ローダ 
インタラプト S -0 S こちら集中治療室 
第55部 BACK GAMMON 
_87年12月号 

第56部タートルグラフィックパッケージ TURTLE 
第57部 Xlturbo 版“ SWORD "アフターケア 
ラインブリントルーチン 
特別付録 PAS 0 PIA 7 版 S - OS “ SWORD " 

_88年 I 月号 

第58部 Fuzzy BASIC コンパイラ.奥村版 
付録 石上版コンパイラ拡張部の修正 

■88 年2月号 

第59部シューティングゲーム ELFES 
_88年3月号 

第60部構造型コンパイラ言語 SLANG 
■88 年4月号 

第61部デバッギングツール TRADE 
第62部シミュレーションウォーゲーム WALRUS 
_88年5月号 

第63部シューティングゲーム ELFESII 
第64部地底最大の作戦 
■88 年6月号 

第65部構造化言語 SLANG 入門⑴ 

第66部 Lisp -85 用 NAMPA シミュレーション 
■88 年7月号 

第67部マルチウィンドウドライバ MW-I 
連載 構造化言語 SLANG 入門⑵ 

* 以上のアブリケーションは.基本システムであ 

る S -0 S “ MACE ” または S - OS " SWORD " がないと 
動作しませんのでご注意ください„ 
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全機種共通 S-OS “SWORD” 


マルチゥィンドゥエディタ WINER 


近藤環 Kondou Tamaki 


マルチウインドウェテイタ 


このエディ タでは X 68000 の WINDEX の 
ような マルチ ウィンドウ環境を実現します0 
オーバーラッピング マルチ ウインドウを サ 
ポートしていますが， 7月号で発表された 
マルチ ウィンドウパッケージ MW1 とは特 
に関係ありません。 MW -1 のウィンドウは 
階層構造になっていますので，ウィンドウ 
間の自由な移動が必要なウィンドウエディ 
夕などは作りづらかったのですが， この W 
INER があれば問題はないでしよう。 

WINER で使われているウインドウシス 
テムは汎用のものではありません。ゲーム 
や ユー ティリティではむしろ MW -1 のよう 
なシステムのほうが向いているでしよう。 
このシステムではウインドウはウインドウ 
の移動などの際に下から書き直されます。 
これにより，画面情報の退避エリアや仮想 
画面といったメモリを多量に消費するもの 
を使わずにマルチウィンドウを実現してい 
ます。 

また，操作法については， S - OS の標準 
的なスクリーン エディ タである E - MATE に 
ほぼ準じていますし，機能的にもマクロ機 
能を取り入れるなど意欲的な拡張が見られ 
ます。 


入力方法 


特殊ワークを4 K バイト使用しますので， 
MZ -80 K などでは特殊ワークの拡大が必要 
です（すでに ZEDA 3などで特殊ワークを 



拡大している場合には不要)。 

リスト1は全機種共通ですので，そのま 
ま 各機種の マシン 語モニタや MACINTO-C 
などの マシン 語入 カツールから 打ち込ん 
ください。デバイスにセーブしチェックザ 
ム， CRC チェックバ イトな どを 確認したら， 
# J 3000 

で WINER を起動してください。 


使用方法 


基本的なキー操作は E - MATE に準じて 

います 0 コントロールキーはブレイク +各 
キーに 割り当てられています。 S - OS のブ 
レイクコードは IBh ですから ， ESC キーを 
そのまま通して いる機種では，コントロー 
ルキーがエスケー プシ ーケンスに置き挽え 
られ ている わけです。以下， CTRL + 〜と 
いう 表現は ブレイクキー または ESC キーに 
続いてなに かの キーを押すこ とを表して い 
ます0コントロールキー のつ いている機種 
では 直接 コントロールキーで 操作で きる よ 
うに “ SWORD ” 内の キャラクタテーブル 
を 変更してぉくのもよ いでしよう。 具体的 
なコントロールコードは表1にまとめてあ 
ります。 

E - MATE と違い，1文字で コントロール 
モードから抜けてしまいますが ， CTRL + 
スペースで E-MATE のコントロールモード 

図1メモリマップ 


メインメモリ 



お待ちかね， S - OS 用スクリーンエディタ 
第2弾の登場です。エディタは S - OS での 
プログラム開発を多方面から支援してくれ 
る便利なユーティリティですので，皆さん 
ぜひ打ち込んで活用してください。来月は 
各機種用にパワーアップを予定しています。 



のようなコントロールロッタ状態になりま 
す（抜けるときはもう-度スぺースキーを 
押す)。 

ほとんどのコントロー ルコードはどのウ 
ィンドウに対しても有効ですが，起動時に 
関かれているウィンドウ番号のついていな 
いウ^ンドウ（コマンドウインドウ）では 

WINER 特有のコマンドを実行することが 
できます。これらは表2にまとめておきま 
す。 

♦なにも考えずに使う 

WINER を当たり前のスクリーンエディ 
夕として使用する場合は以下のようにして 
ください。ウィンドウを使用しないのであ 
れば，これらの操作を最初からワークエリ 
アに書き込んでおくとよいでしょう。 

1) M/B : adr 

adr は各機種の MEMAX のアドレス。 
起動後， M コマンドでテキストエリア A 
の割り当てメモリを最大にする（巨大な 
テキストでなければ，この操作は不要)。 

2 ) L 

デイレクトリを表示させ，テキストを読 
み込む（新しいテキストでは不要)〇 

3) 0 E 

ウィンドウ0のエディットを開始する。 

4) CTRL + ” 

ウィンドウ0を画湎いっぱいに拡大し， 
エディツ ト開始する。 


特殊ワーク 

000 Oh - 

カット&ペースト用バッファ 
デリ—トバッファ 

070 Oh - 

コピー用バッファ 

OAOOh - 

ウィンドウデータ& 

ファイルネー厶バッファ 

OBOOh - 

サーチ&チ x ンジ 
コマンド用バッファ 

OCOOh - 

コマンドテキストバッファ 

100 Oh - 

* 特殊ワークに余裕があれば 
カット&ペースト用バッファと 
デリートバッファを分割できる 
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春マルチウインドウで使う 

複数のウィンドウで同一のテキスト，複 
数のテキストを扱うことができます。同一 
のテキストを複数のウィンドウで扱う場合， 
画面上のテキスト書き換えはアクティブウィ 
ンドウが変わったとき，ウインドウの位置や 
大きさを切り換えたときなどに更幸斤されます。 

まず， コマンド ウインドウからアクテイ 
ブウィンドウを指定しましょう。標準状態 
では〇番のウインドウがアクテイブになっ 
表 1コン ト ロールキ 覧 


ていますので，ウインドウ0をアクセスし 
たければそのまま，それ以外のウィンドウ 
をアクセスしたければ，該当するウインド 
ウ番号 （0 〜 7) を入力してください。こ 
れによって任意のウインドウを呼び出すこ 
とができます。エディットを開始するとき 
は E コマンドを打ち込みます。まとめて， 

1 E 

のように入力してもかまいません。 

エディット状態からアクティブ、ウインド 


ウを切り換えるには， CTRL +! を使用し 
ます。画面の指示に従って切り換えるウイ 
ンドウ番号を入力してください。 

この WINER では MW -1 のような画面情 
報の保護/復帰というものは行わず，ウイ 
ンドウを下から順に書き直すことで画面を 
保っています。そのため，表示速度の遅い 
機種では少しイラつくこともあるかもしれ 
ません。そこで，下画面の不要なときは画 
面の書き換えを行わないというモードをつ 


コントロールキーの 実行方法 

[ESC] または 「SHIFT] + [BREAK] を押しコントロールモードに入り，次に任意のコントロールキーを押すことで実行される。実行したら通常の入カモードに戻る。 


コントールモードの状態は最下段に表示が出る。 

カーソル 移動 キー _ 


一 s 

< — 

0I3h 

OIDh 

1 文字左に移動 

^ D 

004 h 
OICh 

1 文字右に移動 

^ E 

f 

005h 
01 Eh 

1 文字上に移動 

^ X 

1 

01811 

0 1 Fh 

1 文字下に移動 

^ A 

00 Ih 

1 単語左に移動 

F 

006h 

1 単語右に移動 


画面表示関係 


" W 

017 h 

1 行下に スクロール 

氺 

- Z 

0 1 Ah 

1 行上に スクロール 

氺 

^ R 

0 I 2 h 

1ページ下にスクロール 

木 

" C 

003 h 

1ページ上にスクロール 

ホ 

" J 

00 Ah 

画面を表示しなおす 

氺 

^ T 

0 I 3 h 

1ステップ左にスクロール 

氺 

^ U 

0 I 4 h 

1ステップ 右に スクロール 

氺 


タビュレーシヨン関係 


^ 1 

009 h 

次のタブ位置まで力ーソルを移動する 

^ Q 

01 Ih 

タブ位置の設定，解除を行う 


ウインドウコント ロール 関係 


へ | 

02 Ih 

ダイレクトに指定のウィンドウにジャンプする * 


022 h 

現在使用中のウィンドウの大きさを最大にし，もう一度押 
すともとの大きさに戻る 


023 h 

ウインドウの移動。力ーソルがウィンドウの左上に移動し 
テンキー，カーソルキー， S を中心とした キーで カーソル 
を動かし，上記以外のキーを押すと移動したウィンドウを 
表示する 

* $ 

024 h 

ウィンドウの大きさ指定。同上 


コピー関係 


^ 0 

03 Oh 

コピーバッファを表示する。スペースキーを押すたびに C 

H 丨 —CH2 —CH3 の順で表示される 

一 1 

0 3 1 u 

コピーバッファ1の内容を出力する 

^ 2 

032 h 

コピーバッファ 2 の内容を出力する 

一3 

033 h 

コピーバッファ 3 の内容を出力する 

* 4 

034 h 

コピーバッファ丨の内容を消去する 

一5 

035 h 

コピーバッファ 2 の内容を消去する 

一 6 

036 h 

コピーバッファ 3 の内容を消去する 

一7 

037 h 

力ーソルの文字をコピーバッファ1に入れる 

^ 8 

Q 38 h 

力ーソルの文字をコピーバッファ 2 に入れる 

* 9 

039 m 

力ーソルの文字をコピーバッファ3に入れる 


デリート閲係（削除した文字はデリートバッファに保存) 


^ G 

007 h 

力ーソル上の文字を削除する 

^ B 

002 h 

カーソルの左の文字を削除する 

^ V 

0 I 6 h 

カーソル以後丨行を削除する 

" Y 

019 m 

改行コードを含む丨行を削除する 

ポ 


マクロ関係 


". 

03 Bh 

マクロ 0 実行 

み • 

03 Ah 

マクロ 1 実行 

み f 

02 Ch 

マクロ 2 実行 

九 

02 Eh 

マクロ 3 実行 

フ 

02 Fh 

マクロ 4 実行 


02 Bh 

マクロ 5実行 

* 

02 Am 

マクロ 6 実行 

< 

03 Ch 

マクロ 7 実行 

> 

03 Eh 

マクロ 8 実行 

一？ 

03 Fh 

マクロ 9 実行 


カット &. ペースト関係 


一 ％ 

025 h 

カーソルの 行に カット & ペースト 用の マークをつける。マ 
—クがつ いているときはウィンドウの右上の行 No. の表示部 
に* がつく * 

^ & 

026 h 

マークした行から力ーソルまでの行を バッファに 入れテキ 
ストを削除する * 


027 h 

マーク した行から カーソルまでの 行を バッファに 入れテキ 
ストを削除しない * 

一 （ 

028 h 

カーソルの 行から バッファの 内容をイン サー トする * 


行コネクト関係 


* N 

OOEh 

カーソルの位置でその行を分割する * 

* し 

00 Ch 

カーソルの行と次の行を丨文字あけて連結し力ーソルを連 
結部に移動する * 


デリートバッファ関係 


^ P 

OIOh 

カーソルの位置からデリートバッファの内容を出力する 

^ K 

OOBh 

デリートバッファの内容をクリアする 


その他 


~ 0 

OOFh 

オーバーライトモードとインサートモードの切り換え 


020 h 

コントロールモードキープ ON/OFF の切り換え 

^ H 

008 m 

現在の行を変更前に戻す 

*ESC 

OIBh 

エディットモードからコマンドレベルに戻る（再設定不可） * 

A M 
RET 

00 Du 
00 Dh 

改行する 


* 印はコマンドウィンドウで使用不可 
なお， ESC はコントロールモードに入るときの操作と同様の操作を表す 


-H 

m 

(A 

m 

z 

-H 

Z 

m 
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けてあります。これは コマンドウインドウ 
の 上から P コマンドを 実行するたび，モー 
ドが切り換わっていきます（標準状態では 
書き換えは行わない)。 

籲ファイルをロー ド/セーブする 

ファイルのロード/セーブは コマン ドウ 
インドウ上から行います。これらのコマン 
ドは現在選択されているウィンドウに対し 
て有効になりますから， L コマンドで読み 
込んでください。 ファイル 名が省略され た 
り，不適当な場合はディレクトリが表示さ 
れますので， カーソルをロードしたいファ 
イルの ところまで運んでリタ ー ンキ ー を 押 
してください。 

WINER はマルチテキストですので，テ 
キスト編集中にちよっとほかのテキストを 
参照したいといった程度のことならばいち 
いち ファイルを 口ー ド/セーブすることも 
ありません。 

各ウインドウからは CTRL + CTRL でコ 
マンドウインドウにジャンプできますから， 
エディツトカ ? 終了した時点でコマンドウィ 
ンドウに移り S コマンドを使ってセーブし 

表2各コマンドの説明 


てください。 L コマンドで読み込んだもの 
についてはファイル名を覚えていますので 
いちいち指定する必要はありません。 

籲テキストを コピーす る 

コピー機能関係は CTRL +0 〜9の数字 
キーに割り振られています。もっとも基本 
的な使用方法は， 

1 ) コピーしたい 文字列の先頭に カーソル 
をあわせる。 

2) CTRL 4- スペースでコントロールモー 
ドをロックする。 

3) 数字の7 の キーを押して バッファ に文 
字列を送る。 

4) 転送したい場所に カーソルを あわせ， 
数字の1の キーを 押す。 

5) 4 の キーで バッファの 内容をクリァし 
てぉく。 

という手順になります。 

この例では バッファ1 しか使っていませ 
ん力 ? ，テキストのコピー バッファには 3種 
類があります。テンキーのある機種では縦 
一列に バッファ 1，2, 3が並んでいますの 
でわかりやすいでしよう。 


より高度な使い方 


以上が WINER の基本的な使い方ですが， 
設定を変えたり，専用ルーチンを組み込む 
ことでさらに自分にあった使い方ができる 
ようになります。 

參スクロールを 高速にしたい 
WINER には専用のラインプリントルー 
チンを組み込むことができます （ E-MATE 
のものは使えません)。今月は残念ながら各 
機種用ラインプリントルーチンを掲載する 
ことはできませんでした。来月にご期待く 
ださい。 

籲複数のテキストを同時に扱いたい 

WINER はマルチテキストに対応してい 
ます。扱えるテキストは4種類で A 〜 D の 
名前で識別されます。テキストの割り当て 
を行ってみましよう。〇〜3のウィンドウ 
に A 〜 D のテキストを割り当てる場合， 

0 /A 

1 /B 

2 /C 

3 /D 

のようにコマンドウィンドウから打ち込め 
ばよいのです。テキストの割り当てを行わ 
なければ，どのウィンドウも A のテキスト 
をエディットすることになります。 

癱もっと大きなテキストを扱いたい 

標準の状態ではマルチテキストモードで 
すので， 

A 500 Oh 〜 9 FFFh 
B AOOOh 〜 CFFFh 
C DOOOh 〜 E 4 FFh 
D 〜 MEMAX 

というテキストエリアの割り当てが行われ 
ています。もっと大きなテキストを扱いた 
いときには，これを変更して シングル テキ 
ストにすればよいのです。具体的にテキス 
卜 A を大きくするためには， コマンド ウィ 
ンドウから， 

M/B : C000 
M/C :…… 

のようにしてテキスト B 以降の先頭アドレ 
スを変えます0 

テキストエリアを最大にしても E-MAT 
E より若干フリーエリアは狭くなりますが， 
これはいたしかたないでしよう。 

籲面倒なキー操作をまとめて行いたい 
テキスト D は特殊な用途に使えます。す 
なわち，この領域に書いたテキストはマク 
ロ テキストとみなされ，コント ロールキー 
でバッチファイルのように自動実行するこ 
とができるのです。具体的な書式を示して 


n. 行 No. 丨〜65534 fn ……ファイルネーム 

str ……文字列 （） ……省略できる 


.テキストエリア名 A ~ D 


E(n) 
〇 〜7 

L(fn) 

S(fn) 


Dn n 

F(n)" str" 

C(/)(n) n str1 “str2” 


M/t : adr 
N 


Xt 

P 

% 

& 

R 


エディツトモードに入る 

ウィンドウを選択する。続けてコマンドを入力できる 
テキストエリアを選択する 

現在のテキストエリアにテキストをロードする 

ファイル名を省略するとディレクトリを表示して，その中からカー 
ソルで選択する 

現在のテキストエリアをセーブする 

ファイル名を省略すると，テキストが一度ロードしたものであれば， 
ファイル名を表示してそのままセーブするかどうか聞いてくるので， 
Yes ならば，リターンキーを押す。別のキーを押すか新規のファイル 
であれば L コマンドと同じ 

現在のテキストエリアの指定した範囲を削除する 

ライン No •をトップにする。 F,C コマンドで使用する 

現在のテキストエリアで文字列を検索する。文字列をみつけると文字 

列の最初でカーソルキーが点滅する。そのときスペース キーを 押すと 

エディツトモードに入る 

現在のテキストエリアの“ strl" を "str2” に置き換える 
/をつけると “strl" をみつけるたび文字列の最初でカーソルが点滅す 
る。そのとき変換したかったらスペースキーを押す 
現在のテキストエリアの使用状況を表示する 

たとえば /A : 5000--8000 : 3000 [2FFF] と表示されたらテキストエ 
リア A は500011から800 Oh までの300 Oh バイトあり，残り 2 FFFh バイト 
ある 

テキストエリアの開始アドレスを指定し使用状況を表示する 
現在のウィンドウの割り当てを表示する 

たとえば〇 /A: なら，ウィンドウ0にはテキストエリア A が割り当て 
られている 

テキストエリア内の交換 

ウィンドウをプライオリティに合わせて表示するかどうかの切り換え 
タブデータを表示するかどうかの切り換え 
現在のテキストエリアのテキストを消去する 
&コマンドで消したテキストを復活する 
呼び出したシステムに帰る 
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おきましよう。 

D のテキストに次のように書き込んでみ 
ます。 

MCR1 

0 / A@M 

LTEST1@M 

1 / B@M 

LTEST2@M 

P@M 

E@M 

@$888888888888 @M 
@# 222222222222 @M 
@ !0 

@”@$22222222222 @M 

END 

1 行目はマクロ番号 1 番の命令を記述し 
ていることを示します。 END までの記述 
は キー 操作を表し， コントロール コードは 
@を頭につけて表現します。操作内容につ 
いては コントロールコー ド表から解読して 
ください。 

さて， ここでコマンドウインドウから C 
TRL + :(コロン）を実行してみると，ウィ 
ンドウ0に TEST1 , ウインドウ1 に TEST 
2 というファイルを読み込んで，上下半分 
ずつのウィンドウを開きエディツト状態に 
入ります。 

このようなマクロ機能は〇〜9番までの 
10 種類が登録可能で，定型的なテキスト編 
集作業には威力を発揮します。 

Profile 

◊近藤さんは大阪府にお住まいの24歳。塾の講師 
をされているそうです。パソコン歴は約4年の 
Xlturbo ユーザー，今度はカルクやデータべ一 
スにも挑戦したいとか。 


表3各種ワークの説明 


メインメモリ側 

300 Eh (4 E 00 h ) タブデータバッファアドレス 

301 Oh (4 F 00 h ) I 行バッファアドレス 

30 I 2 h (5000 h ) テキスト A 開始アドレス 
30 I 4 h テキスト B 開始アドレス 

30 I 6 h テキスト C 開始アドレス 

30 I 8 h テキスト D 開始アドレス 

30丨 Ah テキスト MAX(MEMAX) 

テキストエリアの設定は M コマンドでもできる 


特殊ワーク側 
30 ICh ( OOOOh ) 
30 I Eh (0700 h ) 
302 Oh (0 A 00 h ) 
3022 h (0 B 00 h ) 
3024 h (0 B 80 h ) 
3026 h ( OCOOh ) 
3028 h (07 h ) 


3029 h (0000 h ) 


カット & ペースト用バッファアドレス （0000 m に固定する） 

コピー用バッファドレス（同時に C & P バッファの上限になる） 

ウィンドウデータ用ワークアドレス 
サーチ用文字列バッファアドレス 
チェンジ用文字列バッファアドレス 
コマンドテキスト用バッファアドレス 
コマンドテキスト用ラインマスク 

* ライン No . にかかるマスクで丨行は128バイトなので使えるのは 
03 h — 3行大きさは020 Oh 

07 ii - 7行大きさは040 Oh 

OFh — I 5行大きさは080 Oh 
IFh — 31行大きさは100 Oh 
3 Fh — 63行大きさは200 Oh 
7 Fh — 127行大きさは400 Oh 
FFH — 255行大きさは800 Oh 

デリートバッファ用アドレス 

* 初期値は000 Oh で C & P バッファと同じだがコマンドテキストバッファの 
後ろにすれば重ならないで使える 


302 Bh (03 h ) デリートバッファ用サイズマスク 

* アドレスの上位8ビットにかかるマスクなので使えるのは 
01 h — 大きさは020 Oh 
03 h — 大きさは040 Oh 
07 h — 大きさは080 Oh 
OFh — 大きさは100 Oh 
IFh — 大きさは200 Oh 
3 Fh — 大きさは400 Oh 
7 Fh _ 大きさは800 Oh 

たとえば X I turbo なら特殊ワークの設定を頭から 

0000 H , 800加，8300 h , 8400 h , 8480 h , 8500 h , 3 Fh , A 500 h ， OFh とすると， 

カット & ペーストバッファが 32 K バイト，コマンドテキストが 8 K バイト （63 行）， 
デリートバッファが 4 K バイトとなる 


リスト1 WINER ダンプリスト 


3000 CD F1 31 CD 0C 32 C3 50 : 0D 
3008 32 00 00 00 FE EC 00 4E : 6A 
3010 00 4F 00 50 00 A0 00 D0 : 0F 
3018 00 E5 00 EC 00 00 00 07 : D8 
3020 00 0A 00 0B 80 0B 00 0C : AC 
3028 07 00 00 0318 0D 00 50 : 7F 
3030 17 00 18 07 2E 06 03 02 : 6F 
3038 3611 08 03 3611 0D 04 : AA 
3040 361112 05 3611 01 02 : A8 
3048 2A 0C 2D 02 22 0C 0110 : A4 
3050 2A 06 2D 10 22 0618 07 : B4 
3058 2E 06 06 03 00 00 00 00 : 3D 
3060 50 00 00 00 50 00 50 00 : F0 
3068 50 00 A0 00 0D 00 00 4D : 4A 
3070 00 00 00 01 00 00 00 00 : 01 
3078 00 00 FF FF CA E5 00 01: AE 


SUM ： AB 69 62 3B A7 F5 3D 3E 95ED 

3080 0D 00 01 02 03 04 05 06 : 22 
3088 07 08 09 0A 0B 0C 0D 0E : 54 
3090 0F 10 111213141516 : 94 
3098171819 1A IB 1C ID 1E : D4 
30A0 1F 20 2122 23 24 25 26 :14 
30A8 27 28 29 2A 2B 2C 2D 2E : 54 
30B0 2F 30 3132 33 34 35 36 : 94 
30B8 37 38 39 3A 3B 3C 3D 3E : D4 
30C0 3F 20 3A 3B 2C 30 2B 2D : 95 
30C8 2A 2F 3C 3E 28 29 5B 5D : DC 
30D0 7B 7D A2 A3 22 27 20 20 : C6 
30D8 20 01 00 FF FF FF FF FF : 1C 
30E0 FF FF FF 3C 3C 20 57 20 : 0C 
30E8 49 20 4E 20 45 20 52 20 : AE 
30F0 3E 3E 20 76 65 72 20 31: 3A 
30F8 2E 30 20 28 43 29 20 31: 63 


SUM ： 9E 3A 8D 05 96 67 96 5B B521 

3100 39 38 38 20 54 61 6D 61: 4C 
3108 2E 00 20 20 20 20 32 00 : E0 
3110 5B 20 20 20 20 20 5D 5B : B3 
3118 20 20 20 20 20 20 20 5D : 3D 
3120 00 20 2F 20 49 6E 73 65 : FE 
3128 72 74 20 6D 6F 64 65 20 : CB 
3130 20 20 2F 20 00 20 2F 20 : FE 
3138 4F 76 65 72 74 79 70 65 : 5E 
3140 20 6D 6F 64 65 20 2F 20 : 34 
3148 00 4E 6F 72 6D 61 6C 00 : 69 
3150 43 74 72 6C 20 00 3C 20 :11 
3158 57 69 6E 64 2E 00 48 69 : 71 
3160 74 20 3C 43 52 3E 20 6F : 32 
3168 6E 20 46 69 6C 65 20 6F : 9D 
3170 72 20 42 72 65 61 6B 1E : 95 
3178 0D 00 57 68 69 63 68 20 : 20 


SUM: DE 9A 54 CB 8C 14 C5 E8 7CB0 

3180 77 69 6E 64 6F 77 20 64 : 1C 
3188 6F 20 79 6P 75 20 6A 75 : EB 
3190 6D 70 20 3F 20 20 20 00 : 9C 
3198 4E 6F 20 75 73 69 6E 67 : 03 
31A0 00 4E 6F 77 20 6C 6F 61: 90 
31A8 64 69 6E 67 20 00 20 44 : 26 
31B0 6F 20 79 6F 75 20 73 61: E0 
31B8 76 65 20 3F 20 00 4E 6F :17 
31C0 77 20 73 6176 69 6E 67 : 1F 
31C8 20 20 00 4D 65 6D 6F 72 : 40 
31D0 79 20 4F 76 65 72 20 20 : 75 
31D8 20 20 20 20 20 20 20 00 : E0 
31E0 20 50 72 77 20 6F 6E 00 : 56 


31E8 20 50 72 77 20 6F 66 66 : B4 
31F0 00 CD 10 34 06 0411 6F : 9B 
31F8 30 78 3D D5 C5 CD CC 34 : 4C 


SUM ： 8A 09 B0 4E B7 C3 36 B7 FFF4 

3200 Cl D1 38 04 7E 36 00 12 : 94 
3208 IB 10 EE C9 2A 20 30 AF : 0B 
3210 47 CD 9A IF 2310 FA AF : A9 
3218 32 3130 21 00 00 CD 9A : IB 
3220 IF 2A IE 30 CD 9A IF 24 : 41 
3228 CD 9A IF 24 CD 9A IF 21 : 51 
3230 00 00 22 78 30 CD CC 34 : 97 
3238 22 67 30 ED 53 69 30 CD : 5F 
3240 EC 34 DO 2A 1A 30 2218 : 9E 
3248 30 2216 30 2214 30 C9 : C7 
3250 ED 73 0C 30 AF 67 6F 32 : 53 
3258 5B 30 32 5A 30 22 70 30 : 09 
3260 22 73 30 22 7F 30 2A 26 : E6 
3268 30 1180 00 3A 28 30 47 : 9A 
3270 04 AF CD 9A IF 1910 FA : 5C 
3278 CD FC 33 CD 44 33 CD 52 : 5F 


SUM ： EA 32 53 33IF 4199 4C 2E5D 

3280 33 C3 39 41 AF 32 75 30 : F6 
3288 3A 3130 FE 08 38 01 AF : 89 
3290 32 3130 87 87 2136 30 : 28 
3298 85 6F 1132 30 01 04 00 : 6C 
32A0 ED B0 3A 3130 6F 87 85 : B3 
32A8 2A 20 30 85 6F 30 0124 : C3 
32B0 EB 215C 30 01 03 00 CD : 69 
32B8 91IF 3A 5C 30 CD CC 34 : 43 
32C0 30 06 CD C4IF C3 8132 : 5C 
32C8 22 67 30 ED 53 69 30 2A : BC 
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3500 

3508 

3510 

3518 

3520 

3528 

3530 

3538 

3540 

3548 

3550 

3558 

3560 

3568 

3570 

3578 


B8 38 0415 20 
84 B8 38 03 25 
34 30 ED 53 32 
3130 87 8711 
5F 2132 30 01 
B0 3A 3130 6F 
20 30 85 6F 30 
5C 30 01 03 00 
IF 3A 5C IF 32 
5B IF 3D 32 30 
0C CD F4IF 3A 
18 00 FE 50 28 
CD IE 20 11 E3 
IF 3A D9 30 B7 
D8 3311 DA 30 
D5 3D 32 3130 


3300 

3308 

3310 

3318 

3320 

3328 

3330 

3338 

3340 

3348 

3350 

3358 

3360 

3368 

3370 

3378 


2A 67 
28 0F 
0D 20 
FI D1 
ED 5B 
FF 1A 
2310 
06 FF 
0D C9 
D135 
30 1A 
35 D8 
53 65 
ED 42 
ED 5B 
30 18 


SUM: 6B 15 0C 62 212B 83 6C 


SUM: 33 96 90 69 44 EB 0E CF 


49 

95 

B8 

24 

D9 

18 

IF 

87 

90 

3B 

9F 

3C 

DB 

A7 

9F 

F4 


IF 

22 

08 

B3 

CC 

AB 

AA 

C6 

4B 

B2 

5D 

2A 

30 

FB 

30 

C3 


SUM ： F4 AD 42 8A ED B8 05 F5 6910 

3580 19 EB E5 44 4D 2A 65 30 : 39 
3588 B7 ED 42 44 4D 03 El ED : 48 
3590 B0 IB ED 53 65 30 18 DA : 92 
3598 44 41) CD BB 35 30 02 Cl : 41 
35A0 C9 ED 4B 65 30 09 E5 60 : E4 
35A8 69 B7 ED 52 44 4D 03 D1 : C4 
35B0 2A 65 30 KD 53 65 30 ED : 81 


142 Oh ! X 1988.8. 


SUM：14 4F B0 63 F9 60 D0 E6 AAE0 

3380 CD 87 33 D11318 FI CD : 41 
3388 84 32 CD 3B 34 CD 10 38 : 07 
3390 AF 32 2E 30 32 7E 30 2A : 49 
3398 32 30 ED 4B 34 30 CD 00 : CB 
33A0 4C CD EB 37 CD B5 37 CD : Cl 
33A8 D137 CD A9 34 2A 32 30 : 3E 
33B0 22 2C 30 3A 35 30 47 ED : 51 
33B8 5B 63 30 212D 30 1A B7 : 3D 
33C0 28 0A CD 03 4C CD 76 34 : C5 
33C8 3410 F3 C9 3E 0D 12 CD : 2A 
33D0 03 4C 3410 FA AF 12 C9 : 17 
33D8 3A 3130 5F 01 FF 08 21 : 23 
33E0 DA 30 7B BE 28 0A 79 BE : AC 
33E8 28 0C 2310 F5 C3 8132 : D2 
33F0 23 7E 2B B9 20 02 73 C9 : E3 
33F8 77 2318 F4 21 DB 30 54 : 26 


SUM ： 0122 38 78 F3 04 07 C8 6FCB 

3400 5D 13 01 07 00 36 FF ED : 9A 
3408 B0 3A 3130 32 DA 30 C9 : 50 
3410 2A 6A IF 221A 30 06 04 : 29 
3418 DD 2118 30 DD 5E 00 DD : 5E 
3420 56 01 DD 6E 02 DD 66 03 : EA 
3428 B7 ED 52 30 0719 DD 75 : 98 
3430 00 DD 74 01 DD 2B DD 2B : 62 
343810 E2 C9 2A 5D 30 CD 04 : 43 
3440 35 22 5F 30 ED 43 5D 30 : A3 
3448 EB 60 69 3A 35 30 CB 3F : 5D 
3450 4F 47 0418 03 CD 80 34 : 36 
345810 FB B7 ED 42 30 03 21 : 45 
3460 00 00 22 6130 2A 67 30 : 74 
3468 B7 ED 52 38 04 ED 5B 67 : El 
3470 30 ED 53 63 30 C91A B7 : 9D 
3478 C813 FE 0D 20 F8 B7 C9 : 7E 


SUM ： 5F 36ID CA 57 37 60 191115 

3480 IB IB 1A B7 28 04 FE 0D : 3E 
3488 20 F713 C9 2A 0E 30 7E : D9 
3490 FE 2D C8 FE 2B C8 0E 20 : 12 
3498 36 2B 23 06 07 36 2D 23 : 17 
34A0 10 FB 0D 20 F3 2B 36 0D : 99 
34A8 C9 CD 8C 34 3A 6B 30 B7 : E2 
34B0 C8 2A 2C 30 E5 2A 32 30 : BF 
34B8 3A 35 30 84 67 22 2C 30 : 08 
34C0 ED 5B 0E 30 CD 03 4C El : 83 
34C8 22 2C 30 C9 FE 04 3F D8 : 60 
34D0 2112 30 87 85 6F 5E 23 : 5F 
34D8 56 23 7E 23 66 6F B7 ED : 93 
34E0 52 F5 44 4D 19 FI EB D8 : A5 
34E8 37 C8 B7 C9 ED 4B 67 30 : 4E 
34F0 C5 2A 69 30 B7 ED 42 44 : B2 
34F8 4D El AF ED B12B 22 65 : 2D 


32D0 34 
32D8 2F 
32E0 10 
32E8 20 
32F0 7B 
32F8 1C 


30 ED 5B 
30 7D FE 
24 25 20 
011C 14 
85 B9 38 
7B 85 B9 


32 30 ED 
10 30 02 
01241C 
15 20 01 
04ID 20 
38 03 2D 


4B 

46 

2E 

4A 

ID 

D7 

14 

9B 

F8 

2A 

18 

55 


35B8 

B8 

18 

B7 

E5 

D5 

CD 

06 

36 

4A 

3500 

AF 

ED 

42 

D1 

El 

C9 

01 

00 

5A 

3508 

00 

1A 

03 

13 

FE 

0D 

20 

F9 

54 

35D0 

C9 

01 

00 

01 

2A 

10 

30 

09 

3E 

3508 

2B 

2B 

7E 

FE 

20 

20 

06 

0B 

23 

35E0 

78 

B1 

20 

F5 

03 

23 

36 

0D 

A7 

35E8 

09 

1A 

FE 

20 

C0 

13 

18 

F9 

E5 

35F0 

FE 

61 

D8 

FE 

7B 

00 

D6 

20 

76 

35F8 

C9 

E5 

C5 

21 

Cl 

30 

01 

18 

9E 

SUM: 

83 

A5 

7E 

36 

F8 

51 

FA 

57 A069 

3600 

00 

ED 

B1 

Cl 

El 

C9 

2A 

69 

9C 

3608 

30 

ED 

5B 

65 

30 

13 

B7 

ED 

C4 

3610 

52 

C9 

CD 

IB 

36 

7C 

B5 

28 

92 

3618 

01 

2B 

C9 

21 

00 

00 

1A 

CD 

FD 

3620 

32 

36 

D8 

29 

44 

4D 

29 

29 

4C 

3628 

09 

D6 

30 

4F 

06 

00 

09 

13 

80 

3630 

18 

EC 

FE 

30 

D8 

FE 

3A 

3F 

81 

3638 

C9 

23 

7C 

B5 

20 

01 

2B 

01 

6A 

3640 

0F 

31 

AF 

02 

OB 

11 

0A 

00 

17 

3648 

CD 

61 

36 

7B 

C6 

30 

02 

0B 

E2 

3650 

7D 

B4 

20 

FI 

21 

09 

31 

B7 

54 

3658 

ED 

42 

C8 

3E 

20 

02 

0B 

18 

7A 

3660 

F3 

C5 

3E 

10 

42 

4B 

EB 

21 

9F 

3668 

00 

00 

29 

EB 

29 

EB 

3 0 

01 

59 

3670 

23 

B7 

ED 

42 

30 

03 

09 

18 

5D 

3678 

01 

13 

3D 

20 

ED 

EB 

Cl 

C9 

D3 

SUM ： 

FC 

00 

82 

C8 

23 

14 

74 

A41963 

3680 

2A 

2F 

30 

2E 

00 

CD 

IE 

20 

C2 

3688 

CD 

8E 

36 

C3 

10 

38 

11 

CB 

78 

3690 

31 

CD 

E5 

IF 

CD 

C4 

IF 

18 

CA 

3698 

06 

B7 

28 

F2 

CD 

33 

20 

AF 

入 6 

36A0 

32 

71 

30 

32 

80 

30 

C3 

21 

99 

36A8 

20 

3A 

72 

30 

B7 

CA 

21 

20 

BE 

36B0 

[■5 

D5 

C5 

3A 

71 

30 

3D 

20 

B7 

36B8 

05 

CD 

DF 

36 

18 

0B 

3D 

20 

67 

3600 

05 

CD 

CD 

36 

18 

03 

CD 

44 

01 

36C8 

37 

Cl 

D1 

El 

C9 

2A 

78 

30 

45 

36D0 

7C 

B5 

28 

6C 

2B 

22 

78 

30 

BA 

36D8 

ED 

5B 

29 

30 

19 

18 

08 

2A 

04 

36E0 

76 

30 

23 

VL 

76 

30 

2B 

CD 

89 

36E8 

94 

IF 

B7 

28 

53 

4F 

FE 

20 

52 

36F0 

D2 

65 

37 

C3 

67 

37 

CD 

D0 

6C 

36F8 

IF 

FE 

IB 

28 

IB 

2A 

7C 

30 

51 

SUM ： 

0A 

DE 

D4 

BC 

DA 

78 

03 

EE C855 

3700 

7E 

4F 

23 

22 

7C 

30 

B7 

28 

9D 

3708 

0F 

FE 

45 

20 

11 

7E 

FE 

4E 

4D 

3710 

20 

0C 

23 

7E 

FE 

44 

20 

06 

35 

3718 

AF 

32 

72 

30 

18 

26 

79 

FE 

38 

3720 

20 

38 

D3 

FE 

40 

20 

2C 

2A 

DF 

3728 

7C 

30 

7E 

4F 

23 

2 2 

7C 

30 

6A 

3730 

FE 

20 

38 

C2 

FE 

40 

28 

IB 

99 

3738 

3E 

IB 

32 

80 

30 

79 

18 

13 

DF 

3740 

AF 

32 

71 

30 

3A 

72 

30 

B7 

15 

3748 

20 

AC 

CD 

B5 

37 

CD 

A0 

37 

29 

3750 

CD 

21 

20 

4F 

FE 

20 

38 

1A 

CD 

3758 

3A 

74 

30 

B7 

20 

34 

3A 

80 

A3 

3760 

30 

FE 

IB 

28 

2D 

B7 

3E 

37 

CA 

3768 

79 

32 

80 

30 

F5 

CD 

79 

38 

CE 

3770 

FI 

C9 

21 

81 

30 

06 

00 

09 

9B 

3778 

7E 

4F 

FE 

IB 

20 

E9 

21 

80 

90 

SUM ： 

22 

E9 

00 

5E 

35 

19 

50 

82 D63B 

3780 

30 

BE 

28 

E3 

32 

80 

30 

3A 

15 

3788 

74 

30 

B7 

20 

DA 

CD 

8D 

38 

E7 

3790 

1H 

B2 

79 

FE 

40 

38 

DB 

FE 

92 

3798 

60 

30 

CA 

D6 

40 

4F 

18 

D2 

A9 

37A0 

3A 

2E 

30 

4F 

3A 

7E 

30 

91 

60 

37A8 

4F 

3A 

32 

30 

81 

6F 

3A 

2D 

42 

37B0 

30 

67 

C3 

IB 

20 

2A 

32 

30 

24 

37B8 

25 

3A 

34 

30 

D6 

OE 

85 

6F 

9B 

37C0 

CD 

IE 

20 

2A 

7E 

30 

26 

00 

09 

37C8 

CD 

39 

36 

11 

0C 

31 

C3 

E5 

32 

37D0 

IF 

2A 

32 

30 

25 

3A 

34 

30 

6E 

37D8 

D6 

07 

85 

6F 

CD 

IE 

20 

2A 

06 

37E0 

5D 

30 

CD 

39 

36 

11 

0A 

31 

15 

37E8 

C3 

E5 

IF 

2A 

32 

30 

ED 

5B 

9B 

37F0 

34 

30 

19 

3E 

F6 

85 

6F 

CD 

72 

37F8 

IE 

20 

11 

56 

31 

CD 

E5 

IF 

A7 

SUM: 

FB 

C6 

9E 

75 

48 

45 

59 

56 4E8B 

3800 

3A 

31 

30 

C6 

30 

CD 

F4 

11. 

71 

3808 

CD 

FI 

IF 

3E 

3E 

C3 

F4 

IF 

2F 

3810 

CD 

40 

38 

CD 

62 

38 

CD 

79 

F2 

3818 

38 

2A 

2F 

30 

7D 

D6 

0A 

6F 

8D 

3820 

CD 

IE 

20 

11 

17 

31 

CD 

E5 

16 

3828 

IF 

2A 

2F 

30 

7D 

D6 

08 

6F 

72 

3830 

CD 

IE 

20 

CD 

06 

36 

D8 

CD 

B9 

3838 

3F 

36 

11 

0A 

31 

C3 

E5 

IF 

88 

3840 

2A 

2F 

30 

2E 

00 

CD 

IE 

20 

C2 

3848 

3E 

23 

CD 

F4 

IF 

3A 

31 

30 

DC 

3850 

C6 

30 

CD 

F4 

IF 

3E 

A5 

CD 

86 

3858 

FA 

IF 

3A 

5 (， 

30 

C6 

41 

C3 

A3 

3860 

F4 

IF 

2A 

2F 

30 

2E 

04 

CD 

9B 

3868 

IK 

20 

11 

21 

31 

3A 

73 

30 

7E 

3870 

B7 

20 

03 

11 

35 

31 

C3 

E5 

F9 

3878 

IF 3A 

74 

30 

B7 

20 

0E 

2A 

0C 

SUM ： 

0E 

62 

EC 

1C 

D3 

62 

CE 

52 5045 

3880 

2F 

30 

2E 

17 

CD 

IE 

20 

11 

C0 

3888 

49 

31 

C3 

E6 

IF 

2 A 

2F 

30 

CA 

3890 

2E 

17 

CD 

IE 

20 

3A 

74 

30 

2E 

3898 

26 

2A 

R7 

20 

02 

26 

20 

7C 

EB 


38A0 

CD 

F4 

IF 

11 

50 

31 

C3 

E5 

1A 

38A8 

IF 

A-F 

32 

7F 

30 

32 

80 

30 

91 

38B0 

CD 

A9 

34 

ED 

5B 

10 

30 

CD 

FF 

38B8 

03 

4C 

CD 

BO 

36 

38 

IB 

FE 

53 

38C0 

20 

38 

F7 

08 

3A 

73 

30 

B7 

EB 

38C8 

C4 

4C 

3C 

CD 

C4 

39 

08 

77 

95 

38D0 

CD 

D2 

39 

3E 

01 

32 

7F 

30 

F8 

381)8 

18 

D9 

FE 

0D 

20 

0F 

AF 

32 

0C 

38E0 

7E 

30 

32 

2E 

30 

3C 

32 

7F 

2B 

38E8 

30 

C9 

C3 

03 

4C 

FE 

IB 

20 

44 

38F0 

06 

12 

AF 

32 

7F 

30 

C9 

CD 

3E 

38F8 

00 

39 

C0 

CD 

09 

39 

18 

B3 

D3 

SUM ： 

05 

AD 

95 

B7 

42 

E3 

05 

7C 690E 

3900 

21 

17 

39 

01 

24 

00 

ED 

B1 

34 

3908 

C9 

87 

21 

3B 

39 

85 

6F 

30 

09 

3910 

01 

24 

7E 

23 

66 

6F 

E9 

01 

85 

3918 

02 

04 

06 

07 

08 

09 

0B 

0F 

3E 

3920 

10 

11 

13 

16 

1C 

ID 

20 

2A 

CD 

3928 

2B 

2C 

2E 

2F 

30 

31 

32 

33 

7A 

3930 

34 

35 

36 

37 

38 

39 

3A 

3B 

BC 

3938 

3C 

3E 

3F 

C3 

39 

4C 

3A 

A7 

E2 

3940 

3A 

BF 

3D 

D2 

39 

B7 

3C 

22 

56 

3948 

3A 

B0 

3A 

BB 

39 

73 

3A 

B7 

7C 

3950 

3D 

C7 

3B 

AF 

3E 

71 

3C 

98 

71 

3958 

3E 

41 

3C 

Cl 

3B 

8B 

3A 

EB 

67 

3960 

3D 

08 

3A 

8F 

3D 

6E 

3D 

E0 

D6 

3968 

3A 

2F 

3D 

78 

3C 

49 

3E 

FF 

E0 

3970 

3C 

C3 

39 

D2 

39 

08 

3A 

B7 

3C 

3978 

3C 

78 

3C 

66 

3C 

FB 

3F 

34 

00 

SUM ： 

76 

5F 

6E 

El 

61 

B0 

F6 

56 CA04 

3980 

40 

5A 

40 

9D 

40 

E7 

3E 

62 

3E 

3988 

3F 

09 

3F 

9E 

31 

C3 

39 

E6 

46 

3990 

3B 

E3 

3B 

DA 

3B 

C3 

39 

DD 

47 

3998 

3B 

E0 

3B 

34 

3B 

A8 

3B 

AA 

52 

39A0 

3B 

AD 

3B 

73 

3B 

75 

3B 

78 

F9 

39A8 

3B 

81 

3B 

83 

3B 

86 

3B 

D7 

4D 

39B0 

3B 

D4 

3B 

E9 

3B 

C3 

39 

EC 

56 

39B8 

3B 

KF 

: m 

AF 

32 

7F 

30 

32 

27 

39C0 

80 

30 

El 

C9 

3A 

7E 

30 

2A 

6C 

39C8 

10 

30 

F5 

85 

6F 

30 

01 

24 

7E 

39D0 

FI 

C9 

3A 

7E 

30 

3C 

FE 

FE 

DA 

39D8 

38 

02 

3E 

FE 

32 

7E 

30 

D0 

26 

39E0 

CD 

FB 

39 

16 

01 

7C 

90 

B9 

DD 

39E8 

38 

08 

78 

C6 

OA 

47 

16 

00 

E5 

39F0 

18 

F3 

78 

32 

2E 

30 

15 

C8 

F0 

39F8 

C3 

A9 

34 

3A 

34 

30 

4F 

3A 

C7 

SUM ： 

7A 

El 

8C 

E9 

50 

DD 

33 

13 9361 

3A00 

2E 

30 

47 

3A 

7E 

30 

67 

C9 

BD 

3A08 

3A 

7E 

30 

B7 

C8 

3D 

32 

7E 

54 

3A10 

30 

CD 

FB 

39 

16 

01 

7C 

B8 

7C 

3A18 

30 

D8 

78 

D6 

0A 

47 

16 

00 

BD 

3A20 

18 

F4 

CD 

C4 

39 

4F 

7E 

FE 

A1 

3A28 

0D 

C8 

CD 

F9 

35 

28 

().1 

23 

IF 

3A30 

OC 

18 

F3 

79 

32 

7E 

30 

7E 

EE 

3A38 

FE 

0D 

28 

0D 

CD 

F9 

35 

20 

5B 

3A40 

04 

23 

0C 

18 

F2 

79 

32 

7E 

66 

3A48 

30 

C3 

E0 

39 

CD 

C4 

39 

4F 

25 

3A50 

B7 


2B 

0D 

28 

16 

7E 

2B 

9E 

3A58 

CD 

F9 

35 

20 

05 

0D 

20 

F6 

43 

3A60 

18 

0A 

7E 

2B 

CD 

F9 

35 

28 

EE 

3A68 

03 

0D 

20 

F6 

79 

32 

7E 

30 

7F 

3A70 

C3 

11 

3A 

CD 

9A 

3A 

23 

0C 

DE 

3A78 

7E 

FE 

0D 

20 

03 

0D 

18 

04 

D5 

SUM ： 

OB 

01 

D0 

CF 

A2 

75 

09 

14 A2B3 

3A80 

FE 

2B 

20 

F2 

79 

32 

7E 

30 

94 

3A88 

C3 

E0 

39 

CD 

9A 

3A 

7E 

OG 

09 

3A90 

2B 

B9 

20 

02 

0E 

2D 

71 

C3 

75 

3A98 

A9 

34 

2A 

()1 •: 

30 

3A 

7E 

30 

2D 

3AA0 

4F 

85 

6F 

30 

01 

24 

C9 

3A 

9B 

3AA8 

7E 

30 

B7 

C8 

3D 

32 

7E 

30 

4A 

3AB0 

CD 

C4 

39 

FE 

FE 

28 

22 

4F 

5F 

3AB8 

3E 

FE 

91 

4F 

06 

00 

EB 

2A 

37 

3AC0 

78 

30 

23 

1A 

CD 

ID 

3B 

23 

2D 

3AC8 

22 

78 

30 

AF 

CD 

ID 

3B 

62 

00 

3AD0 

6B 

23 

0C 

0D 

28 

02 

ED 

B0 

6E 

3AD8 

2B 

36 

20 

3C 

32 

7F 

30 

C9 

67 

3AE0 

CD 

08 

3B 

C8 

3A 

7E 

30 

4F 

0F 

3AG8 

78 

91 

D8 

3C 

47 

2A 

78 

30 

36 

3AF0 

23 

1A 

CD 

ID 

3B 

3E 

20 

12 

D2 

3AF8 

IB 

23 

10 

F5 

22 

78 

30 

AF 

BC 

SUM ： 

20 

46 

02 

3C 

65 

6A 

CA 

52 471B 

3B00 

CD 

ID 

3B 

3C 

32 

7F 

30 

C9 

0B 

3B08 

06 

FE 

11 

FE 

00 

2A 

10 

30 

7D 

3B10 

19 

EB 

IA 

FE 

20 

C0 

IB 

10 

27 

3B18 

F9 

1A 

FE 

20 

C9 

D5 

08 

3A 

11 

3B20 

2B 

30 

A4 

67 

B5 

20 

01 

2C 

68 

3B28 

EB 

CD 

CD 

3B 

19 

08 

CD 

9A 

48 

3B30 

IF 

EB 

D1 

C9 

2A 

2F 

30 

7D 

AA 

3B38 

2E 

00 

1)6 

0C 

47 

0E 

03 

ED 

55 

3B40 

5B 

IE 

30 

C5 

D5 

E5 

CD 

IE 

13 

3B48 

20 

EB 

CD 

94 

IF 

23 

FE 

20 

CC 

3B50 

30 

03 

3E 

20 

2B 

CD 

F4 

ll' 

9C 

3B58 

10 

FO 

El 

D1 

Cl 

14 

CD 

A9 

FD 

3B60 

36 

FE 

20 

20 

03 

OD 

20 

DB 

7F 

3B68 

CD 

IE 

20 

CD 

FI 

IF 

10 

FB 

F3 

3B70 

C3 

10 

38 

AF 

01 

3E 

01 

01 

FB 

3B78 

3E 

02 

CD 

BB 

3B 

AF 

C3 

9A 

0F 

SUM ： 

07 

32 

DD 

70 

6A 

A5 

E4 

EA 

CF63 

3B80 

IF 

AF 

01 

3E 

01 

01 

3E 

02 

: 4F 


►1599 年，及啓我部元親棣は無私全 N を統一されました。おめでとうございます。うるう 
る。ついに念願のレベル5統一に成功しました。そのときは感動のあまりしばらくの問，身 
肿きできませんでした。以ぼりは「レベル5を統一するなんて，人問じゃネエ J と旨っていた 
m ですが， m はどうやら人叫じゃなくなってしまったようです。 mu 琢也 （15) 40 k 都 


B3E09S306DFBD 709 
EBF2F 0133 C5BEB3C 

5A 338070 B8BD2507 
D72B1 371 FC5C131B 

90DA00CA07D1F6A0 
C 00731021 BECAC2B 

708B5\8A305F5D1D 
3021623023 E03CCE 

81739 -0080F9039CO 
C0B 0232127627 C03 

00E79FE66A 0 7 D00F 
337FC5FF336BC 325 


4A2A3DA1 
87238 E 21 


7AE115D8 
93320 ECC 
A 4890054309 FED5C 
71FC 3082 C3C12C13 

8880647 1BF0C208A 
FF1 33080 E 2350321 








































3B88 

CD 

BU 

•AV, 

06 

FE 

CD 

94 

IF 


47 

SUM ： 

41 

83 

CB 

F9 

E4 

C7 

73 

BA G98D 

4170 

18 

CA 

DC 

99 

36 

C3 

39 

41 

: CA 

3B90 

B7 

28 

03 

23 

10 

F7 

C 0 

EB 


B7 











4178 

2A 

56 

30 

22 

32 

30 

2A 

58 

: B 6 

3B98 

CD 

C4 

39 

EB 

1A 

CD 

9A 

IF 


55 
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44 

4D 

2A 

65 

30 

B7 

ED 

42 

36 
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23 

AF 
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9A 

IF 

C3 

D2 

39 


26 

3E88 

44 

4D 

El 

03 

ED 

B0 

IB 

AF 

DC 

SUM: 

F7 

07 

A0 

62 

38 

14 

9F 

E4 A4D0 

3BA8 

AF 

0 i 

3E 

01 

01 

3E 

02 

CD 


FD 

3E90 

12 

ED 

53 

65 

30 

C3 

AA 

33 

87 











3BB0 

BB 

3B 

3E 

01 

32 

71 

30 

22 


2A 

3E98 

CD 

4C 

3C 

CD 

C4 

39 

36 

0D 

62 

4180 

30 

22 
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30 

CD 

CF 

32 

2A 

AE 

3BB8 

76 

30 

C9 

2A 

IE 

30 

84 

67 


D2 
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CD 

4D 

35 
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80 

36 

CD 

26 

D2 

4188 

32 

30 

ED 

4B 

34 

30 

CD 

00 

CB 
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3E 

02 
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71 

30 

C9 

21 


C 6 
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35 

CD 
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35 

C3 
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33 

CD 

FI 
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4C 

AF 

32 

70 

30 

32 

7E 

30 

AD 

3BC8 

00 

00 

22 

78 

30 

2A 

29 

30 


4D 

3EB0 

4D 

35 

DA 

80 

36 

2A 
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CB 
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30 
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CD 

7A 
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AF 

C3 

9A 

IF 
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30 

01 

3E 
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54 

5D 

CD 

76 

34 
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1A 

B7 

Cl 

41A0 

42 

CD 

10 

38 

C3 

37 

42 

D5 

68 
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31 

01 

3E 

32 

01 

3E 

33 

01 
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IB 
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20 

06 

FE 

1A 

42 
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57 

IE 

00 
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3A 
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2A 
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01 
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35 

01 
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36 


5B 

3EC8 

FE 
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AF 

ED 

B1 

Cl 
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CD 

E0 

39 

C3 

AA 

33 

CD 

83 

41C8 
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94 

IF 

B7 

20 

0C 

FI 

F5 

49 












3EE8 

48 

35 

DA 

80 

36 
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00 

00 

0D 

41D0 

CD 

B7 

41 

CD 

A7 

41 

AF 

CD 

F 6 

SUM ： 

C 8 

EF 

E3 

73 

D9 

25 

97 

4B 
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2A 

5D 

30 

22 

7A 

30 

2A 

32 

DF 

41D8 

9A 

IF 

FI 

El 

C9 

3A 

5A 

30 

18 












3EF8 

30 

L-if. 

3A 

34 

30 

D 6 

08 

85 

56 

41E0 

67 

3A 

5B 

30 

6 F 

94 

30 

06 

65 

⑽ 

R7 

FD 
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FI 

DH 

PR 
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30 

94 

85 

3C 

2A 

32 

43 
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C0 


E 6 

SUM ： 
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71 
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78 
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48 
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80 

36 

CD 

C 6 
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75 
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73 

74 

FD 
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20 

El 

3E 

0D 

BE 

23 

20 

FC 


49 

3F10 

16 

3F 

DA 

C4 

IF 

C9 

2A 

7A 
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3C30 

22 

7C 

30 

3E 

01 

32 

72 

30 


El 

3F18 

30 

23 

7C 

B5 

37 

C 8 

2B 

CD 

7B 

4200 

30 

0E 

7F 

CD 

94 

IF 

FE 

20 

5B 

3C38 

AF 

3A 

74 

30 

32 

80 

30 

C9 


38 

3F20 

Om 

35 

EB 

•ZA 

5D 

30 

23 

CD 

CB 

4208 

D 8 

12 

13 

23 

0D 

20 

F4 

C9 

0A 

3C40 

34 

3A 

73 

30 

EE 

01 

32 

73 


A5 

3F28 

04 

35 

B7 

ED 

52 

44 

4D 

D 8 

98 

4210 

CD 

C0 

41 

3A 

7F 

30 

B7 

20 

8 E 

3C48 

30 

C3 

f ；2 

38 

3A 

7E 

30 

4F 


C4 

3F30 

37 

C 8 

C5 

D5 

2A 

IE 

30 

ED 

FE 

4218 

07 

CD 

94 

IF 

B7 

28 

13 

C9 

42 

3C50 

3E 

FE 

B9 

C 8 

91 

4F 

06 

00 


A3 

3F38 

5B 

1C 

30 

B7 

ED 

52 

2B 

B7 

7F 

4220 

ED 

5B 

10 

30 

0E 

7F 

1A 

CD 

FC 

3C58 

21 

FE 

00 

19 

7E 

FE 

20 

C0 


94 

3F40 

ED 

42 

El 

Cl 

C5 

D5 

CD 

97 

CF 

4228 

9A 

IF 

13 

23 

FE 

0D 

C 8 

0D 

CF 

3C60 

54 

5D 

2B 

ED 

B 8 

C9 

3A 

74 


F 8 

3F48 

IF 

El 

Cl 

09 

AF 

CD 

9A 

IF 

FF 

4230 

20 

F4 

3E 

0D 

C3 

9A 

IF 

CD 

A 8 

3C68 

30 

EE 

0 i 

32 

74 

30 

C3 

79 


31 

3F50 

2A 

29 

30 

ED 

5B 

1C 

30 

B7 

CE 

4238 

A9 

34 

3A 

35 

30 

47 

2A 

32 

IF 

3C70 

38 

AF 

32 

7E 

30 

32 

2 E 

30 


57 

3F58 

ED 

52 

C0 

21 

00 

00 

22 

78 

BA 

4240 

30 


2C 

30 

3A 

5A 

30 

F5 

67 

3C78 

CD 

48 

35 

DA 

80 

36 

ED 

5B 


22 

3F60 

30 

C9 

CD 

48 

35 

DA 

80 

36 

D3 

4248 

CD 

A7 

41 

CD 

94 

IF 

B7 

28 

14 












3F68 

CD 

16 

3F 

DA 

C4 

IF 

2A 

7A 

83 

4250 

18 

CO 

FD 

41 

3E 

0D 

12 

ED 

6 D 

SUM ： 

AC 

B4 

7F 

A3 

20 

53 

IE 

D 0 

0CA5 

3F70 

30 

CD 

04 

35 

E5 

2A 

5D 

30 

D2 

4258 

5B 

10 

30 

CD 

03 

4C 

21 

2D 

05 












3F78 

23 

CD 

04 

35 

EB 

2A 

65 

30 

D3 

4260 

30 

34 

FI 

CD 

B7 

41 

10 

DF 

09 





B7 



76 
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4268 

C9 

El 

2 A 

10 

30 

36 

0 D 

EB 

42 

3C88 

ED 

53 

5F 

30 

2A 

5D 

30 

23 


A9 

SUM ： 

El 

61 

F9 

D5 

CC 

2A 

3E 

46 314F 

4270 

21 

2D 

30 

CD 

03 

4C 

34 

10 

DE 

3C90 

22 

5D 

30 

ED 

5B 

61 

30 

ED 


75 











4278 

FA 

C9 

2A 

3 2 

30 

25 

3A 

34 

E2 

3C98 

4R 

35 

30 

06 

00 

B7 

ED 

52 


AC 




52 

44 

4D 

El 

20 

03 

83 











3CA0 

B7 

ED 


D 8 

13 

ED 

53 

61 


72 

3F88 

77 

18 

04 

EB 

03 

i-;n 

B0 

CD 

EB 

SUM ： 

B0 

00 

11 

C5 

FF 

BE 

8 C 

F0 BD47 

3CA8 

30 

ED 

5B 

63 

30 

CD 

76 

34 


82 

3F90 

EC 

34 

2A 

7A 

3 0 

22 

5D 

30 

A3 











3CB0 

ED 

53 

63 

30 

C3 

AA 

33 

CD 


40 

3F98 

CD 

3B 

34 

C3 

AA 

33 

CD 

48 

FI 

4280 

30 

D 6 

07 

85 

6 F 

CD 

IE 

20 

0C 

3CB8 

48 35 

DA 

80 

36 

2A 

5D 

30 


C4 

3FA0 

：)5 

DA 

80 

36 

2A 

1C 

30 

CD 

08 

4288 

3A 

5B 

30 

0E 

00 

CD 

B5 

41 

96 

3CC0 

7C 

B5 

C 8 

2B 

22 

5D 

30 

ED 


C0 

3FA8 

94 

IF 

B7 

C 8 

01 

00 

00 

CD 

00 

4290 

CD 

A7 

41 

08 

CD 

94 

IF 

B7 

F4 

3CC8 

5B 

5F 

30 

CD 

ED 

3C 

ED 

53 


20 

3FB0 

94 

IF 

B7 

28 

04 

2 3 

03 

18 

D4 

4298 

28 

04 

08 

0C 

18 

EF 

69 

26 

D 6 

3CD0 

5F 

30 

ED 

5B 

61 

30 

B7 

HI ) 


0C 

3FB8 

F 6 

CD 

06 

36 

03 

B7 

ED 

42 

E 8 

42A0 

00 

CD 

39 

36 

11 

0A 

31 

C3 

4B 

3CD8 

52 

D0 

IB 

ED 

53 

61 

30 

ED 


FB 

3FC0 

DA 

C4 

IF 

C5 

2A 

5D 

30 

CD 

06 

42A8 

E5 

IF 

E5 

F5 

CD 

C4 

39 

FI 

99 

3CE0 

5B 

63 

30 

CD 

ED 

3C 

ED 

53 


24 

3FC8 

04 

35 

Cl 

7E 

B7 

20 

10 

ED 

4C 

42B0 

77 

23 

36 

0D 

21 

7E 

30 

34 

E0 

3CE8 

63 

30 

C3 

AA 

33 

CD 

B 0 

34 


B4 

3FD0 

5B 

1C 

30 

CD 

91 

IF 

CD 

EC 

DD 

42B8 

El 

C9 

1A 

B7 

C 8 

CD 

AA 

42 

FC 

3CF0 

E5 

2 A 

67 

30 

B7 

ED 

52 

38 


D4 

3FD8 

34 

CD 

3B 

34 

C3 

AA 

33 

0B 

IB 

42C0 

13 

18 

F7 

3A 

5B 

30 

CD 

A7 

5B 

3CF8 

04 

ED 

5B 

67 

30 

El 

C9 

CD 


5A 

3FE0 

E5 

C5 

50 

59 

44 

4D 

2A 

65 

73 

4 2C8 

41 

CD 

10 

42 

CD 

DD 

41 

ED 

38 












3FE8 

30 

E5 

K5 

19 

EB 

El 

B7 

ED 

83 

42D0 

5B 

10 

30 

Cl) 

03 

4C 

E5 

C5 

61 

SUM ： 

04 

35 

68 

13 

53 

Dl 

A 8 

CE 

E171 

3FF0 

42 

44 

4D 

03 

El 

ED 

B 8 

Cl 

ID 

42D8 

21 

E3 

42 

01 

09 

00 

ED 

B1 

EE 












3FF8 

El 

18 

D4 

CD 

48 

35 

DA 

80 

71 

4 2E0 

Cl 

El 

C9 

05 

0D 

18 

IB 

IE 

CE 

3D0O 

48 

35 

DA 

80 

36 

ED 

5B 

63 


B 8 











4 2E8 

IF 

22 

2 ^ 

24 

FE 

05 

28 

IF 

D2 

3D08 

30 

1A 

B7 

C 8 

CD 

76 

34 

HI ) 


2D 

SUM: 

D7 

41 

49 

4E 

E9 

AF 

CD 

80 DC94 

42F0 

FE 

0D 

28 

•} K 

FE 

18 

28 

51 

10 

3D10 

53 

63 

30 

ED 

4B 

61 

30 

03 


B2 











4 2F8 

FE 

IB 

28 

34 

FE 

IE 

28 

0F 

C 8 

3018 

ED 

43 

61 

30 

2A 

5D 

30 

B7 


2F 

4000 

36 

CD 

2C 

33 

2 A 

2F 

30 

2E 

19 











3D20 

ED 

42 

30 

08 

ED 

43 

5D 

30 


24 

4008 

00 

CD 

IB 

20 

11 

7A 

31 

CD 

94 

SUM ： 

48 

B7 

A3 

8 B 

56 

E2 

12 

0F C094 

3D28 

ED 

53 

5F 

30 

C3 

AA 

33 

CD 


3C 

4010 

E5 

IF 

CD 

A9 

36 

D 6 

30 

DA 

90 











3DS0 

48 

35 

DA 

80 

36 

2A 

61 

30 


C 8 

4018 

10 

38 

FE 

08 

D2 

10 

38 

21 

89 

4300 

FE 

IF 

28 

45 

FE 

22 

CA 

83 

F7 

3D38 

7C 

B5 

C 8 

2B 

22 

61 

30 

ED 


C4 

4020 

FF 

FI-' 

22 

7A 

30 

32 

31 

30 

5D 

4308 

43 

CD 

09 

39 

C3 

78 

41 

3A 

08 

3D40 

5B 

63 

30 

CD 

ED 

3C 

ED 

53 


24 

4028 

CD 

84 

32 

CD 

EC 

34 

CD 

D 8 

15 

4310 

5B 

30 

47 

CD 

B5 

41 

CD 

A7 

09 

3D48 

63 

30 

ED 

4B 

35 

30 

06 

00 


36 

4030 

33 

C3 

8 A 

33 

CD 

48 

35 

DA 

D7 

4318 

41 

08 

CD 

94 

IF 

B7 

C 8 

08 

50 

3D50 

09 

ED 

4B 

5D 

30 

B7 

ED 

42 


B4 

4038 

80 

36 

3A 

75 

30 

B7 

20 

10 

7C 

4320 

32 

5B 

30 

08 

3A 

5A 

30 

B 8 

41 

3D58 

C2 

AA 

33 

0 B 

ED 

43 

5D 

30 


67 

4040 

3C 

32 

75 

30 

21 

50 

1A 

22 

C0 

4328 

C0 

08 

32 

5A 

30 

C3 

37 

42 

C0 

3D60 

ED 

5B 

5F 

30 

CD 

ED 

3C 

ED 


BA 

4048 

34 

30 

CD 

CF 

32 

C3 

97 

33 

BF 

4330 

AF 

32 

7E 

30 

32 

2E 

30 

3A 

59 

3D68 

53 

5F 

30 

C3 

AA 

33 

CD 

48 


97 

4050 

AF 

32 

75 

30 

CD 

2C 

33 

C3 

75 

4338 

5B 

30 

CD 

A7 

41 

3E 

on 

C3 

4E 

3D70 

35 

DA 

80 

36 

3A 

2 £ 

30 

C 6 


23 

4058 

52 

33 

3A 

70 

30 

B7 

C4 

48 

22 

4340 

9A 

IF 

AF 

32 

7E 

30 

32 

2E 

A 8 

3078 

10 

38 

03 

32 

2E 

30 

3A 

2E 


43 

4060 

35 

DA 

80 

36 

2 八 

32 

30 

25 

76 

4348 

30 

3A 

5B 

30 

CD 

B7 

41 

32 

EC 












4068 

2D 

CD 

IE 

20 

2A 

32 

30 

CD 

91 

4350 

5B 

30 

CD 

C0 

41 

3A 

5A 

30 

ID 

SUM ： 

64 

6 A 

00 

23 

9E 

7D 

C0 

12 

2730 

4070 

C9 

40 

38 

08 

22 

32 

30 

CD 

9A 

4358 

CD 

A7 

41 

4F 

CD 

94 

IF 

B7 

3B 












4078 

CF 

32 

18 

E 8 

3A 

70 

30 

B7 

92 

4360 

20 

0A 

79 

CD 

B7 

41 

32 

5A 

F4 

3D80 

30 

47 

3A 

7E 

30 

B 8 

30 

04 


4B 











4368 

30 

C3 

37 

42 

3A 

35 

30 

47 

52 

3D88 

78 

32 

7E 

30 

C3 

AA 

33 

CD 


C5 

SUM: 

15 

4D 

0C 

D 8 

5C 

F0 

84 

BE 4A30 

4370 

3A 

5B 

30 

Or) 

28 

07 

CD 

B5 

7B 

3D90 

48 

35 

DA 

80 

36 

3A 

2E 

30 


A5 











4378 

41 

B9 

C 8 

10 

F9 

32 

5A 

30 

87 

3D98 

D 6 

10 

30 

01 

AF 

32 

2E 

30 


56 

4080 

28 

06 

CD 

1 A 

33 

C3 

52 

33 

90 











3DA0 

47 

3A 

34 

30 

80 

DA 

AA 

33 


1C 

4088 

3A 

5B 

30 

32 

5A 

30 

2A 

32 

DD 

SUM: 

96 

FA 

B2 

AD 

DD 

7F 

B9 

30 7472 

3DA8 

47 

3A 

7E 

30 

B 8 

38 

05 

05 


29 

4090 

30 

22 

56 

30 

2A 

34 

30 

22 

88 











3DB0 

78 

32 

7E 

30 

C3 

AA 

33 

CD 


C5 

4098 

58 

30 

C3 

52 

33 

3A 

70 

30 

AA 

4380 

C3 

37 

42 

3A 

75 

30 

B7 

28 

FA 

3DB8 

48 

35 

DA 

80 

36 

18 

F5 

CD 


E7 

40A0 

B7 

C4 

48 

35 

DA 

80 

36 

2A 

B2 

4388 

0A 

AF 

32 

75 

30 

CD 

52 

33 

E2 

3DC0 

48 

35 

DA 

80 

36 

2A 

61 

30 


C 8 

40A8 

32 

30 

ED 

5B 

34 

3 0 

19 

CD 

F4 

4390 

C3 

78 

41 

3C 

32 

75 

30 

21 

B0 

3DC8 

ED 

5B 

63 

30 

3A 

35 

30 

47 


Cl 

40B0 

IE 

20 

2A 

34 

30 

CD 

C9 

40 

A2 

4398 

50 

1A 

22 

34 

30 

C3 

84 

41 

78 

3DD0 

1A 

B7 

28 

06 

CD 

76 

34 

23 


99 

4 0B8 

38 

C2 

22 

34 

30 

CD 

CF 

32 

4E 

4 3A0 

ED 

7B 

0C 

30 

3E 

0C 

C3 

F4 

A5 

3DD8 

10 

F 6 

22 

61 

30 

ED 

53 

63 


5C 

40C0 

2A 

32 

30 

ED 

4B 

34 

30 

18 

40 

4 3A8 

IF 

3A 

6 B 

30 

EE 

01 

32 

6 B 

80 

3DE0 

30 

22 

5D 

30 

ED 

53 

5F 

30 


AE 

40C8 

DE 

CD 

A9 

36 

CD 

F0 

35 

FE 

7A 

43B0 

30 

CD 

52 

33 

C3 

78 

41 

1A 

18 

3DE8 

C3 

AA 

33 

CD 

48 

35 

DA 

80 


44 

40D0 

5A 

28 

58 

FE 

58 

28 

55 

FE 

AB 

43B8 

CD 

F0 

35 

D 6 

41 

D 8 

FE 

04 

E3 

3DF0 

36 

2A 

61 

30 

ED 

5B 

63 

30 


CC 

40D8 

43 

28 

4E 

FE 

41 

28 

4F 

FE 

6 D 

43C0 

00 

4F 

08 

79 

CD 

CC 

34 

DA 

47 

3DF8 

7C 

B5 

C 8 

ED 

4B 

35 

30 

06 


9C 

40E0 

53 

28 

E 6 

FE 

44 

28 

49 

FE 

12 

4 3C8 

96 

44 

08 

32 

5C 

30 

21 

00 

Cl 












40E8 

51 

28 

4A 

FE 

57 

28 

47 

FE 

85 

43D0 

00 

22 

5D 

30 

CD 

2C 

33 

CD 

A 8 

SUM ： 

18 

81 

0C 

70 

E3 

7C 

7A 

E 6 

9457 

40F0 

45 

28 

40 

FE 

IF 

28 

35 

FE 

25 

43D8 

84 

32 

CD 

EC 

34 

CD 

87 

33 

2A 












40F8 

ID 

28 

33 

FE 

1C 

28 

31 

FE 

E9 

43E0 

C3 

78 

41 

1A 

13 

FE 

2F 

20 

F 6 

3EO0 

00 

B7 

ED 

42 

30 

09 

21 

00 


40 











43E8 

32 

1A 

13 

CD 

FO 

35 

D 6 

41 

68 

3E08 

00 

ED 

5B 

67 

30 

18 

06 

CD 


CA 

SUM ： 

D4 

78 

B9 

DD 

DF 

BF 

02 

2A 1BE5 

43F0 

1)8 

FE 

04 

DO 

87 

DD 

21 

12 

41 

3E10 

ED 

3C 

0D 

20 

FA 

22 

61 

30 


03 











43F8 

30 

4F 

06 

00 

DD 

09 

DD 

4E 

96 

3E18 

ED 

53 

63 

30 

E5 

D5 

ED 

4B 


C5 

4 100 

IE 

28 

33 

FE 

31 

28 

24 

FE 

F2 











3E20 

35 

30 

06 

00 

09 

ED 

5B 

5D 


19 

4 108 

32 

28 

21 

FE 

33 

28 

1A 

FE 

EC 

SUM ： 

D0 

BO 

6 D 

06 

C 8 

A0 

03 

D5 67D9 

3E28 

30 

B7 

ED 

52 

DI 

El 

38 

03 


13 

4 110 

34 

28 

IB 

FE 

35 

28 

B2 

FE 

82 











3E30 

C2 

AA 

33 

0D 

28 

09 

CD 

76 


20 

4118 

36 

28 

15 

FE 

37 

28 

16 

FE 

H4 

4400 

02 

DD 

46 

03 

13 

CD 

B2 

IF 

D9 

3E38 

34 

28 

04 

23 

0 D 

20 

F7 

22 


C9 

4120 

38 

28 

13 

FE 

39 

28 

0C 

37 

15 

4408 

E5 

B7 

ED 

42 

El 

38 

03 

C 2 

A9 

3E40 

5D 

30 

ED 

53 

5F 

30 

C3 

AA 


C9 

4128 

C9 

2C 

3E 

2D 

24 

3E 

2D 

3E 

2D 

4410 

C4 

IF 

DD 

75 

00 

DD 

74 

01 

87 

3E48 

33 

CD 

08 

3B 

F5 

2A 

78 

30 


0A 

4 130 

2C 

B7 

C9 

2C 

3E 

2D 

25 

B7 

IF 

4418 

CD 

10 

34 

01 

00 

03 

C5 

CD 

A7 

3E50 

23 

3E 

0D 

CD 

ID 

3B 

23 

3E 


F4 

4138 

C9 

CD 

78 

41 

ED 

7B 

0C 

30 

F3 

4420 

26 

44 

Cl 

0C 

10 

F 8 

3A 

5C 

D5 

3E58 

0E 

CD 

ID 

3B 

23 

FI 

28 

09 


78 

4 140 

CD 

7A 

42 

CD 

3B 

35 

CD 

F7 

8 A 

4428 

30 

91 

3E 

20 

20 

02 

3E 

2A 

A9 

3E60 

04 

1A 

CD 

ID 

3B 

IB 

23 

10 


91 

4148 

41 

CD 

DD 

41 

CD 

A9 

38 

CD 

A7 

4430 

CD 

AA 

42 

3E 

2F 

CD 

AA 

42 

DF 

3E68 

F 8 

AF 

CD 

ID 

3B 

22 

78 

30 


96 

4150 

Dl 

35 

CD 

]0 

42 

3A 

80 

30 

0F 

4438 

79 

08 

79 

C 6 

41 

CD 

AA 

42 

BA 

3E70 

ED 

5B 

5F 

30 

D5 

CD 

76 

34 


23 

4158 

FE 

0D 

20 

0C 

CD 

49 

43 

ED 

7D 

4440 

3E 

3A 

CD 

AA 

42 

79 

CD 

CC 

43 

3E78 

62 

6 B 

D1 

7E 

B7 

28 

10 

E5 


F0 

4 160 

5B 

10 

30 

CD 

8 B 

45 

18 

D4 

24 

4448 

34 

38 

4B 

D5 

E5 

C5 

CD 

9E 

A1 












4168 

CD 

D6 

42 

20 

D 6 

CD 

EC 

42 

1)6 

4450 

44 

IB 

3E 

2D 

CD 

AA 

42 

EB 

6 E 

►ウチの伞校の先屯は， 

ケンタ 

ツキー フライドチキンのことを「からあげ 

と言って生 














徒に大笑いされてい 

ましたが，服 m の店 n が“ハウスマスカ 

ン”と呼-ばれるようになり， 

そ 




マルチウ- 

f ン 

ドウエディタ WINER 1 


れにノセられるアルバイターが多い昨今，ウチの先生のような個性は ftt 品です。 

松本麻志 （ 17 ) 東京都 


THE SENTINEL 





































4680 06 
4688 42 
4690 IF 
4698 70 
46A0 AF 
46A8 CD 
46B® 52 
46B8 CD 
4600 CD 
4608 CD 
4600 C8 
46D8 0C 
46E0 11 
46K8 76 
46F0 20 
46F813 


IF AF ED 
31 CD E5 
65 30 22 
38 06 CD 
F5 3E 0C 
99 36 CD 
CD EC 34 
CD A3 IF 
08 37 C0 
CD 09 20 
37 C9 3E 
06 20 D8 
IF ED 5B 
1A FE IB 
131313 
IF AF C9 


SUM：15 F6 48 4B 78 72 D2 85 

4B00 ED 5B 40 4B 7E 081A 77 
4B08 0812 2313 0B 78 B120 
4B10 F3 3A 3C 4B CD B0 44 E5 
4B18 3A 3D 4B CD B0 44 D1 06 
4B20 20 CD 94IF 08 EB CD 94 
4B28 IF 08 CD 9A IF EB 08 CD 
4B30 9A IF 13 2310 EB CD 52 
4B38 33 C3 78 41 00 00 00 00 
4B40 00 00 00 00 00 00 CD FC 
4B48 33 3A D9 30 B7 28 06 AF 
4B50 11 E8 3118 04 3C 11 E0 
4B58 3132 D9 30 CD BA 42 CD 
4B60 C3 42 C3 42 43 00 00 00 
4B68 00 00 00 00 00 00 00 00 
4B70 00 00 00 00 60 00 00 00 
4B78 00 00 00 00 00 00 00 00 


4738 42 CD 9A IF 2310 F5 C9 
4740 CD AA 42 CD 9A IF 23 C9 
4748 CD EC 34 CD E9 35 FE 01) 
4750 28 62 D5 3E 04 CD A3 IF 
4758 D1131A FE 3A 20 OF 13 
4760 1A FE 20 30 09 CD D7 46 
4768 DA A5 46 C2 AF 46 3E 0C 
4770 CD F4IF 11 BE 31 CD E5 
4778 IF CD 9D IF CD 84 32 CD 


SUM ： 37 9E 16 FF 2E B2 5142 


SUM ： 66 317C 4D 08 53 A8 8D 0603 


4B80 

00 

00 

00 

00 

00 

00 

00 

00 


: 00 

4B88 

00 

00 

00 

00 

00 

00 

00 

00 


: 00 

4B90 

00 

00 

00 

00 

00 

00 

00 

00 


: 00 

4B98 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BA0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BA8 

00 

00 

00 

00 

00 

00 

00 

00 


00 

4BB0 

00 

00 

00 

00 

00 

00 

00 

00 


00 

4BB8 

00 

00 

00 

00 

00 

00 

00 

00 


00 

4BC0 

00 

00 

00 

00 

00 

00 

00 

00 


00 

4BC8 

00 

00 

00 

00 

00 

00 

00 

00 


00 

4BD0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BD8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BE0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BE8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BF0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4BF8 

00 

00 

00 

00 

00 

00 

00 

00 


00 

SUM ： 

00 

00 

00 

00 

00 

00 

00 

00 

0000 

4C00 

C3 

06 

4C 

C3 

62 

4C 

E5 

C5 


30 

4C08 

25 

2D 

CD 

IE 

20 

3E 

2B 

CD 


93 

4C10 

F4 

IF 

3E 

2D 

CD 

59 

4C 

3E 


2E 

4018 

2B 

CD 

F4 

IF 

E5 

79 

D6 

OF 


4E 

4C20 

85 

6 F 

CD 

IE 

20 

11 

10 

31 


51 

4028 

CD 

E5 

IF 

El 

24 

CD 

IE 

20 


E1 

4C30 

3E 

6 C 

CD 

F4 

IF 

3E 

1C 

CD 


B1 

4C38 

59 

4C 

3E 

6 C 

CD 

F4 

IF 

10 


3F 

4C40 

EB 

24 

CD 

IE 

20 

3E 

2B 

CD 


50 

4C48 

F4 

IF 

3E 

2D 

CD 

59 

4C 

3E 


2E 

4C50 

2B 

CD 

F4 

IF 

Cl 

El 

C3 

IE 


8 E 

4C58 

20 

C5 

CD 

F4 

IF 

0D 

20 

FA 


EC 

4C60 

Cl 

C9 

C5 

D5 

E5 

F5 

2A 

2C 


54 

4C68 

30 

CD 

IE 

20 

3A 

34 

30 

47 


20 

4C70 

3A 

2E 

30 

4F 

B7 

28 

09 

1A 


E9 

4C78 

FE 

0D 

28 

11 

13 

0D 

20 

F7 


7B 

SUM: 

43 

D1 

49 

3F 

1A 

4F 

78 

B4 

63B2 

4080 

1A 

FE 

0D 

28 

OH 

CD 

F4 

IF 


: 35 

4C88 

13 

10 

F5 

18 

05 

CD 

FI 

IF 


:12 

4C90 

10 

FB 

FI 

El 

D1 

Cl 

C9 

00 


: 38 

4C98 

00 

00 

0 0 

00 

00 

00 

00 

00 


:00 

4CA0 

00 

00 

00 

()« 

00 

00 

00 

00 


:00 

4CA8 

00 

00 

0 0 

00 

00 

00 

00 

00 


:00 

4CB0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CB8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CC0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CC8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CD0 

00 

00 

00 

00 

0 0 

0 0 

00 

00 


： m 

4CD8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4 CEO 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CE8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CF0 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

4CF8 

00 

00 

00 

00 

00 

00 

00 

00 


:00 

SUM: 

3D 

09 

F3 

21 

DE 

5B 

AE 

3E 

FBC8 


に U •〈ことができなかった。せっかく招は状をも 
部上4はつれえなあ。でも「2001年カプセル J に, 
ら，絶対2001平にはウヶていただろうに……〇 

IJ 1 屮竹也 （17) 兵賴 


4A18 23 0C 18 F3 00 CD E9 35 : 25 
4A20 CD 32 36 D8 CD 12 36 E5 : 07 
4A28 CD E9 35 CD 32 36 30 02 : 52 
4A30 El C9 CD 12 36 23 D1 EB : 9E 
4A38 22 7A 30 CD 04 35 EB CD : 8A 
4A40 04 35 E5 B7 ED 52 El C8 : BD 
4A48 D8 7E B7 20 03121810 : 6A 
4A50 E5 44 4D 2A 65 30 B7 ED : D9 
4A58 42 44 4D El D8 03 ED B0 : 2C 
4A60 2A 7A 30 22 5D 30 CD 2C : 7C 
4A68 33 CD 87 33 C3 78 411A : 50 
4A70 13 CD F0 35 D6 41 DA C4 : BA 
4A78 IF FE 04 D2 C4IF 32 3C : 44 


SUM ： 28 B6 CF 0C CE 4D 76 5A 314B 

4A80 4B 4F CD E9 35 CD F0 35 : 77 
4A88 D6 41 DA C4IF FE 04 D2 : A8 
4A90 C4IF B9 CA C4IF 32 3D : B8 
4A98 4B CD CC 34 DA C4IF 22 : F7 
4AA0 40 4B ED 43 44 4B 3A 3C : C0 
4AA8 4B CD CC 34 DA C4IF 22 : F7 
4AB0 3E 4B ED 43 42 4B 2A 44 : B4 
4AB8 4B AF ED 42 38 013C 2A : C8 
4AC0 3E 4B B7 28 09 2A 40 4B : 26 
4AC8 ED 4B 44 4B 50 59 B7 20 : 47 
4AD0 06 ED 5B 44 4B 18 04 ED : E6 
4AD8 5B 42 4B E5 AF ED B1 Cl : DB 
4AE0 C2 C4IF B7 ED 42 EB B7 : 2D 
4AE8 ED 52 DA C4IF 2A 42 4B : B3 
4AF0 54 5D ED 4B 44 4B B7 ED : 1C 
4AF8 42 30 02 42 4B 2A 3E 4B : B4 


SUM: 59 0B 77 33 2174 88 24 BACD 


4780 

EC 

34 

ED 

5B 

67 

30 

2A 

65 

8 E 

4788 

30 

23 

AF 

ED 

52 

DA 

A5 

46 

06 

4790 

22 

72 

IF 

21 

00 

00 

22 

70 

66 

4798 

IF 

22 

6 E 

IF 

CD 

AF 

IF 

DA 

43 

47A0 

A5 

46 

2A 

67 

30 

22 

70 

IF 

5D 

47A8 

CD 

AC 

IF 

DA 

A5 

46 

CD 

AF 

D9 

47B0 

46 

C3 

00 

47 

3A 

5C 

30 

CD 

E3 

47B8 

B0 

44 

CD 

94 

IF 

B7 

28 

A5 

F8 

47C0 

3E 

20 

CD 

AA 

42 

CD 

94 

IF 

97 

47C8 

23 

B7 

28 

05 

CD 

AA 

42 

18 

D8 

4700 

F4 

3E 

3A 

CD 

AA 

42 

11 

AE 

E4 

47D8 

31 

CD 

BA 

42 

CD 

E0 

39 

CD 

AD 

47E0 

C3 

42 

CD 

A0 

37 

CD 

A9 

36 

55 

47E8 

FE 

IB 

CA 

42 

43 

FE 

0D 

28 

9B 

47F0 

06 

CD 

42 

43 

C3 

65 

47 

ED 

B4 

47F8 

5B 

10 

30 

3E 

04 

CD 

A3 

IF 

6 C 

SUM ： 

6 D 

00 

31 

C5 

7B 

CA 

65 

51 FC9F 

4800 

CD 

42 

43 

C3 

6 E 

47 

CD 

E9 

80 

4808 

35 

CD 

32 

36 

38 

06 

CD 

12 

87 

4810 

36 

22 

5D 

30 

CD 

G9 

35 

2A 

FA 

4818 

22 

30 

CD 

C5 

48 

D8 

CD 

3B 

0C 

4820 

34 

2A 

5D 

30 

E5 

CD 

84 

32 

53 

4828 

CD 

EC 

34 

El 

22 

5D 

30 

CD 

4A 

4830 

97 

33 

CD 

83 

48 

20 

2C 

AF 

5D 

4838 

32 

2E 

30 

CD 

E0 

39 

CD 

B5 

F8 

4840 

37 

CD 

D1 

37 

CD 

3B 

34 

CD 

15 

4848 

AA 

33 

CD 

59 

46 

CD 

A0 

37 

ED 

4850 

CD 

A9 

36 

FE 

IB 

CA 

78 

41 

48 

4858 

FE 

20 

CA 

21 

46 

21 

7E 

30 

IE 

4860 

34 

18 

CF 

AF 

32 

7E 

30 

32 

DC 

4868 

2E 

30 

2A 

5D 

30 

23 

22 

5D 

B7 

4870 

30 

ED 

5B 

5F 

30 

CD 

76 

34 

7E 

4878 

ED 

53 

5F 

30 

1A 

B7 

20 

B2 

72 

SUM ： 

4F 

29 

7E 

99 

0A 

A9 

FB 

AD A875 

4880 

C3 

78 

41 

2A 

5F 

30 

3A 

7E 

ED 

4888 

30 

4F 

85 

6 F 

30 

01 

24 

EB 

B3 

4890 

2A 

22 

30 

CD 

94 

IF 

EB 

F5 

DC 

4898 

BE 

20 

0C 

CD 

B3 

48 

20 

07 

D9 

48A0 

79 

32 

7E 

30 

FI 

AF 

C9 

7E 

40 

48A8 

23 

0C 

FE 

20 

38 

03 

FI 

18 

91 

48B0 

E6 

D1 

C9 

EB 

2A 

22 

30 

D5 

BC 

48B8 

CD 

94 

IF 

EB 

BE 

EB 

13 

23 

4A 

48C0 

28 

F6 

El 

B7 

C9 

1A 

13 

FE 

AA 

48C8 

22 

20 

18 

06 

7F 

1A 

FE 

0D 

04 

48D0 

28 

0 B 

FE 

22 

28 

07 

CD 

9A 

E9 

48D8 

IF 

13 

23 

10 

F0 

AF 

CD 

9A 

6 B 

48E0 

IF 

B7 

C9 

CD 

94 

IF 

B7 

37 

0D 

48E8 

C8 

B7 

C9 

2A 

22 

30 

AF 

47 

BA 

48F0 

32 

1C 

4A 

CD 

9A 

IF 

10 

FB 

29 

48F8 

1A 

FE 

2F 

20 

04 

32 

1C 

4A 

03 

SUM ： 

EE 

68 

8 B 

2C 

9B 

El 

A3 

F5 7B09 

4900 

13 

CD 

E9 

35 

CD 

32 

36 

38 

6 B 

4908 

06 

CD 

12 

36 

22 

5D 

30 

CD 

97 

4910 

E9 

35 

2A 

22 

30 

CD 

C5 

48 

74 

4918 

D8 

2A 

24 

30 

CD 

C5 

48 

D8 

08 

4920 

CD 

3B 

34 

3A 

1C 

4A 

B7 

28 

BB 

4928 

11 

2A 

5D 

30 

E5 

CD 

84 

32 

30 

4930 

CD 

EC 

34 

El 

22 

5D 

30 

CD 

4A 

4938 

97 

33 

CD 

83 

48 

20 

41 

3A 

FD 

4940 

1C 

4A 

B7 

28 

27 

AF 

32 

2E 

7B 

4948 

30 

CD 

E0 

39 

CD 

B5 

37 

CD 

9C 

4950 

D1 

37 

CD 

3B 

34 

CD 

AA 

33 

EE 

4958 

CD 

59 

46 

CD 

A0 

37 

CD 

A9 

86 

4960 

36 

FE 

IB 

28 

38 

FE 

20 

20 

ED 

4968 

11 

CD 

C4 

IF 

CD 

26 

35 

CD 

B6 

4970 

A3 

49 

30 

06 

CD 

80 

36 

C3 

68 

4978 

9D 

49 

21 

7E 

30 

34 

18 

BA 

BB 

SUM ： 

8 D 

81 

B5 

BF 

21 

F5 

A2 

C7 3704 

4980 

AF 

32 

7E 

30 

32 

2E 

30 

2A 

49 

4988 

5D 

30 

23 

22 

5D 

30 

ED 

5B 

A7 

4990 

5F 

30 

CD 

76 

34 

ED 

53 

5F 

A5 

4998 

30 

1A 

B7 

20 

9D 

CD 

87 

33 

45 

49A0 

C3 

78 

41 

2A 

22 

30 

CD 

0D 

D2 

49A8 

4A 

EB 

2A 

24 

30 

CD 

0D 

4A 

D7 

49B0 

44 

41) 

B7 

ED 

52 

28 

43 

38 

2A 

49B8 

IF 

EB 

2A 

10 

30 

01 

FE 

00 

73 

49C0 

09 

E5 

E5 

B7 

ED 

52 

EB 

CD 

81 

49C8 

C4 

39 

44 

4D 

El 

B7 

ED 

42 

55 

49D0 

44 

4D 

EB 

D1 

ED 

B8 

18 

22 

2 C 

49D8 

E5 

CD 

C4 

39 

EB 

19 

KB 

09 

A7 

49E0 

E5 

2A 

10 

30 

01 

FE 

00 

09 

57 

49E8 

B7 

ED 

52 

44 

‘1!) 

03 

El 

EB 

56 

49F0 

ED 

B0 

Cl 

EB 

36 

20 

23 

0C 

CE 

49F8 

20 

FA 

CD 

C4 

39 

BB 

2A 

24 

ID 

SUM ： 

AA 

40 

39 

64 

97 

24 

IB 

04 B40E 

4A00 

30 

CD 

94 

IF 

B7 

CA 

4D 

35 

: B3 

4A08 

12 

13 

23 

18 

F4 

0E 

00 

CD 

: 2F 

4A10 

94 

IF 

B7 

20 

03 

69 

67 

C9 

: 26 


►チクシヨウ， 「 W 険！コロンブスり」 
C , ったのに，なんで部活な八かあるの。 
Oh ! X 宛てのメッセージを出していた 


A1 

29 

89 

2C 

3E 

3A 

EE 

BC 

BB 

78 

27 

B7 

B9 

87 

EE 

5C 


SUM ： 9A 18 66 E5 ED 92 8B 35 D41D 

4700 3A 5C 30 CD B0 44 3E 20 : E5 
4708 CD 40 47 3E 2A CD AA 42 : 75 
4710 3A 5D IF CD 40 47 3E 3A : 82 
4718 CD 40 47 ED 5B 74IF 06 : 35 
4720 0D CD 34 47 3E 2E CD 40 : CE 
4728 47 06 03 CD 34 47 CD C3 : 28 
4730 42 C3 42 43131A CD AA : 2E 


144 Oh ! X 1988.8. 


4458 CD 9E 44 3E 3A CD AA 42 : E0 
4460 60 69 CD 9E 44 3E 20 CD : A3 
4468 AA 42 3E 5B CD AA 42 Cl : FF 
4470 El AF ED B1 EB El60 69 : C3 
4478 CD 9E 44 3E 5D CD AA 42 : 03 

SUM ： 4F 6D D4 BD IB C4 AC 89 E2CC 


4480 

4488 

4490 

4498 

44A0 

44A8 

44B0 

44B8 

44C0 

44C8 

44D0 

44D8 

44E0 

44E8 

44F0 

44F8 


08 CD B0 
B7 28 05 
CD C3 42 
31 CD BA 
CD C4 39 
7E 30 34 
3C 1120 
3D 20 FC 
7D F5 0F 
44 FI E6 
38 02 C6 
6 C 30 3A 
0114 2A 
12 36 00 
44 CD 9A 
78 413A 


4 4 CD 
CD AA 
C3 42 
4218 
EB CD 
34 34 
00 2A 
C9 7C 
0F 0F 
0F F6 
0712 
5C 30 
67 30 
3A 5C 
IF CD 
5C 30 


94IF 23 
4218 F4 
431198 
F2 D5 EB 
BC 44 21 
34 D1 C9 
20 30 19 
CD Cl44 
0F CD CA 
30 FE 3A 
13 C911 
83 5F 30 
7E B7 C8 
30 CD B0 
52 33 C3 
116C 30 


6 C 

A9 

C3 

C4 

A3 

18 

00 

70 

45 

88 

06 

74 

D3 

8 B 

DF 

2C 


SUM ： B51A 2D 9B 48 CE 39 91 EA72 


4500 

4508 

4510 

4518 

4520 

4528 

4530 

4538 

4540 

4548 

4550 

4558 

4560 

4568 

4570 

4578 


83 5F 
7E B7 
EC 34 
0G 00 
04 06 
FA CD 
3130 
2A CD 
AA 42 
87 81 
0124 
AA 42 
30 FE 
33 FI 
CD EC 
33 CD 


30 0114 
C0 1A B7 
CD 52 33 
06 04 CD 
04 CD 2F 
C3 42 C3 
913E 20 
AA 42 79 
3E 2F CD 
2A 20 30 
CD 94IF 
3E 3A C3 
08 D0 D5 
32 3130 
34 CD 8A 
78 41 D1 


2A 67 30 
C8 77 CD 
C3 78 41 
23 45 0E 
45 0C 10 
42 43 3A 
20 02 3E 
C6 30 CD 
AA 42 79 
85 6F 30 
C6 41 CD 
AA 42 D6 
F5 CD 2C 
CD 84 32 
33 CD D8 
18 0C 21 


E8 

D2 

EE 

5B 

6 B 

4E 

B0 

IF 

8 B 

A6 

79 

E9 

C9 

3A 

1C 

CF 


SUM ： 93 EB IE 2C 95 FI7A 44 2F0D 


4580 00 
4588 22 
4590 B5 
4598 3E 
45A0 13 
45A8 B6 
45B0 A0 
45B8 26 
45C0 43 
45C8 CA 
45D0 FE 
45D8 6D 
45E0 46 
45E8 48 
45F0 CA 
45F8 00 


00 22 
5F 30 
41 CD 
0D 12 
CD F0 
FE 42 
4 3 FE 
CA D7 
FE 52 
E3 43 

45 CA 

46 FE 
CA 06 
FE 44 
6 F 4A 
00 00 


5D 30 
D5 3A 
A7 41 
AF 13 
35 CD 
28 D2 
25 CA 
44 FE 
CA FA 
FE 4E 
FE 45 
53 CA 
48 FE 
CA ID 
FB 50 
00 00 


2A 67 30 
5B 30 CD 
CD FD 41 
12 D11A 
32 36 30 
FE 21 CA 
A9 43 FE 
2F CA B7 
44 FE 4D 
CA 18 45 
FE 4C CA 
48 47 FE 
43 CA EB 
4A FE 58 
CA 46 4B 
C9 D5 CD 


70 

18 

B6 

1C 

6 A 

D9 

BA 

B9 

E6 

63 

64 
5B 
54 
11 
2C 
6 B 


SUM ： 74 28 29 77 E7 E0 55 BC 96FC 


4600 84 
4608 30 
4610 12 
4618 CD 
4620 30 
4628 35 
4630 D1 
4638 7E 
4640 CD 
4648 3A 
4650 33 
4658 41 
4660 B7 
4668 67 
4670 38 
4678 IF 


32 CD 
CD E9 

36 22 
97 33 
3E 01 
CD 59 

37 CD 
FE IB 
09 39 
75 30 
18 03 
ED 4B 
ED 42 
22 2C 

33 20 
CD 84 


EC 34 
35 CD 
5D 30 
21 FF 
32 70 
46 CD 
A9 38 
28 08 
18 El 
B7 20 
CD 52 
6130 
7D 2A 
30 C9 
3B 3E 
32 CD 


D12A 5D 

32 36 D4 
CD 3B 34 
FF 22 7A 
30 CD 26 
29 38 CD 
2A 10 30 
3A 80 30 
CD 2C 33 
05 CD AA 

33 C3 78 
2A 5D 30 
32 30 84 
CD B5 46 
0C CD F4 
EC 34 CD 


FB 

24 

33 
52 

34 
9C 
20 
B1 
34 
32 
DB 
Cl 
73 
76 
D1 
5C 


72A1 2 A 1 F47CD 4104FBC0F3 CD E5 1F13 A3 

s::s§s:uc8sgCD2sCD 

ED 1A 9DCDC3 1F C335204608F431CDB704 
gCDssusss FE CDsg 犯 


4 A4AA4D9F9A32D000 
c EA55F60AC 0704000 


9B308B628 

B2E375C9F 




































リスト £ WINEFT ノースリスト 


2 ; VINER vtr 1.1 pace d 

3 ; < screen ®dit«r > 

4 ; Copyrifbt in 1988 by OH 

5 ； . 

6 

7 proiraa EQU •3MtH 
6 aakadr EQU 6CA60H 
9 

ie ; . 

11 OFFSET Mkadr-profraa 

12 ; ORG prograa 

13 : DS 2808H 

14 ; 

15 


；/•/• メインメモリー 
■acnsub EQU MC08H 
.tabadr EQU I4E9IH 
.linebf EQU 64F8IH 
.txtadrA EQU I5IMH 
.txtadrB EQU •AIIIH 
.txtadrC EQU 9DIIIB 
.txtadrD EQU IE5IIR 


•/•/ 

•• 機稽 M サブルーチン 
•，タブフォーマット格ァドレス 
;ライン人カバッファアドレス 
••テキスト八格納アドレス 
; テキスト B 格納アドレス 
•• テキスト C 格#!アドレス 
•• テキスト D 格納アドレス 


； /♦/• 特 « ワークエリア 亀 1，1 

.cutbf EQU m%9H •• カット & ベ--スト用バッファアドレス 
•copybf EQU 9l7eiH •• コビーバソフ r アドレス 
.txtwbf EQU eiABIH :ウインドウ用のテキストワーク 
； ifi * アドレス 
:サーチ用バッファアドレス 
••チェンジ用バッファアドレス 
:コマンドレペル用スクリーンワーク 


I .seachbf EQU 68B9IH 

1 .cbencbf EQU I9B8IH 

2 .coibf EQU eecteH 

3 .coaask EQU 987H 

ft jlelbf EQU 80088 H 
).delask EQU 063H 


••デリートバッファ 


r ドレス 


37 :•/•/•/•/•〜•/•/•/•/•/•/•，•/•/•/•/•/•/ 拿 


44 : JP H0T1 

45 : JP H0T2 

46 ; 拡«用 

47 :- Mork area - 

48 stack DV 8 

49 sain Miory sap ••• 

59 tabadr DV .tabadr 

51linabf DV _lintbf 
52 ; 

DV .titadrA : テキストエリア A スタートアドレス 


53 tztst 

54 

55 


OW .txtadrB 


66 DW 0PFFFH 

61 

62 EX vork mp "窜 

63 cutbf DV -cutbf 

64 copybf DV .copybf 

65 txtMbf DV .txtwbf : 

66 seacbbf DV .seacbbf : 

67 cbtnfbf DV .chenibf : 

66 coabf DV .coibf 
69 consk DB .coMfk : 

78 delbf DV Jelbf 

71 delask D3 .dslask ; 

72 ; 轉 * line print work 

73l.curi DB e : ラインブリント X * 檬 
74 l.cury D9 0 : ラインブリント Y * 額 

75 l.offs DB e ;1 行表示のオフセツ 

76 

77 ： w window work 


テキストエリア B スタートアドレス 
/ テキストエリア A エンドアドレス 
テキストエリア C スタートアドレス 
/ テキストエリア B エンドアドレス 
テキストエリア D スタートアドレス 
/ テキストエリア C エンドアドレス 
/ テキストェリア D エンドアドレス 


『ドレス 


カット & ペーストバプフ 7 
コビー用バッファアドレス 
テキストワークバッファアドレス 
サーチ用文字外バッファアドレス 
チェンジ用文字列バッファアドレス 
コマンドテキストバッファアドレス 
コマンドテキストラインマスク 
デリートバッファアドレス 
デリートバッファアドレスマスク 


88 

61 xstart 

82 ystart 

83 xsize 

84 ysize 

85 


スクリーンサイズ 
: ウインドウ No. 


;ウィンドウ 
ヴィント•ヴ 
;ウィンドウ 
；ウイント•ヴ 


X* 様 スタート 
Y* 欉 スタート 
X* 樣サイズ 
Y 味檩サイズ 


86 vindata DB 81,62.78,28:01. 12,78,20 :ウィンドウデータ 

87 DB 91.02,78.20:01,62.78.26 : 退避用ワーク 8ch 


DB 81,12.78,20:81,12,78.20 
DB 61.82.78.26:01.02.78,28 


96 

91 comnd level work 

92 coavind DB 24.07.46,06 

93 coatop OB 6 

94 coilin DB 6 

95 

96 text work •“ 

97 novtxt DB 8 
98lineno Otf 8 
99 


コマンド入力用ウイ 
コマンウイ 
コマンドライン No 


169 lineadr DV e 
101 dtopno DV 6 
182 dtopadr DM 6 
103 tndadr DW 0 
164 ntxtst D" 

105 ntxtend DW 0 
m tabsu DB 8 
10 ? 

168 txtchr DM 
199 « aode work 料 . 

11$ getlnode DB C 


; 现在のエディットテキスト 0=A1=B 2=C 3=D 
;« 在の行 No. 

:現在の行アドレス 
; ディスブレイのトップ No. 

;ディスブレイのトップアドレス 
: UW 行アドレス 

: w 在のテキストエリアのスタートアドレス 
; W 在のテキストエリアのエンドアドレス 
; タブデータ#示スイッチ 


111 
112 

113 inkyaode DB 6 


117 acrofiog D8 e 
113 

119 insaode DB 0 
121 ctrlkeep DB e 

121 wind 麵 xf DB 0 

122 : 时 。 copy & deli 

123 copypnt Drf 6 

124 deipnt DV e 

125 aarkbf OW e 

126 aacrpnt DV 6 
W key work 

128 pointer D6 0 

129 inpchk DB 9 

130 chrbf DB e 

131 keyconfd 


ライン人カモード 
: hcouand level 
: l>screen edit 
1 文字入カモード 
; e*noraal 

; l=put out froa copy buf 
: ?：put out froa delite buf 
6-noraal 

: l=key aacro 

インサート/オーハーライトそードフラグ 
コントロールキーキーフフラグ 
勹ィンドウ MAX フラグ 
> buff work 
コビー出カボインター 
テリート ハツ フ r スタ：/クポインター 
カット & ベーストマークハツファ 
キー入カマク〇ボインター 

力 ー ソル ポインター 
キー入カチェックフラグ 
キャラクターバッファ 
キーコンフイキユレーシ a ン 


I 68 09 
I 0F 

911611 
17 

1819 
A0 IF 
20 21 
A8 27 
M 28 29 
B9 2F 
B138 31 
B8 37 
B9 38 39 
3F 
Cl 

Cl21 3A 3B 2C 3D 2B 2D 
08 2A 2F 
3C 3E 2 
D1?D hi i 
D4 22 27 2 


82 63 04 65 66 
8A 9B 6C 0D 8E 
121314IS 16 
1A IB 1C ID IE 
22 23 24 25 26 
2A 2B 2C 2D 2E 
32 33 34 35 36 
3A 3B 3C 3D 3E 


D9 
D9 
D9 61 
DA PF FP 
DE FP FF 
E3 

E3 3C 3C 
EA 4E 29 
FI3E 28 
F8 2E 39 
FF 3139 
66 6D 61 
0 A ee ee 

18 5B 21 
17 5B 26 
IE 21 SD 
2120 2F 
2fl 72 74 
2F 28 2% 
35 21 2P 
3C 74 79 
64 65 
49 4E 6F 
51 43 74 
56 3C 26 
5D 18 
5E 48 69 
65 3E 20 
6C 6C 65 
73 72 65 
U 57 68 
8169 6E 
88 6F 29 
8F 75 6D 
96 20 00 
98 4E 6F 
9P 67 ee 
A14E 6F 
Afi 64 69 
AE 26 44 
B5 26 73 
BC 26 
BE 4E 6F 
C5 69 6E 
CB 4D 65 
D2 4F 76 
D9 28 28 
E6 28 56 
E7 96 
EB 21 51 
EF 66 10 
PI 
Pi 


C3 16 4 
03 C3 S2 4 


66 

86 

66 E5 
08 25 
0D 3E 
12 3E 
17 3E 
1C E5 
ID 79 
20 85 
2511 
2B El 
2C 

2C 24 
36 3E 
35 3E 
3A 3C 
3F 19 
4124 
45 

45 3E 
4A 3E 
4F 3E 
54 Cl 
59 C5 

I eo 


E 28 29 5B 5D 7B 
l A3 

1 20 26 26 


FF FF 
FF FF FF 

20 57 26 49 21 
45 28 52 20 3E 

76 65 72 2$ 31 

28 28 43 29 20 
38 36 2e 54 61 
2E ee 

ee ee ee ee 
2% 1% 28 2d 5D 
26 26 29 26 26 
ee 

21 49 6E 73 65 

29 6D 6F 64 65 
28 2F 26 16 

28 4F 76 65 72 
1% 65 21 6D 6F 

28 2F 21 19 

72 6D 616C 88 
72 SC 21 66 
57 69 6E 64 2E 

74 28 3C 43 52 
6F 6E 20 46 69 
20 6F 72 26 42 
616B ie eo ee 

69 63 68 21 77 

64 6F 77 20 64 
79 6F 75 2$ 6A 

70 20 3P 21 20 

29 75 73 69 6E 

77 28 6C 6F 61 
6E 67 28 06 

6F 28 79 6F 75 
6176 65 28 3F 

77 21 73 6176 
67 26 20 ee 
6D 6F 72 79 20 

65 72 26 20 20 
20 26 28 2§ 80 
72 77 29 6F 6E 

72 77 2« 6F 66 


C5 

?D CD IE 20 
26 CD F4IF 
2D CD 59 4C 
2B CD F4IF 

D6 9F 

6F CD IE 28 
10 31 CD E5IF 


CD IE 20 
6C CD F4IP 
1C CD 59 4C 
SC CD F4IF 
EB 

CD IE 20 

2B CD F4IF 
2D CD 59 4C 
?B CD F4IF 
El C3IE 26 
CD F4 IF 
26 FA 


F5 

2C CO IE 2« 
34 38 47 
2E 30 4? 

09 

FE 0D 2811 
«D 20 F7 
?E 0D 28 68 
•4IF 13 
?518 85 


8D CD FI IF FB 
SI 


► STUDIO X にひと言。雷印のアイスは“パモナ”だ。決してハ。ナモではない。さて，ウケ 
ている理由というのは中村由典の CM だからなのだ。 小宮崇 （ 16 ) 埼玉県 


135 

136 


DB 90H.eiH.e2H.03H.84H 
DB 08M9IMAMBH,ICH 
DB 1SH.UH.12H.13H.14H 
DB 18H.19H.1AH.1BH.1CH 
DB 20H.21H.22H.23H.24H 
DB 28H.29H.2AH.2BH.2CH 
DB 30H.31H.32H.33H.34H 
DB 38H.39H.3AH.3BH.3CH 


3DH 


3EK 


3FH 


148 :时 ♦ for Ctrl 

141 skipchr 0M - :;. =4-*/ M 


；skiped chractor 

142 DM w <>OUU r J M ； all is 24 

143 DB 22H DH -- 

144 

145 Vindov prv buff •••• 

146 vpmsw D81 

147 vinprv DB 0FFH.8FFH,8FFH.6FFH 

148 DB IFFH.0FFH.eFFH.8FFH.0FFH 

149 :• 拿 ** ASCII data 

159 titles DH w « V 1 N E R » vtr 1.8 (C)1986 Tasa. M 


151 naaare DS 6 

152 datala DM M [ 】 M 

153 data2B DH H l 广 DB e 

154 insert! DM " / Inttrt soda / M DB • 


155 overt 神 DH ** / Ovirtype aode / w DB I 


156 nariala DM "HoriaT DB 0 

157 ctrla DM M Ctrl ” DB 8 

158 winds DM -< Wind." DB 6 

159 dira DM "Hit <CR> on Fil» or Break” DB 1EH.I0HJ 


160 vjuapa DH M Wbicb window do you juap ? 

161 nousea DM M No usinf N DB 0 
162loads DM M Now loading H DB 0 

163 save? DH M Do you save ? M DB 0 

164 Sava 膽 DH "Nov stvinc w DB 0 

165 aeiovr DM ” Memory Ovtr " DB 0 

166 priiona DN M Prv on M DB I 

167 pmofi DH - Pru off" DB 0 


168 
169 P 
178 


••for page 1 LABEL 


-H 

m 

GO 

m 

z 

—i 

z 

m 


176 

177 ; 


196 

197 


l OWINDOV JP openwiodow 
\ LHPRINT JP linepnnt 
\ 

1openwindov : in H^locAte Y Ulocate X 
j ; B:Y size C=l size 

> ;de$ AF.HL.BC.DE 

F 

J PUSH HLtPUSH BC 

) DEC H:DEC L:CALL HOC 

) LD ACALL SPRINT 

1 ID A.-- W :CALL opnvin2 

l LD A,” 令 ”： CALL 看 PRINT 

3 PUSH HL 

I LD A.C:SUB IS 

ADD A.L:LD L t A:CALL ILOC 
LD DE.datala:CALL 9HSX 
POP HL 

opnvinl INC H:'cALL 9L0C 

LD A,T*:CALL (PRINT 
LD A.1CH:CALL opnvin2 
LD A, H 1 H :CALL 看 PRINT 
DJNZ opnvinl 
INC H:CALL ILOC 

LD A/V':CALL IPRIHT 
LD A f M - , *:CALL opnvin2 
LD A.VrCALL IPRIHT 
POP BC:P0P HL:JP ILOC 
opnuin? PUSH BC:ULL IPRIHT 

IF 0EC(C)oe JR opnuin2U 
POP BC:RET 

lineprint ; ラインブリント 

;in DEsASCII adress /des noting 

PUSH BC:PUSH DE 
PUSH HL:PUSH AF 
LD HL.(l.curx):CALL ILOC 
LD A.(xsize)：LD B.A 
LD A.(i.offs):LD C f A 
IF A:8 JR l.prtl 

l.prte LD A.(DE):IF A=0DH JR Lprt2 

INC DE:IF DEC(C)<>0 JR l.prtd 
Lprtl LO A.(DE):IF A-90H JR l.prt2 
CALL IPRIHT:INC DE 
DJNZ l.prti：JR l.prt3 
LprU CALL IPRHTStOJNZ l.prt2 
l.prt3 POP AF-.POP HL 

POP DE:P0P EC:RET 


マルチウィンドウエディタ WINER 145 


iiiliiiiiiiiiiiii! 

008088 00808 ¢ 880804 


llv eee sssss ee sss eeeeee SMS eeeseeleee SM aaA 


8 4 4 5 A D E 


• 7 A B B c 0 


E E E E 

E E E4EE 
S8262621207 
00 0000 ld-1 41414 800 
00 0060 01919101 100 


0 0 8 8 0 0 8 B 
0 000000 3 
0 0 0880000 B 0 
06 0 0 8 8 8 0 0 3 8 


% eeMeeedeeMeeeeeeee 

































WINER page 1 

< screen editcr > 
Copyright in 1988 by 瑁 


OFFSET lakadr-prograB 
0R6 profrai 


CALL COLD 
CALL HOTII 
JP HOT 看 2 


:コールドスタート 

CALL TAREA1 
LD B.4:LD DE.titchr+3 
LD A.B.-DEC A 

PUSH DE:PUSH BC 
CALL TEXTDAT 

POP BC:P0P DE:JR C.COLD2 
LD A t (HL):LD (HL)J:L0 (DE),A 
DEC DE:DJNZ COLD! 

RET 

; ホットスタート 1 

LD HL(txtvbf):XOR A:LD B.A 
CALL IPOKE:INC HL:DJHZ H0TIH5 


7 HOTIU XOR A:LD (windno).A 

a ; 

9 ID HL.0:CALL 9POKE 

0 ； 

1 LD HU(copybf) 

2 CALL IP0KE:IHC H 

3 CALL «POKE:IHC H:CALL IPOKE 

4 ; 

5 LD HL.e：LD (delpnt)，HL 
B 

7 CALL TEXTDAT 

B LD (ntxtst) ( HL:LD (ntxtend),DE 

9 CALL ENDCHK:RET HC 

0 LD HL.(txtstf8):LD (txtsU6)_HL 

1 LD (txtstM),HL:LD (txtsU2),HL 

2 RET 

3 

1HOTI2 ; ホットスタート 2 
3 LD (stack),SP 

5 

1 XOR A:LD H,A:L0 L.A 

) LO (coalin),A：LD (coitop).A 

3 LD (getlsode).HL:LD (ins»ode).HL 

l LD (inpchk).Hl 

1 

2 LD HL,(coibf):LD DE.080H 

3 LD A.(coHsk):LD B.A 

\ INC B:XOR A 

5 B0TI2! CALL IPOKE:ADD HL.DE:DJHZ HOT 售 21 
5 

7 CALL PRWIHIT 

B 

9 CALL SCRNS1Z:CALL SCRHIMIT.c 

i be ec3H 


；text uork clear ! 
op No.init 

: cut & peast buff clear 


;delite buf clear ! 
;TBXt aria over check 


Data etc. init 


: coaaand vindou clear! 


;window prw init 


j WINDPOP : ウインドウデータセット & 

) ; in (windno) /ウインドウサイズチェック 

1 out nothing 

l ; des AP,HL ， DE，BC 

? 

) XOR A:LD (windaxf) r A ; nindoM position 

t LO A,(¥indno) ; & size set 

! IF A>=8 THEN XOR A 

I 10 (vindno)»A 

l ADD A.A:ADD AJ:LD HL，windata 

> ADD A.L:LD L.A 

i LD DE.xstart:LD BC.4:LDIR 

f ID A.(¥indno) 

l 

) LD L.A:ADD A.A:ADD A.L 

) LD HL.dxtwbfJiADD A.L 

l LD L.A:IF C THEM IHC H 

! EX DE f HL:LD HL.nowtxt 

I LD BC.3:CALL «P£EK 雌 

l 

j ID A.(noMtxt) ; if unusing text 

> CALL TEXTDAT ; then coiiand level 

1 IF C THEN CALL «BELl:JP TO.COM-1 


LD (ntxtst).HL 
LD (ntxtend).DE 


text Area data set 


99 

100 
iei 

102 WINDCHK ; ウィンドウサイズチェック 

103 ； in (xsize).(ysize).(xstart).(ystart) 

184 : out (xsize),(ysize),(xstart).(ystart) 

185 ; des AF.HL.DE.BC 

186 

187 LD HU(x8iZ8):LD DE.(xstart) 

168 WINDCHXe LD BC.(scrnsiz) 

109 LD A,L:IF A く 16 THEN 10 L.16 

110 IF H=0 THEM IHC H 

111 IF E=0 THEN IHC E 

112 IF D=6 THEN IHC D 

U3 W1NDCHRI ID A.E:ADD A.L 
114 IF A<C JR WINDCHR2 

DEC E：JR NZ.VINDCHK1 


115 

116 

117 UINDCHK2 LD A 


IHC E 


119 V1HDCHK3 LD 


A.D:ADD A，H 
IF A く B JR V1NDCHK4 
DEC D:JR NZ.WINDCHK3 


121 

122 IHC 0 

123 WIKDCHK4 LD A.D:ADD A.H 

124 IF A，：B THEN DEC H:JR MIHDCHK4 

125 LD (xsize),HL:LD (xstart).DE 

126 RET 

1^7 :••ハ叫がゆ办ぐ 

i：8 WIHDFUSH : ウィントウテータ圯 iB 
129 ;in (wmdno ： 

139 ;out notihng 

: des AF.HL.DE.BC 


13 ： 

133 


LD A.(uuidno) 

ADD 美 • 典 ： ADD A,A:ID OE.vindi 
ADD A.E:LD E.A 
LD HL.xstdrt：LD BC.4 ： L0IR 


332C 

3320 

332C 

332C 

332C 

332C 

332C 3A 31 
332P 6F 87 
3332 2A 26 
3336 6F 31 
333A 115C 
3340 EB C3 
3344 
3344 
3344 
3344 
3344 
3344 

3344 3A 5C 
334A 3A 5B 

3351 C9 

3352 
3352 
3352 
3352 
3352 

3352 3E eC 
3357 3A 5C 
335D FE 59 
3363 CD IE 
336A E5IF 
336C 3A D9 
3372 CD D8 
3378 

33781A 3C 
337B D5 
337C 3D 32 
3380 CD 87 
3383 D113 
338518 FI 
3387 
3387 
3387 
3387 

3387 CD 84 

33BD CD 16 

339132 2E 

3397 

3397 

3397 

3397 

3397 2A 32 

339E CD 88 

33A4 CD B5 

33AA 

33AA 

33AA 

33AA 

33AA CD A9 
33AD 2A 32 
33B3 3A 35 
33B7 ED 5B 
33BE 1A B7 
3302 CD 03 
33C8 3416 
33CB C9 
33CC 3E §D 
33CF CD 03 
330316 FA 
3305 AF 12 

3307 C9 

3308 
3308 
3308 
3308 
33D8 
3308 

3308 3A 31 
33DC ei FF 
33E2 7B 
33E3 BE 28 
33E6 79 
33E7 BE 28 
33EA 2316 
33B0 C3 61 
33F0 23 7E 
33F3 B9 28 
33P6 73 C9 
33P8 77 23 
33PA 16 F4 
33PC 
33FC 
33FC 
33PC 
33FC 
33FC 

33FC 21 DB 
3492 01 07 

3409 3A 31 
348F C9 

3418 
3416 

3410 

3419 
3410 
34ie 
3410 

3419 2A 6A 
3416 06 04 
3410 DD 5E 
3422 DD 6E 
3428 B7 ED 
3420 19 DD 
3434 DD 2B 
343A C9 
343B 
343B 
343B 
343B 
343B 
343B 

3436 2A 50 
3441 22 5F 
3448 EB 68 
344B 3A 35 
3452 8418 
3455 CD 8¢ 
345A B7 ED 
J46180 
3462 2¢ ei 
34S8 B7 HD 
M6F 67 39 
iVi ED 53 
3476 
3476 
3476 
3476 
3476 
3476 

34761A B7 
347913 FE 


138 TXTPUSH ; テキストデータ退遘 
;in (vindno) 


31 

85 

3« 85 
8124 

30 6163 60 
97IF 


IF 32 2F 38 
IF 3D 32 38 30 


CD F4IF 
IP 2118 ee 

28 02 2E 81 

29 11 E3 38 CD 

31 B7 26IS 
3311 DA 30 


148 

141 

142 

143 

144 


out notihng 
des AF.HL.DE.BC 


LD A,(vindno) 

LD L ， A:ADD A.A:ADD A.L 

145 LD HL(Utvbf):ADD A,L 

146 LD L.A:IF C THEN INC H 

147 LD DE.novtxt:LD BC.3 

148 EX DE.HLiJP IPOKE き 

149 

15¢ SCRNSIZ ••スクリーンサイズセツト 


151 

152 

153 

154 

155 

156 

157 


159 SCRHIHIT.c 

160 
161 
162 


in notnin^ 
out (scrnsiz) 
des AF 

LD A.(«WIDTH):LD (scmiz).A 
LD A.(IMAXLIN):DEC A:LD (scrnsizU),/ 


169 SCRHINIT.cl 


174 

175 


面を 消してスクリーン 初期化 
: des AF.HL.DE.BC 

LD A.8CH:CALL SPRINT ；cls 
LD A V (IWIDTH):LD HL，24 
IF A089 THEN LD L.l ;title print 
CALL IL0C:LD DE.titl •• 綱 L IMS! 

LD A,(¥pr«S¥):IF A=e JR SCRMINIT 
CALL PRWSET:L0 DE.vinprv 

;vindou display 
LD A.(DE):IHC A:RET Z : by prif 

PUSH DE 

DEC A:LD (vindno)，A 
CALL SCRMINIT 
POP DE:INC DE 
JR SCRHINIT.cl 


177 SCRHINIT ; スクリーン 初期化 : a window dsiplay 

178 : des AF.HL.DE.BC 


32 CD 3B 34 
38 AF 

31 32 7B 39 


39 ED 4B 34 39 
4C CD EB 37 
37 CD D137 


34 

38 22 2C 30 

31 47 

63 39 212D 30 
28 6A 

4C CD 76 34 
F3 


183 ；♦♦•****< 

184 WITPRT ; 

185 


CALL VIHDPOP:CALL UNSET 
CALL PDATA:X0R A 
LD (Loff8),A:LD (pointer),A 

『インドウ表示してテキスト表示 
; des AF.HL.DE.BC 

LD HL,(xstart):LD BC.(xsize) 
CALL OVIHDOV:CALL PVINDNQ 
CALL PCURDAT:CALL PLIHDAT 


192 

193 

194 

195 

196 


テキスト表示 

;des AF.HL.DE.BC 


CALL TABPRT 

LD HL.(zstart):LD (l.curx).HL 
LD A.(ysizO:LD 
LD DE,(dtopadr):LD HL,l_cury 

198 TXTPRT1 LD A t (0E):IF A=6 JR TXTPRT2 

199 CALL IMPRINT: CALL NKTLIM 
INC (HL):DJHZ THPRn 


261 


RET 


202 TRPRT2 LD A.8DH:LD (DE).A 

203 TXTPRT3 CALL LMPRIHT:IMC (HL) 

204 DJNZ TXTPRT3 
XOR A:LD (DE),A 


206 


RET 


217 ••窜 

208 PRWSET ; ウインドウブライオリテイセット 


211 

212 

213 

214 


in uinano) 
out (mnpm) 
des AF.HL.BC.E 


30 54 5D 13 
68 36 FF ED B0 
30 32 DA 30 


IP 22 1A 36 
DD 2118 30 
09 DD 56 81 
02 DD 66 93 
52 38 87 
75 08 DD 74 81 
DD 2B 16 E2 


30 CB 3F 4F 47 


LD A,(vindno):LD E.A 
LD BC ( 008FFH:LD HL.vinprv 

215 PRVSET1 LD A.E 

216 IF A=(HL) JR PRWSET2 

217 LD A.C 

218 IF A=(HL) JR PRWSET3 

219 INC HL:DJNZ PRESET1 

226 JP TO.COH-1 

221 PRWSET2 INC HL:LD A.(HL):DEC HL 

222 IF AOC JR PRWSET4 

223 PRVSET3 LD (HL).E:RET 

224 PRWSET4 LD (HL),A:IHC HL 
JR PRWSET2 


226 

227 PRWIfUT ; ウ 

228 


ンドウブライオリティ初期化 
in nothing* 
out nothing 
dos AF.HL.DE.BC 


LD HL.winprvHcLD DE,Hl:IHC DE 
LD BC.7:L0 (HL) # eFFK:LDIR 
LD A.(vindno):LD (vinprw).A 
RET 


0D 20 F8 


229 
236 

231 

232 

233 

234 

235 

236 

237 TAREAI ; テキストエリア初期化 

238 ; (MEMAX) にあわせてテキストエリアを « 整 する 

239 ; in nothing 

240 : out text area data work 

241 : des HL.DE.BC.IX 

242 

243 LD HL,(»HEMAX):LD (Utst^J.HL 

244 LD B,4:LD IX.txt$tf6 

245 TAREAI 1 LD MU+0):LD D,(IM) 

246 LD L.(I^2):LD H,(IXf3) ;Text clear l 

247 SUB HL,DE:JR NC.TAREAI2 : & PUSH Text top chr 

248 ADD Hl.DE:LD (IX^9),L:LD (IX+D.H 

249 TAREAI2 DEC IX:DEC IX:DJNZ TAREAI1 

258 RET 

2b l 

252 LIHSET : け No •にあわせてテキスト表示データをセ.ノト 

253 : in (lineno) 

254 ; out (lineadr),(dtopno),(dtopadr) 

255 ; des AF.HL.DE.BC 

256 

257 LD HL f (lineno):CALl LIHADR 

258 LD (lineadr).HL:LD (lineno).BC 

259 EX DE.HULO HL.BC 

269 LD A.(ys:ze;:SRL A:LD C.ArlD B.A 

261 INC B:JR LIHSET20 

2i2 ： INSET? CALL DH) ： TL ： H:0)HZ LINSE72 
263 SUB HL,BC:IF C THEN LO HI.6 

LD (dtopno).HL：LD HU(ntxtst) 

SUB HL.O£:If NC THEM LD OE.(ntxtst) 

LD (dtopadr),DE:REt 

行先にスキづブ 

in DE=ASCII adrcss 
out DE-ASCII adress 
des nothing / flog Z=EH0 

ID A,(DE):IF A=0 RET 
INC DE:1F AO0DH JR HXTLIH 



►源 f をやれば「俏けなや一」と言われ統け，グラディウスでは未だに 3 ifii を兄たことの 
ないこの私でも， RTYPE とイシターは欲しいのだ。そうそう，アフターバーナーも欲し 
いと AL 1 , っているので，発*,•こ liij •に3ページくらい使って，ぜひ特災•してください。 

内藤吸一 （21) mm 


14〇 Oh ! X 1988.8. 




38 

6F 9412 
Mli343809EE 
ldM 3D c5cc Dl 36 le 
CD0678O5COC17E1BC9 


抑 

29 3 9A 32 ee 


9A36 


3 3 3 3 3 


E A A 0 c 7 c A 6 
19 9 8 C6E11 
ADD 1 D 2 D A 2 9 

2 c c 2 c 2 c 2 2 c 


0 2 2 17 9 
3 3 2 14 1 
c F 0 6 d B 8 F 
9 6 3 3 3 3 3 1 


52 

3333 


3 7B0F 68PA X 4 
7 6 5 7 7 2 2 A 9 F 4 
o F 2 2 2 A A 4 D ^ 
£ A 3 2 2 238c c c 


A 3 8 9 1 
0161 5400 4 8 
3 0 3 6 8 2 3c c 3 
58881 B 0 501C0 04D 09 
7 3 3 3 2 3 3 8 3 8 5 9 3 3c 36 
21817 F2 1 7 0 0 13 c c 6 73 
3 3 8 3 8 6 3 3 8 2 3 2 6 5 c 8 6 5 
FAE 27510 A FAFB1 AD022O 
A3F 388183 6 2 6 E 8 3C332E 


sll 

5B8274IC14 
£ 3 3 0 8el 
3e 2 F2?e 2 es e4F8 


63SF8 


F832 


344BF£2510l5s2e s 38 s 38 2es 3814 


ED 




?9aaaaaaadp 



















OR A:RET 

:料串幸_ “拿 

DNXTLIH : 1 行後ろにバック 

; in DEsASCII adress 
; out DEsASCII adress 
: des nothin ， / flog HC=T0P 

DEC DE 

DEC DE:LD A.(DE) 

IF A=0 JR TABIHIT-2 
IF A08DH JR DNXTLINU 
INC DE:RET 

• t ♦拿拿拿 《 拿韋《 

TABINIT : タブバッファ初期化 
: des AF.HL.BC 

LD HL.(tabadr):LD A.(HL) 

IF A= M - M RET 
IP AT RET 
LD C.32 

TABIHITi LD (HL),-^：IHC HL 
TABINIT1 LD B,7:LD (HL)，-” 

INC HL:0JNZ TABIHITH2 
IP DEC(C)<>« JR TABIMITI 
DEC HL:LD (HL).eDH:RET 

TABPRT ; タブデータ表示 

;in vindon data 
: des AP.HL.DE.BC 

CALL TMIRIT 
LD A.(t«bsv>:IP RET 
LD HL,(l.curx):PUSH HL 
LD HL,(xstart):LD A.(ysizt) 
ADO A.H:LD H»A:LD (Lcurx).HL 
LD DE.(tabadr):CALL LHPRIHT 
POP HL:LD (l.curx).Rl 
RET 


TEHDAT : テキストエリアデータ 
; in Acc^text No. 

; out HL:Uxt stirt adress 
: DE=Uxt and adrtss 

; EC=teit size 
;flof C^unuse / des AF.HL.DE.BC 

CP 4:CCP:RET C 
LD HL.Utst:ADD h.k 
ADD A ( L：LD L.A 
LD E»(HL):INC HL 
LD D.(HL):INC HL 
LD A V (HL):1NC HL 
LD H,(NL):LD L t A:SUB HL.DE 
PUSH AF 

LD BC.HL:ADD HL，DE 
POP AP 

EX DE,HL:RCT C 
SCFrRET Z 
OR k：m 

5 拿拿拿 M 嫌拿摩 

EHDCHI ; テキストエリアのエンドチェック 
; in (ntitst) t (ntxt«nd) 

: des AF.HL.BC 
: floi C=ttxt area over 

LD BC.(ntstftt) 

PUSH BC 

LD HL^ntxtend) 

SUB HL t BC:LD BC.HL 
POP HL:10K A:CPIR 
DEC HL:L0 (tndadr).HL:RET Z 
SCFrRET 

;拿拿韋窜寧拿拿蘑 

LIHADR : ライン No のアドレスを返す 
; in HL=lineno 

: out HLsline adress BC^linano 
;(Us AF 

PUSH DE:EX DE.HL 
LD HL,(ntxtst):LD BC .6 
IP DE:0 JR LINADR2 

LINADR1 LD A.(HL):IF A-0 JR LIMDR2+2 

INC HL:IP AO0DH JR LINADRl 
INC BC:IF DEC(DE)OI JR LINADRl 
LINADS2 FOP DC:RET 

LD (•ndadr) t HL:JR LINADR2 

LIHTRS ; ラインバッファにテキストを送る 
; in (lineadr),(linebf) 

: des AF.HL.DE.B 

LD DE.(lineadr):LD HL # (linabf) 

LD B,255 

LIHTRS1 LD A.(DH) 

IF A<28H JR LBFCLA1 
LD (HL) V A:INC DE:INC HL 
mi LIN 了 RSI:JR LBFCLA2 

; 拿窜窜拿拿拿拿拿 

LBPCLA ; ラインバヴファの初期化 
••in (linebf) 

: des HL»B 

LD HL»Oln»b():LD B.255 
LBFCLA1 LD (HL)." ":IHC HL 
mi LBFCLA1 
LBFCLA 2 LD (HL).eDH:RET 

; 拿电傘拿♦拿拿寧 

WRTLIH • テキスト書き込み 

; in (lineadr) v (tndadr) 

: des AP.HL.DE.BC.UL'.DE'.BC' 

; C=ERR0R 


ID A,(inpchk):IF A=0 RET 
WRTLIN 8 CALL SET0DH:LD HL.BC 
PUSH HL 

LD OE.(lineadr)：LD A.(DE) 
IF A<>0 JR NRTLIN1 
POP BC 

CALL VRTCHK:RET C 
CALL WRTLIN2 
XOR A:LD (DEM 
LD (endadr).DE:RET 


lint vrite end adrtts 


: n§v siz 翁： old size 


: new size < old size 


VRTLIH1 CALL LINSIZ 

SUB HL.BC:JR NZ.VRTLIN3 
FOP BC 

WRTLIH2 LO HL.(linebf):LD 0E V (lineadr) 
LDIRtOR A:RET 

WRTLIH3 JR NC.VRTLIH4 

ADD HL.DE:EX DE.HL 
PUSH HL 

LD EC t HL:LD HL.(endadr) 
SUB HL.BC:LD BC,HL:IHC BC 
POP HL:LDIR 
DEC DE:L0 (endadr).OE 
JR WRTLIH2-1 


LD BC # HL:CALL WRTCHK 

IF C THEN POP BC:RET 

LD BC,(endadr):ADD HL.BC ;n««« size > old size 


35A6 £5 
35A7 60 
35AC 44 
35AF D1 
35B8 2A 
3587 ED 
35BB 
35BB E5 
35BD CD 
3SC3 D1 
35C6 
35C6 
35C6 
35C6 
35C6 
35C6 ei 
35C91A 
35CC FE 
3501 C9 
3501 
3501 
3501 
3501 
3501 
3501 61 
3507 09 
3509 2B 
35DF 68 
3SE4 13 
35E5 23 
35E9 
35E9 
35E9 
35E9 
35E91A 
35ED 13 
35F8 
35F6 
35PI FE 
35P3 FE 
35F6 06 
35F9 
35F9 
35F9 
35F9 
35F9 E5 
35FB 21 

3612 B1 

3613 Cl 
3616 
3606 
3696 
3616 
3616 

3686 2 羼 
3610 13 
3612 
3612 
3612 
3612 
3612 
3612 CD 
3615 7C 
361A C9 
361B 21 
361P CD 
3623 29 

3628 29 

3629 DS 
362E 69 
3632 
3632 
3632 
3632 
3632 
3632 FE 
3635 PE 
3639 
3639 
3639 
3639 
3639 
3639 23 
363F 
363P 81 
3643 12 
364511 
3648 7B 
364E 02 
3658 7D 
3654 21 

3657 B7 

3658 3E 
365E 0B 

3661 C5 

3662 3E 
3666 EB 
366A 29 
366C 29 
366E 31 
3671 B7 
3676 69 
367913 
3670 EB 
367E Cl 
3680 
3688 
3680 2 爲 

3687 20 

3688 CD 
366E 11 
3694 CD 
3699 
3699 
3699 
3699 B7 
3690 CD 
369F AP 
36A6 C3 
36 爲 9 
36A9 
36A9 
36A9 
36A9 3A 
36AC B7 
36B0 
36B0 
36B6 
36B8 
3686 
3686 
3688 E5 
36B3 3A 
36B6 3D 
36BD 6 B 
36BE 3D 
3605 03 
3SC6 CD 
36C9 Cl 
36CD 
36CD 


69 B7 ED 
4D 03 

65 38 ED 
B818 B7 

D5 

06 36 AF 
El C9 


52 

53 65 38 

ED 42 


417 

418 


421 

422 


PUSH HL 

LD HL.BC:SUB HL.DE 
LD BC.HL:1HC BC 
POP DE 

LD HL.(endadr):LD (endadr).DE 
LDDR:JR WRTLIR2-1 


423 WRTCHK PUSH HU PUSH DE 


ee 88 
6313 
0D 26 F9 


ee ei 2 h it 38 


CALL LEFBYT:10R A:SBC HL.BC 
POP DE:POP HL:RET 

ラインサイズを BC に返す 

: in DE=line adress /des AF.DE 
; out 8 C-lina size 

LD BC.0 

LD A f (DE):INC BC:INC DE 
IF AO0DH JR LINS1ZO 


7E FE 29 
78 B129 


21 66 
F5 


FE 26 Cl 
16 F9 


61 D 8 
7B DB 
28 C9 


C5 

Cl31 811 


436 SET 8 DH : ラインバッファの文字列の最播に 0DH を害きこむ 

437 ; out BC-line size 

438 : des AF.HL.BC 

439 

449 LD BC.li0H:LD HL.(linebf) 

441 ADD HL V BC:DEC HL 

442 SET0DH1 DEC HL:LD A,(HL):IF AO H M JR SET0DH2 

443 IF DEC(BC )<>8 JR SE78DH1 

444 INC BC 

445 SET0DH? INC HL:LD (HL).0DH:KE7 

446 :••••••" 

447 SPSRIP :スペーススキップ 

448 ; in DE=ASCII adress /d«s AF 

449 

456 LD A.(DE):IF AO" - RET 

451 INC DE:JR SPSKIP 

452 : 拿 

453 UPPER : 小文字を大文字に*嬝 

454 IF W RET 

455 IF RET 

456 SOB 29H:RET 


458 mi ? 


スキッブするキャラクターか？ 
; in Acc=ch«ck chr. 


PUSH HL:PUSH BC 
LD HL.skipchr：LD BC.24:CPIS 


463 POP BC:P0P HL:KET 

464 : 

465 LEFBYT :残りのバイト K 


69 30 ED 
B7 ED 52 


5B 85 36 
C9 


IB 2S 

B5 28 612 

ee ee ia 

32 36 D 8 
44 4D 
29 99 
36 4F 16 
1318 EC 


39 D 8 
3A 3P C9 


7C B5 28 012B 

IP 31 kf 

0B 

6A 99 CD 6136 
C 6 30 
6 B 

B4 20 PI 
69 31 
ED 42 CB 

21 92 

18 P3 


EB 

EB 

ei23 
ED 42 36 Q 
18 01 
3D 20 ED 

C9 


2F 31 2E ee CD IE 

8 E 36 C316 38 
CB 31 CD E5IF 
C4IP 18 66 


; out H い left byte /del AF.DE 
;flog C=error 

LD HL,(ntxtend):LD DE.(endadr) 
INC DE:SUB HL,DE:RET 

1 會遒アスキー -16 逢変捜 

: in DE-ASCII tdr /out HL=hh 
: des AF.DE,BC 

CALI 6ETNUM1 
IF HLOI THEM OEC HL 


466 

467 

468 

469 

470 

471;•••••« 

472 GETNUN 

473 

474 

475 

476 

477 

478 

479 QETNUH1 LD HL • き ： LD A,(DE) 

460 CALL CHKNUM:RET C 


482 

483 


ADD HL • 肌 ： LD BC.HL 

ADD HL.HL:ADD HL»HL:ADD HL t 8 C 

SUB "r：LD C • 具 : ID BJ 

ADD HL»BC:INC DE:JR GETHUKl 令 3 


485 

486 CHRNUN ;1 ❿邈アスキーチェック 

487 ; in Acc 

488 ; out floe C^Error 

489 

490 CP w e w :RBT C 

491 CP W 9 W +1:CCP:RBT 

492 : 

493 SEISU :16 違邈アスキー変擒 

494 ; in HL=bh /out DE=ASCII adr 

495 ; des AF.HL.BC 

496 

497 IP INC(HL)=I THEN DEC HL 

3C t naiarei5:ZOR A 
LD (BC).A:DEC BC 
501 SEISU1 LD 0E.1 •: CALL SEISU3 
562 LD A.E:ADD A,*T* 

593 LD (BC) t A：DEC BC 

504 LD A,L:0R H:JR NZ.SEISUl 

515 SEISU2 LD HL.naiare-1 

566 SUB HL.BC:RET Z 

5 黎 7 LD A,20H:LD (BC),A 

508 DEC BC:JR SEISU2 

569 SEISU3 PUSH BC 

LD A.16:LD BC.DE 
EX DE.HL:LD HL.I 


512 SEISM 

513 

514 

515 

516 

517 8EISU5 
516 


519 

520 : 


IP C THEM INC HL 
SUB HL.BC:JR NC.SEISU5 
ADD HL ， BC:JR SEISU5+1 
INC DE:0EC A:JR NZ.SEISU4 
EX DE.HL 
POP BC-.RET 

: メモリーオーバー*示 

LD HL t (scrnsiz):LD L.e：CALL HOC 


523 CALL MEM0VR1:JP PDATA 

524 HEN0VR1 LD DE.Beiovr:CALL INSX 

525 CALL iBELL:JR ERR0R1 

526 ; 


28 P 2 
33 29 
32 7139 : 
2120 


527 ERROR 

528 

529 

530 

531 ERROR! 

532 


:エラー表示 

IF A=0 JR HEM0VR1 

XOR A:ID (inkyiode).A:LD (cbrbf).A 
JP IFLGET 


05 C5 
7138 
28 65 CD 


533 :- 

534 INKEYSUB 

535 ••マクロ中なら IHKEYS へ 

536 : なければ 1 文字入力 

537 LD A.(Bcroflof) 

538 IF A=0 JF IFLGET 

539 

549 INKEYt ;out Acc:ASCII 

C 二 control key 

542 

543 

544 


OF 3618 
CD 3618 


PUSH HL:PUSH 0E:PUSH BC 
LD A.(inkyaode) 

DEC A:1F Z THEN CALL COPYGET:JR IKREYS1 
DEC A:IF Z THEM CALL DELGET : JR I 瓶 EYU 


44 37 

D1 El C9 


550 IHKEYSl POP BC:P0P DE:P0P HI:RET 


►ところで. 7 りの STUDIO X のタイトル横のイラストは，幻;になったらシャープが水 

屮でも使えるコンピュータを叫発して，令 |Kl の川に放流するということを伝えようとして マルチウィンド — エディゐ WINE D 147 

いるんですか。もしそれが本、なら，この場合のエサはなにを f . j * ければいいんでしよ。 

林 mi (16) 大阪府 


5678901234 -56J 89812345678911234567 fi 911234567891123456789 0123456789BI 2345678981234567898123456789 0123456789812345678981234567890123456789812345 
77777888 8888888 999999999900880000001111111111222222222233333333334444444444555555555566666666667777777777888 flflfi 8868999 Q- 99¢ 888886 
222222222222222222222222233333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333334444444444444444 


8426 

1A280D C9 
B B 7 E 3 


7E2D C9 
3dc8ca2336 FBF3 8D 
9E2D2B2t2B87le2e36 
2A FEFEeE 36 s 23eD?B 


B7ES 3A2C3I3I 
4 0 0 0 2 E c 
3 3 3 3 2 8 2 
c B c 2 7 B 2 
8 6 2 3 6 5 2 
DAAA4D19 
c 3228 EEC 


4 2 p 3 3 3 F D^d®?.9 
9 16 2 2 2 6 4 B pu c 
E1IQE6E 6541 
F 2065576 F4FE3B 


4DC8 
3844B13I 

673 4 E 6 
4B69EDAF22C9 
EC52AB7E12 3 


lePI 

06P728F9 

1 F D 6 3 8 
0 9 9 2b 1 
0 8 B D A 0 
3 2 2 0 7 3 
B737EB95 
E6BBF1C6 
5AAE3312 
D2772ID2 


D 6 A E 718 


s ： 


3e 

5P 

C8691AC9W5B 
B7M36D8392eEOs 
30355F6F353S65354230B7 


Si3«35e9 
65446SBBC936 
2A42B0SCDC165 


7FD15B28B37312S3C6ED lt Be 18 EB49EDEDE3W4D024B 
3ACDE5EDB7C1 S CDAFEOCDB7C12AED3919E544B7E1 1 B1844 30 ED 




THE SENTINEL 












; ノーマルキーモード表示 
; das HL.DE 

LD A.(ctrlkeep):IF A<>0 JR PCTRLK 
LD HL.(scrnsiz) 

LD L,23:CALL ILOC 
LD DE.nartal ■: JP IMSX 

; コントロールキーモード表示 
; des HL.DE 
LD HL.(scrnsix) 

LD L.23:CALL ILOC 
LD A.(ctrlkeep):LD 
IF A=e THEN LD H." M 
LD A,H:CALL IPRIN7 
LD DE,ctrli：JP IMSX 


: nnt paie LABEL 


36CD 

36CD 

36CD 2A 78 
3604 2B 22 
3638 ED 5B 
3600 18 18 
36DF 
36DF 
36DF 

36DF 2A 76 
36E3 22 76 
36E7 CD 94 
36ED 4F FE 
36P3 C3 67 
36P6 

36F6 CO D8 
36FD 2A 7C 
3782 23 22 
3716 B7 28 
3719 FE 45 
3710 7E 
37IE PE 4E 
3712 23 7E 
3714 FE 44 
3718 AF 32 
3710 18 26 
371E 79 FE 
3723 FE 40 
9727 U K 
372C 23 22 
3731 FE 21 
3734 FE A% 
3738 3E IB 
3730 7918 
3741 

3741 AF 32 
3744 

3744 3A 72 
3747 B7 20 
374A CD B5 
3740 CD Al 
3753 4F PE 
3758 U 74 
375E 3A 81 
3765 B7 3E 

3767 37 

3768 79 32 
376C F5 
3760 CD 79 

3771 FI C9 

3772 

3772 2181 
3777 19 7E 
377 羼 FE IB 
377E 2188 
37M 32 81 
376A B7 21 
3780 CD 8D 
3792 

3792 79 FE 

3797 PE 61 

3798 D6 4« 
37A8 

37AI 

37AI 

37A« 3A 2E 
37A4 3A 7E 
37A9 3k 32 
37AE 3A 2D 
3785 
37B5 
37B5 
3785 

3785 2k 32 
3789 3A 34 
37BE 65 6P 
37C3 2A 7E 
3708 CD 39 
37CF E5IP 
3701 
3701 
3701 
3701 

3701 2A 32 
37D5 U 34 
37DA 85 6P 
370F 2A 5D 
37E5 118A 
37EB 
37EB 
37EB 
37EB 

37BB 2 蠢 32 
37P219 3E 
37P5 85 6F 
37FA 1156 
3811 3A 31 
3867 IP 
3808 CD PI 
388P IP 
3819 
3816 
3611 
3816 
3811 

3816 CD 48 

3817 79 38 
3819 2A 2F 
381C 7D 06 
3823 il17 
3829 

3829 

3829 

3829 

3829 2A 2F : 
382C ID D6 
3 & 33 CD 86 
3837 CD 3F 
383 森 11 IA 
3841 
3840 
3840 
3846 

3848 ZA 2F 
3843 2E 61 
3848 3E 23 
3840 3* 31 

3854 IF 

3855 3E A5 
385A n 5C 

3861 IF 
3362 

3862 
3862 
3882 

3862 2k 2F 
3665 2£ 04 
38SA 1121 

3878 B7 20 
3876 C3 E5 

3879 


39 7C B5 28 6C 
78 38 
29 30 19 


31 23 
38 2B 

IF B7 28 53 

20 D2 65 37 

37 

IF FE IB 28IB 

30 7E 4P 
7C 39 

0F 

2811 

21 1C 

21 06 

72 31 

20 38 D3 

21 2C 

31 7E 4F 
7C 38 

38 C2 
28IB 

32 81 39 
13 

7130 


AC 

37 

37 CD 2121 
21 36 U 
39 B7 20 34 
30 FE IB 28 2D 


31 16 II 
4F 

21 E9 

31 BE 28 E3 

31 3A 74 31 
DA 

3818 B2 

41 38 OB 
3a CA 

4F 18 D2 


31 4P 

31 914F 
31 616F 
38 67 C3IE 29 


31 25 
30 D6 «E 
CO IE 21 

36 26 ee 

36116C 31 C3 


30 25 

39 06 17 
CD IE 21 

31 CD 39 36 
31 C3 E5IF 


30 HO 5B 34 36 
F6 

CD IE 21 

31 CD E5 IP 

38 C6 31 CD F4 


553 DELGET :デリートバッファからの入力 

554 

555 LD HL.(delpnt):IF HL=0 JR FLGET-4 

556 DEC HL:LD (dalpnD.HL 

557 LD DE.(d»lbf):ADD HL.DE 

558 JR C0PYGET1 

559 

566 COPYCET ; コビーバッファからの入力 

561 

562 LD HL.(copypnt):INC HI 

563 LD (copypnt).HL:DEC HL 

564 C0PYGET1 CALL IPEER:IF A=8 JR PLOBT-4 

565 LD C.A:IF A>=28H JP FLGETHO 

566 JP PLGETCO 

567 •• 拿 mm •♦寧 

568 MACRO CALL •0BTRY:IP A=1BH JR KNACR01 

569 ID HL,(Mcrpnt):lD A V (HL):LD C.A 

570 INC HL:LD (ucrpnt).HL 

571 IP A=S JR KNACR01 

572 IF AO*E w JR KNACR02 

573 LD A.(HL) 

574 IF AO w M- JR RHACR02 

575 INC HL:LD A f (HL) 

576 IF AO-D" JR RMACR02 

577 KNACR01 XOR A:LD (Bcroflof)^ 

578 JR PLGET 

579 KHACR02 LD A.C:IF A<28H JR MACRO 

586 IF AO-| H JH FLGBT1 

581 LD HL.(sacrpnt):LD A.(HL):LD C.A 

562 INC HL:LD (»acrpnt).HL 

583 IF A<2IH JR RKACRO 

584 IF JR PLGET1 

585 LD A.1BH:LD (chrbf).A 

586 LD A,C:JR PLCET1 
507 

566 XOR A:L0 (inkysode).A 

589 PLGET :キーボードからの入力 
591 LD A.(Bcrofloi) 

591 IP A<>8 JR RNACRO 

592 CALL PCURDAt 

593 CALL IHIEYCUR:CALL «PLGET 

594 FLGET1 LD C V A:IF A<2IH JR FLGET.c 

595 LD A.(ctrlk««p):IF AO0 JR PLOET.t 

596 ID A.(cbrbf) :IP A=1BH JR FLGET.i 

597 FL6E7N0 OR A:DB 3EH ;LD k.n : nonuil Uy 

598 FLGETCO SCP : control kiy 

599 LO A.C:LD (chrbf).A 

m PUSH AP 

611 CALL PNORNX 

612 POP AF:RET 

613 : 

6M PLGBT.c LD HL,ktyconfl:LD B 9 I 

615 ADO HL.BC:LD A.(HL):L0 C.A 

686 IP AOIBH JR FLGETCO 

817 LD HL,chrbf:IF A S (HL) JR PLGETCO 

618 LD (chrbf),A:LD A.(ctrlkMp) 

689 IP AOS JR PLGETCO 

61$ CALL PCTRLK:JS PLGET 

611 : 

612 PIGET.e LD A.C:IP A<4§H JR PLGET.c 


613 

614 

615 

616 

617 INKEYCUR : 
616 


IF A>*6«H JR FL6ETN0 
SUB 4IR:LD C,A:JR FL6ET.C 


文字入力畤の力一*ソルセット 
LD A.(Loff»):L0 C.A 
LD A.(poinUr):SUB C:LD C»A 
LD A,(lBttrt):A00 A,C:LD L.A 
LD A.(Lcury):LD H f A:JP ILOC 


622 : 韋聿拿拿拿拿拿拿拿拿♦•♦拿窜拿拿拿拿韋拿 

623 PCURDAT ; 力ーソルデータ 

624 : d«s HL.DE.BC 


LD HL,(xttart):DEC H 

LD A v (stis«):S0B 14 

ADD A.L:LD L.A:CALL ILOC 

LD HL• (pointer〉：LD HJ 

CALL seisu：ld DE v nmm2：JP IMSX 


631 

632 PLIMDAT : 行 No データ 
: des HL.DE.BC 


634 

635 


643 

644 

645 

646 

647 
64B 


LD HL v (xstart):DEC H 
LO A,(xtize):SUB 7 
ADD 奥 ， L:LD L.A:CALL ILOC 
LD HU(lin«no):CALL SEISU 
LD DE,naiare:JP IMSX 


ウインドゥ No 表示 
: d«s HL.DE 


[size) 


IF % 3E 3E C3 F4 649 


650 

651;«•••< 
652 POATA 


38 CO 62 36 CD 655 
S56 


8A 6P CD IE 21 
31 CD E5IF 


657 
858 

659 : momm 
669 PIEFDAT ; 
661 
662 
663 


LO HL,(xstart):LD DE.(xsl 2 
ADD HL.DE:ID A.0-11 
ADD A.L:LD L.A:CALL ILOC 
LD DE.vindi:CALL MSI 
LD A.(«lndno):ADD A,T:CALL IPRIMT 

CALL IPRNTS:LD ”： JP IPRIHT 


各デ_夕表示 
: des HL.DE,BC 

CALL PT1TDAT:CALL FTYPOATrCALl PHORKK 
LD HL,(tcrnsiz) 

LD A V L:SUB II:LD M：CALl ILOC 
LD DE.dat&2i:CALL IMSX 


残りバイト败データ 
; des HL.DE.BC 


CD IE 28 
CD F4IF 
30 C 6 30 CD F4 


38 

CO IE 21 
313A 73 3# 
•31135 31 
IF 


LD A.L:SUB 8 :LD L • 具 ： CALL ILOC 
CALL LEFBYT:RET C 
CALL SBISUe 
LD DE.naaar •: JP IMSX 

• t 拿％奉拿拿韋 

PTXTDAT : 84 在のウインドウ/テキスト No データ 
; des HL.DE.BC 

LD HL.(scrnsir) 

LD L. 6 :CALL ILOC 

LD A.T:CALL SPRINT 

LD A.(vindno):ADD A. M l H :CAtL IPRIMT 


676 

677 


681 

682 


667 : 


LD A. M *-：CALL IPRIHT 
LD A.(novtxt):ADD 


タイプモードデータ 
;des HL.DE 

LD HL.(scrnstz) 

LD L.4：CALL ILOC 
LD DE.int«rti:LD A.(insiodt) 
IF THEN LD DE.ovtrtpa 
JP IHSX 


148 Oh ! X 1988.8. 


3879 

3879 

3879 3A 74 30 B7 28 0E 
387F 2A 2F 36 

3682 2E 17 CD IE 21 
38871149 31 C3 E5IF 
3860 

3880 
388D 

3880 2K 2F 30 

3899 2E 17 CD 1C 21 

3895 3A 74 39 26 2A 

389A B7 26 62 26 28 

389F 7C CD F4IP 

38A31159 31 C3 ES IF 

38A9 

38A9 

38A9 


968¢ 
MM 
Mil 
0611 
eeee 
me 
38A9 
38A9 
38A9 
38A9 
36A9 
38A9 
38A9 
38A9 
38A9 AF 


WIHER Pali 2 

< scraen editer > 
Copyright in 1988 by 01 


OFFSET ukadr-prograi 
m PAGE2 


If : •••••••••••拿 

1 行入力 


11 6ETL ;1 f 


; in/out notinf /dts all 
;itt line buff 
;at break (lin»bf):lBH 


38AA 32 7F 31 32 80 30 

17 

LD (inpchk).A:LD (cbrbf).A 



36BI CD A9 34 



18 

CALL TABPRT 



38B3 ED 5B 19 39 CD 13 4C 

19 6ETL1 

LD DE.(linebf):CALL LNPRINT 



38BA CD Bl 36 38 

IB 


29 6ETL2 

CALL mm：JB C.8RLI0 



38BF PE 21 38 F7 



21 

IF A<20H JR GETL2 



38C3 88 

38C4 3A 73 31 



22 

23 

EX AP,AF' 

LD Min»od 着 ) 



38C7 B7 C4 4C 3C 



24 

IF A<>9 CALL IHSCHR 



38CB CD C4 39 



25 

CALL PINADR 



38CE 88 



26 

EX AF,AF* 



38CF 77 CD D2 39 



27 

LD (HL).A:CALL CURR 



3803 3E 1132 7F 

31 


28 

LD A.1:LD (inpcbk).A 

JR 6ETL1 



3808 IS D9 



29 



38DA 

38DA FI ID 21 IF 



38 

31 GCTLID 

IF A<>IDH JR 8ETL1B 



38DE AF 32 7E 31 

32 

2E 36 

32 

XOR A:LD (pointer).A:LD (し offs).A 

38ES 3C 32 7F 31 

C9 


33 

INC A:LD (inpchk).A:RET 



3BEA C3 13 4C 



34 

JP IMPRINT 



38ED 



35 

； 



38ED PE IB 21 16 



36 6CTL1B 

IP AOIBH JR GETLCT : break 



38P112 



37 

LD (DE).A 



38F2 AP 32 7P 31 



38 

咖鼻 : LD (inpchk).A 



38F6 C9 



39 

RET 



36F7 



46 




38P7 CD II 39 Cl 



41 GETLCT 

CALL CTRLSEL:SE7 NZ 



38FB CD 09 3918 

B3 


42 

CALL CTRLJP:JR 6ETL1 



3909 



43 : 搴瘳拿拿拿寧， 




39M 



44 CTRLSEL 

•• 1 行入力畤に有効な 



3911 



45 

；コントロールキーを通択 



3919 



46 

••in Acc=ctrl kty 

5 out flof 有効 
: des RL,BC 



39M 

3918 



47 

48 



3916 



49 




3911 2117 39 



51 

LO HL,ctrl 8 «l 



3913 1124 II 



51 

LD BC.ctrljp-ctrlstl 



3918 ED Bl C9 



52 

CPIR:RET 



3919 

3919 



53 : 

54 CTRLJP 

••コントロールキージャンプ実行 



3919 



55 

: in Acc=ctrl key 



3919 



56 

;des all 



3909 



57 




3919 8 ? 21 SB 39 



58 

ADO M:LD HL.ctrlift 



3900 85 6 P 30 61 

24 


59 

ADD A.L:LD L.A:IP C THEN INC H 


9912 7E 23 66 



6¢ 

LD A.(HL):INC Hl:LD H t (HL) 



3915 6 P E9 



61 

LD L.A:JP (HL) 



3917 



62 •• 




3917 $162 



63 ctrlttl 

DB I1H.62H 



3919 M 16 17 



64 

DB 64H, 86H.67H 



3910 18 19 IB 



65 

DB 08HJ9H 



391P IF 



66 

DB IFH 



3921 11 1113 



67 

DB im 13H 



392316 



68 

DB 16H 



3924 1C ID 



69 

DB 1CH ， 1DH 



3926 21 



n 

DB 2IH 



3927 2A 2B 



71 

DB 2AH.2BH 



3929 2C 2 K 2 F 



72 

DB 2CH, 2EH.2FH 

DB 39H r 31H f 32H.33H 



392C 31 3132 33 



73 



3936 34 35 36 37 



74 

DB 34H.35H v 3SH t 37H 



3934 38 39 3A 3B 



75 

DB 36H.39H.3AH.3BH 



3936 3C 3E 3F 



76 

DB 3CH, 3EH.3FH 



3938 



77 

； 



393B C3 39 4C 3A A7 

3h BF 

7fl ctrljp 

DV N0M0P:W0RDL:BAKSP:PA6D : WH,I1H.82H.83H : _ 義 1 

3942 3D 

3943 D2 39 B7 3C 

22 

3A B 6 

79 

W CURR : CUHU : V0RDR:DCL 

;MH 

05H.I6H.I7H : 

394A 3A 

394B BB 39 73 3A 
3952 3d 

B7 

3D C7 

88 

DV MO 抑 T:TABU : DRETR:DBFCL 

; 88 H 

99H.6AH.6BH : 

3953 AF 3E 713C 98 3E 41 

81 

W DELCR:CR :IHSCR:IHSMD 

: BCH 

9DH.«EH^FH : 

395A 3C 

3958 



82 




3958 Cl3B 8 B 3A EB 3D 68 

83 

DV OELBP:TABST:PAGU : CURL 

;10H 

11H.12H.13H : 

3962 3A 







3963 8 F 3D 6 E 3D El 3A 2F 

84 

DW DSPL : DSPR : CAFTRtDSPU 

;14H 

15H.1SH.17H ; 

396A 3D 







396B 76 3C 49 3E FP 3C C3 

85 

DV CURD : CLINE:DSPD : NONOP 

;18H 

19H.1AH.1BH : 

3972 39 

3973 02 39 18 3A 
397A 3C 

B7 

3C 78 

86 

DV CURR : CURL : CURU : CURD 

;1CH 

1DH.1EH.1FH : 

3978 



67 




397B 66 3C FB 3F 
3982 48 

34 

40 5A 

88 

DV CTKeP:JPVIN:WINNX:VINKV 

； 20H 

21H f 22H t 23H : 

3983 90 46 E7 3E 
398A 3P 

62 

3F 09 

89 

DV VINSZ:HARK : CUTXT:GETXT 

;24H 

25H.26H.27H : 

398B 9E 3F C3 39 
3992 3B 

E 6 

3B E3 

9¢ 

OV PUTXT:H0H0P:MACR6:MACR5 

;28H 

29H.2AH.2BH : 

3993 DA 3B C3 39 
399 爲 3B 

DD 

3B ES 

91 

DV MACR2:NOHOP:HACH3:MACR4 

;2CH 


399B 



92 




399B 34 3B A 8 3B 
39A2 3B 

H 

3B AD 

93 

M CPYDS:CPYP1:CPYP2:CPYP3 

;36H 

31H.32H.33H : 

39A3 73 3B 75 3B 
39 烏 A 3B 

78 

3B 81 

94 

W CPYC1:CPYC2:CPYC3:CPYC1 

;34H 

35H.36H.37H : 

39AB 63 3B 66 3B 
39B? 3B 

D7 

3B D4 

95 

DV CPYG2:CPYG3:MACR1:MACR8 

； 38H 

39H,3AH,3BH ; 

39B3 E9 3B C3 39 
39BA 3B 

EC 

3B EP 

96 

DW HACR7:NONOP:NACK8:HACR9 

： 3CH 

3DH.3EH.3FH ; 

39B8 



97 




39BB 







39BB 



99 HOWRT 

; 人カキャンセル 



39BB AF 32 7F 30 

32 

86 30 

106 

XOR 典 : LD (inpchk).A:LD (chrbf).A 



39C2 El 

39C3 

39C3 

39C3 C9 

3904 

39C4 


:何もしない 
RET 


PIHADR : ポインターアドレスを返す 


► 7 月号の STUDID X に 「ソ ー サリ アンである〜（以下繰り返し） j が載ったといラこと 
は，当然，「イース II である〜 J も钱るということで，であれば「ハイドライド3である 〜 j 
というのもあり得るのである。というわけで（どこがぢゃ），私も載りたい。 

宮崎和也（17> 佐寶県 


88899e919293949596979899 s ele2 e3 e4 85 
666666666666777777 



















3904 
3904 3A 
39CA F5 
39CB 85 
39C0 36 
3909 FI 

3901 C9 

3902 
3902 
3902 3A 
3906 FE 
390C 32 
39E ぎ 
39E6 
39E8 CD 
39E5 7C 
39E7 B9 
39EA 78 
39EE 16 
39F2 78 
39F615 
39F8 C3 
39FB 
39FB 3A 
39FP 3A 
3A03 3A 
3A8B 
3A88 
3AI8 3A 
3A6D 3D 
3AI1 
3A11 
MU CD 
3A16 7C 
3A1A 78 
3 炱 IE 16 
3A22 
3A22 
3A22 CD 
3A26 7E 
3A2A CD 
3A2P 23 
3 貪 33 73 
3A37 7E 
3A3C CD 
3A4123 
3A45 79 
3M9 C3 
3MC 
3MC 
3MC CO 
3A52 2B 
3A56 7E 
3A58 CD 
3A5D ID 
3ASI 18 
3A62 7E 
3164 CO 
3A69 ID 
3A6C 79 
3A70 C3 
3A73 
3A73 

3 爲 73 CD 
3A76 23 
3 真 79 FE 
3A8S FE 
3 烏 84 79 
3AS8 C3 
3A8B 
3A8B 
3A8B CD 
3A8E 7£ 
3A91 B9 
3A96 71 
3A9A 2A 
3AA6 4F 
3AA3 30 
3AA6 C9 
3AA7 


7E 39 2k 10 30 


6F 

8124 


7H 39 3C 
FE 38 62 3E FE 
7E 39 D9 


9$ 

38 08 
C6 8A 47 
01 18 F3 
32 21 31 
C6 

A9 34 

34 31 4F 

2E 30 47 
7E 3¢ 67 C9 


7E 31 B7 CB 
32 7E 30 


FB 3916 91 
B8 38 Dd 
D6 M 47 
0618 F4 


C4 39 4F 
FE ID C8 
F9 35 28 14 
0C 18 F3 
32 7E 31 
FE 6D 28 ID 
F9 35 26 14 
•C 18 F2 
32 7E 39 
Et 39 


C4 39 4F B7 C8 
•D 2816 
2B 

F9 35 21 IS 
21 FS 

0A 

21 

P9 35 28 03 
21 P6 
32 IE 31 
113A 


9A 3A 
IC 7E 

8D 28 83 8D 18 84 

21 2« F2 
32 7E 31 
El 39 


9A 3A 
9£ 2B 

21 62 0E 2D 
C3 A9 34 
0E 30 3A 7E 36 
85 6F 

0124 


112 

113 


; out HL-pointer adrtss A=pointer 
LD A t (pointer):LD HL.(linebf) 

PUSH AP 

ADD A.L:LD L # A 
IP C THEN INC H 
POP AF 
RET 


114 ; - 

115 CURR ;1 文字右 

116 LD A.(pointfr):l)IC A 

117 IP A>=254 THEM LO A,254 

118 LD (pointer),A:RHT MC 

119 ; - 

126 OFFSTR ; 右移動 W のオフセット 

121 CALL 0FFSTR3:LD D.l 

122 0FFSTR1 LD A.H:SUB B 

123 IF A<C JR 0FFSTR2 

LD A.BiADD A.16:LD B.A 
LD D.9:JR 0FFSTR1 

A v B:LO (Loffs).A 
IP DEC(0)=8 RET 
JP TABPRT 

A.(i5iz«):LD C.A 
LD A.(l.off3):LD B.A 
LO A.(point«r):lD H.A:RE7 


125 

126 0FFSTR2 LD 

127 
123 
129 

131 0FPSTR3 LD 


3AA7 2k li 30 
3AAC 3D 32 7E 

3AB8 

3AB0 

SABI CD C4 39 
3AB7 4F 3E FE 
3ABB 4F 86 89 
3ABE EB 
3ABF 2A 78 38 
3AC31A CD 10 
3AC7 23 22 78 
3ACB AF CD ID 
3ACF 62 6B 23 
3AD2 6C ID 28 
3AD8 2B 
3AD9 36 20 
3ADB 3C 3? 7F 
3A0P C9 
3AEe 
3AE0 

3AE6 CD 68 3B 
3AE4 3A 7E 30 
3AE9 9103 
3AEB 3C 47 
3AED 2A 78 36 
3AF11A CD ID 
3AF5 3E 2§ 12 
3AF818 2310 
3AFC 22 78 30 
3AFF AF CD ID 
3B03 3C 32 7F 
3807 C9 
3Be8 

3B08 06 FE 11 

3860 2A 10 30 

3B121A PE 20 

3B16 IB 10 F9 

3B191A FE 21 

3B1D 

3BID 

3B1D 

3B1D D5 

3B1E 08 3A 2B 

3B22 A4 67 

3B24 B5 29 91 

3B2S EB CD CD 

3B2C 19 

3B2D 08 CD 9A 

3B31 EB 

3832 D1 C9 

3B34 

3B34 

3B34 2A 2F 30 
3B3A D6 6C 47 
M ^ 

3M3 CS » E5 
3B46 CD IE 26 
3B4A CD 94IF 
3B4E FE 29 30 
3B55 CD F4IF 


FE FE 28 22 
91 


133 

134 CURL ; l 文字 左 

135 LD A.(pointer):IF A=0 RET 

136 DEC A:LD (pointer),A 

137 :- 

13B OFFSTL ••左移動畤のオフセット 
139 CALL 0FFSTR3:LD 0.1 

148 0FFSTL1 LD M:IF A> 二 B JR 0FFSTR2 

141 LO A,B:SUB 1 •: LD B t A 

142 LD D ••: JR OFFSTL 1 

143 ; - 

144 WORDR ;] 单絡右 

145 CALL PINADR:LD C.A 

146 V0RDR1 LD A.(HL):IP 爲 MM RET 

147 CALL ?SRIP:JR Z.V0RDR2 

148 INC HL:INC C:JR V0RDR1 

149 V0RDR2 LD A,C:LD (pointer).A 

151 LD A.(HL):IF A=IDH JR V0RDR344 

151 CALL ?SKIP:JR NZ.V0RDR3 

152 INC HL:INC C:JR V0RDR2M 

153 V0RDR3 LD A.C:LD (poinUr).A 

154 JP OPPSTR 

155 ; - 

156 WORDl : 1 単 « 左 

157 CALL PINADR:LD C,A:IF A=8 RET 

158 DEC HL:IF DEC(C)=6 JR V0RDL3 

159 V0RDL1 LD A.(HL):DEC HL 

168 CALL ?SKIP:JR NZ ( V0RDL2 

161 IF DEC(C)<>a JR V0RDL1 

162 JR V0RDL3 

163 V0RDL2 LD A,(HL):DEC HL 

164 CALL ?SKIP:JS Z.V0RDL3 

165 IP DEC(C)<>« JR V0RDL2 
1S6 W0RDL3 LD A.C:LD (pointer),A 

167 JP OFFSTL 

168 :- 

169 TABU ; タブ出力 

17B CALL TABUST1 

171 TABUl INC HL:INC C:LD A,(HL) 

172 IF A-6DH THEN DEC C:JR TABU2 

173 IP AO* •♦- JR TABU1 

174 TABU2 LD A,C:LD (pointar).A 

175 JP OFFSTR 

176 ; - 

177 TABS! ••タブセット 

176 CALL TABUSTl 

179 LD MHL):LD C. w r 

189 IF A=C THEN LD 

181 LD (HL),C:JP TABPRT 

182 TABUSTl LO HL,(tabadr):LD A.(pointer) 

183 LD C.A:ADD A.L:LD L.A 

184 IP C THEM INC H 

185 RET 

187 BARSP : カーソルの左 1 文字を 

168 LD A,(pointer):IP A=l RET 

189 DEC A:LD (pointer).A 

191 DEL : カーソル上の 1 文字を削餘 

192 CALL PINADR:IF A^254 JR DELI 

193 LD C,A:LD A t 254:SUB C 

194 LD C,A:LD B.6 

195 EX DE.HL 

196 LD HL.(delpnt):IHC HL 

197 LD A.(DE):CALL DELPUSH 

198 INC HL:LD (delpnt).HL 

199 XOR A:CALL DELPUSH 

296 LD HL.DE:INC HL 

211 IF C<>« THEM LDIR 

282 DEC HL 

213 DELI LD (HL), W H 

INC A:LD (inpchk).A 


RET 


215 
266 

267 CAFTR ; 力_ソル以後を刖除 

288 CALL CAFTR2:RET Z 

289 LD A,(pointer):LD C,A:LD A,B 

216 SUB C:RET C 

211 INC A:LD B»A 

212 LD HL.(delpnt):INC HL 

213 CAFTR1 LO A.(DE):CALL DELPUSH 

214 LD A.” ”： LD (DE),A 

215 DEC DE:INC HLiDJHZ CAFTR1 

216 LD (dtlpnt).HL 

217 XOR A:CALL DELPUSH 

218 INC A:LD (inpcbk).A 

219 RET 


221 CAFTR2 LD B.254:LD DE.254 

222 LD HL.(linebf):ADD HL.DE:EX DE.HL 

223 CAFTR3 LD A.(DE):IF A く 〉”- RET 

224 DEC 0E:DJHZ CAFTR3 

225 LD A.(DE):CP M H :RET 

226 

227 DELPUSH :デリートバッファに 

228 ; Acc を M む 

229 PUSH DE 

230 EX AF,AF 9 :iD A.Cdalask) 

231 AND H:LD H.A 

232 OR L.IF Z THEN IHC L 
EX DE.HL:CALL DBFCL1 


234 

235 


EX AF.AF'iCALL 9P0KE 
EX DE.HL 
POP DE:RET 


239 : コヒーバづフ r 8 示 

249 CPYOS LD HL.(scrnsiz):LD A.L：LD M 

241 SUB 1?:LD B.A:LD C.3:LD DE.(copybf) 

242 CPYDS1 PUSH BC:PUSH DE:PUSH HL 

243 CALL «L0C:EX DE.HL 

244 CPYDS2 CALL «PEEIC:INC HL 

245 IF A<29H THEN ID H :DEC HL 

246 CALL «PRINT:DJNZ CPYDS2 


3B5A HI D1 
3B5D 14 CD 
3B61 PE 20 
3B68 CD IE 
3B6F FB 
3B70 C319 
3B73 
3B73 
3B73 
3B73 

3B73 AF 01 
3875 3E 01 
3B78 3E 02 
3B7D AF C3 
3B81 
3881 

3881 AF 61 
3B83 3E 61 
3B86 3E 12 
3B8B 06 FE 
3B80 CD 94 
3B90 B7 28 
3896 C9 
3B97 EB CD 
3B9C 1A CD 
3BA6 23 AF 
3BA5 C3 02 
3BA8 
3BA8 

3BA8 AF 01 
3BAA 3E il 
3BAD 3E 6? 
3BB2 3E 91 
3BB7 22 76 
3BBB 

3BBB ?A IE 
3BBF 67 C9 
3BC1 
3BC1 

3BC13E 02 
3BC6 C9 
3BC7 
3BC7 

3BC7 21 00 
3BCD 2A 29 
3BD4 
3BD4 

3BD4 3E 30 
3BD7 3E 31 
3BDA 3E 32 
3BDD 3E 33 
3BE9 3E 34 
3BE3 3E 35 
3BE6 3E 36 
3BE9 3E 37 
3BEC 3E 38 
3BEF 3E 39 
3BF1 

3BF132 48 
3BF4 3E 63 
3BFA E5 E5 
3BFC AF eO 
3BFF Cl 
3CM B7 ED 
3CI5 El D8 
3C98 7E B7 
3C8B 3E 4D 
3C1# 7E PE 
3C15 23 0B 
3C1A 7E FE 
3C1F 23 6B 
3C24 3A 48 
3C2A 3E 6D 
3C2C BE 23 
3C3I 22 7C 
3C33 3E 61 
3C38 AF 3A 
3C3C 32 86 
3C4I ee 
3C41 
3C41 

3C413A 73 
3046 32 73 
3C4C 
3C4C 

3C4C 3A 7E 
3C58 3E FE 
3C54 914F 
3C58 21 FE 
3C5C 7E FE 
3C66 54 5D 
3C66 
3C66 

3C66 3A 74 
3C6B 32 74 
3C71 
3C71 

3C71 AF 32 

3C78 

3C78 

3078 CD 48 
3C7E ED 5B 
3C85 CD 76 
3C8C 2A 5D 
3C93 ED 5B 
3C9A 36 06 
3C9D B7 ED 
3CA413 EO 
3CA9 ED 5B 
3CB9 ED 53 
3CB7 
3CB7 

3CB7 CD 48 
3CBD 2A 5D 
3CC3 2B 22 
3CC7 ED 5B 
3CCE ED 53 
3CD2 ED 5B 
3CD9 DO 
3C0A IB ED 
3CDF ED 5B 
3CE6 ED 53 
3CED CD de 
3CF0 E5 
3CF12A 67 
3CF7 38 04 
3CFD El C9 
3CFF 
3CFF 

3CFF CD 48 
： D85 ED SB 
3D0C CD 76 
3D13 ED 4B 
3D1A 6139 
3D1C 2A 50 
3022 30 0S 
3029 53 5F 
3D2C C3 AA 
3D2F 
JD2F 

302F CO 48 


Cl 

A9 36 

28 93 6D 26 DB 
28 CD Fi IF 16 

38 


CD BB 3B 
9A IF 


IF 

63 2316 F7 

M 39 EB 
9A IF 
CD 9A IP 
39 


CD BB 3B 
32 7136 
31 C9 


ee 22 76 38 
30 AF C3 9A IF 


247 POP HL:POP DE:POP BC 

248 INC D:CAIL IHREYSUB 

249 IF " THEM DEC C:JR HZ.CPY0S1 
258 CPYDS3 CALL «LOC:CALL iPRMTS:OJHZ CPYDS3^3 


JP PDATA 


コビー バヴフ 7 •クリア 


251 

252 


254 ; 

255 

256 CPYC1 XOR A : DB 01H 

257 CPYC2 LD A.eiH:DB 01H 

258 CPYC3 LD A.62H:CALL CPYP4 

259 XOR A:JP IPOKE 
266 : 


261 : 


コビーバッファ人力 


262 CPYC1 XOR A :0B dlH 

263 CPYG2 LD A,81H:DB 81H 

264 CPYG3 LD A.62H:CALL CPYP4 

265 LD B.2S4 
286 CPYC4 CALL IPEEK 

267 IF A<>0 THEH IKC UL:DJNZ CPY64 

268 RET HZ 

269 EX DE,HL:CALL PINADR:EX DE.HL 

278 LD A.(DE):CALL IPOKE 

INC HL:XOR A:CILL IPOKE 
JP CURR 


271 

272 

273 ; 

274 :コビーバッファ出力 


275 CPYP1 

276 CPYP2 

277 CPYP3 


: DB 01H 
LD A.81H:DB 81H 
LD A.e2H：CALL CPYP4 

LD A.l : LD (inkyiod8).A 
LD (copypnt),HL:RET 

LD HL'.(copybf):ADD A.H 
LD H,A:RET 


284 DELBP :デリ胃トバッファ出力 

285 LD A ( 2:LD (inkyaode).A 

286 RET 


CD CC 34 D8 
B1 


C6 

C8 

ED B1 ce 
43 20 F6 
78 B1 C8 
52 26 EC 
78 B1 C8 
3C BE 21 El 

26 FC 

38 

32 72 38 

74 30 
30 C9 


38 EE «1 
38 C3 62 38 


36 4F 
B9 C8 

06 ee 
ee 19 
26 C0 

2B ED B8 C9 


7E 30 32 2E 30 


35 DA 88 36 
5F 381A B7 C8 
34 ED 53 5F 30 
38 23 22 5D 36 
6136 ED 4B 35 

52 B7 ED 42 D8 

53 6138 

63 36 CD 76 34 
63 30 C3 AA 33 


35 DA 80 36 
30 7C B5 C8 
5D 36 

5F 30 CD ED 3C 
5F 30 

6138 B7 ED 52 

53 6130 
63 30 CD ED 3C 
63 30 C3 AA 33 


35 DA 80 36 
63 361A B7 C8 
34 ED 53 63 30 
6139 13 ED 43 


288 DBFCL ••デリートバッファクリア 

289 LD HL,8:LD (delpnt).HL 

290 DBFCL1 LD HL.(dtlbf):IOR 奥 : JP IPOKE 

292 :マクロ 実行 

DB 01H 
T DB 81H 
"2” DB 01H 
H r DB 01H 
丫 DB 01H 
"5 - DB 01H 
T DB 01H 
DB 61H 

iCR8 LD A. W 8 M DB 01H 

362 NACR9 LD A."9 W 

363 


307 


311 

312 MACRO 


LD (MACRNO).A 
LD A.3:CALL TEXTDAT:RET C 
PUSH HL:PUSH HL 
XOR A:CPIR 
POP BC 

SUB HL.BC:LD BC.HL 
POP HL:RET C:RET Z 
LD A,(HL):IF A=0 RET 
l"M”:CPIR:RET HZ 
LD A,(HL):IF AO H C H JR MACRO 

314 INC HL:IF DEC(BC)=6 RET 

315 LD A,(HL):IP A く〉 - R” JR MACRO 

316 INC HL:IF DEC(BC)=0 RET 

317 ID A f (HACRNO):lF AO(HL) JR MACRO 

318 LD A.9DH 

319 HACROl CP (HL):UIC HL:JR NZ.NACROl 

326 LD (■acrpnt).HL 

321 LD A,1:LD (_crofUg),A 

322 XOR A:LD A.(ctrlkeep) 

323 LD (cbrbf).A:RET 

324 HACRNO DB 6 

325 :- 

326 IHSMD •• インサート/オーバーライトモード切換え 

327 LD A.(insBode):XOR 1 

328 LD (insiode),A:JP PTYPDA7 

329 : 

338 INSCHR ••キヤラクターインサート 

331 LD A,(pointer):LD C.A 

332 LD A.254:IF A=C RET 

333 SUB C:LD C,A:LD B,8 

334 LD HL.254:ADD HL，DE 

335 LD A,(HL):IF AO M H RET 

LD DE.HL:DEC HL:IDDR:RET 


337 

338 CTKEP ••コントロールキー切換え 

339 LD A,(ctrlkeep):XOR 1 

340 LD (ctrlkeep),A:JP PNORHR 

341; 电窣窣拿 46 拿拿拿ま窣寧命拿，拿 * ««« 拿 《 拿拿拿窣寧 9¢* 

342 CR ••キャリッジリターン 

XOR A:LD (point«r).A:L0 (l.offs).A 


344 :- 

345 CURD 


352 

353 

354 

355 ;…… 

356 CURU 

357 

358 

359 


；1文字 T 

CALL WRTLIH:JP C.MEHOVR 
LD DE.(lineadr):LD A.(DE):IF A=0 RET 
CALL HXTLIH:LD (lineadrJ.DE 
LD HL,(lineno):INC HL:LD (lineno).HL 
LD DE.(dtopno)：LD BC.(ysize):LD B.B 

SUB HL.DE:SUB HL.BC:RET C 
INC DE:LD (dtopno).OE 
LD DE.(dtopadr):CAU NXTLIN 
LD (dtopadr),DE:JP TXTFRT 

;1 文字上 

CALL WRTLIHrJP C.MENOVR 
LD HL.(lineno):IF HL=8 RET 
DEC Hl:LD (linano).HL 

LD DE,(lineadr):CALL CURU1:LD (lineadr).DE 

LD DE.(dtopno):SUB HL.DE:RET HC 

DEC DE:LD (dtcpno).DE 
LD DE.(dtopadr):CALL CUR01 
LD (dtopadr).DE:JP TXTPRT 
CALL DNXTLIN 
PUSH HL 

LD HL.(ntxtst):SUB HL.DE 
IF HC THEM LD DE.(ntxtst) 

POP HL:RET 


1 行下表示 

CALL WRTLIH-.JP C.MEMOVR 
LO OE.(dtopadr):LD A.(DE):IF A=0 RET 
CALL NXTLIN:LD (diopadn.DE 
LD BC.(dtopno):lNC BC:LD (dtopno).EC 

LD HL.(lineno):SUB HL.BC 

IF r. THEN LD Hmeno).BC-.LD (lineadr).DE 


；1 ft 上* T : 

CALL WRTLIH-.JP C.MEMOVR 


►私はジャンボーグ A よりも，ジャンボーグナインのほうが好きだ。やはりハンドル操作 
が魅力である。ところで Oh ! X の読者にはザブングルのフアンはいないのだろうか。 

山田俊英 <20> 40 K 都 
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THE SSTINEL 



























3035 2\ 61 ae 7C B5 C 8 
3038 2B 22 613« 

303F ED 5B 63 30 CD ED 3C 

3046 E0 S3 S3 36 

3D4A ED 4E 35 30 96 00 69 

3051 ED 4B 5D 30 B7 ED 42 

3058 C2 AA 33 

3D5B 6 B ED 43 5D 30 

3D5I £D 5B 5F 30 CD £D 3C 

3067 ED 53 5F 36 C3 AA 33 

3D6E 

3D6E 

3DSE CD 48 35 DA 86 36 

3074 3A 2E 30 C610 

3079 3B 03 32 2E 3B 

3D7E 3A 2E 38 47 3A 7E 38 

3085 Bd 30 04 78 32 7E 38 

3DdC C3 AA 33 

3D8F 
3D8F 

3D8F CD 48 35 DA 80 36 

3095 3A 2E 30 0610 

309A 39 61 AF 

3090 3? 2E 31 47 

3041 3A 34 39 80 DA AA 33 

3DA8 47 3A 7E 30 

3DAC Bfi 38 05 85 78 32 7E 

3DB3 31 

3DB4 C3 AA 33 

3DB7 

3DB7 

3DB7 CD 48 35 DA 80 36 

3DBD 16 F5 

3DBP 

3DBF 

3DBF CD 46 35 DA 89 36 

3DC5 2A 6138 ED 5B 63 3d 

3DCC 2h 35 30 47 

3DD0 \k B7 28 IS 

3DD4 CD 76 34 2316 F 6 

3DDA 22 6130 ED 53 63 30 

3DE122 5D 30 EO 53 5F 30 

3DE8 C3 AA 33 

3DEB 

3DEB 

30EB CD 48 35 OA 89 36 
30F1 2K 6136 ED 5B 63 39 
30F8 7C B5 CS 

3DFB ED 4B 35 30 86 00 

3E01 B7 ED 42 38 99 

3E66 2166 00 ED 5B 67 3» 
3E0D 18 66 

3EIF CO EO 3C 0D 28 FA 
3E15 22 6130 ED 53 63 38 
3E1C ES D5 

3E1E ED 4B 35 30 08 06 89 
} 58 5D 36 B7 ED 52 


?B25 ED 
3E2C 01 


El 


3E2E 38 93 C2 AA 33 

3E33 ID 28 19 

3E36 CD 76 34 

3E39 28 84 23 8 D 26 F7 

3E3F 22 5D 30 ED 53 5F 39 

3E46 C3 AA 33 

3E49 

3E49 

3E49 CD 08 3B 
3E4C F5 

3E4D 2k 78 30 23 
3E513E 6 D CD ID 3B 23 
3E57 3E BE CD ID 3B 23 
3E5D PI28 09 
3E6I M 

3E611A CD 10 3B 

3E65 IB 2316 F 8 

3E69 AF CD 10 3B 22 78 38 

3E78 ED 5B 5F 30 

3E74 D5 

3E75 CD 76 34 62 6 B 
3E7A Di 

3E7B 7£ B7 2818 
3E7F E5 

3E80 44 4D ?A 65 30 
3E85 B7 ED 42 44 4D 
3E8A El 

3E8B 03 HD B 6 IB 

3E8F AP 12 ED 53 65 30 

3E95 C3 AA 33 

3E98 

3B98 

3E98 CD 4C 3C CD C4 39 
3E9E 36 0D CD 4D 35 DA 89 
3EA5 36 

3EA6 CD 26 35 CD 4D 35 

3EAC C3 AA 33 

3EAP 

3EAF 

3EAF CD 4D 35 DA 89 36 

3EB5 2A 5F 38 54 5D 

3EBA CD 76 34 C 8 

3EBE U B7 C 8 

3EC1 IB EB 36 20 

3EC5 86 FE 

3EC71A FE 0D 26 06 

3ECC 1318 F 8 

3ECF 36 0D C9 

3ED2 ED 5B 5F 30 B7 HD 52 

3ED9 7D 32 7E 30 

3EDD AF 32 2E 36 

3EE1 CD E0 39 C3 AA 33 

3EE7 

3EE7 

3EE7 

3EH7 CD 48 35 DA 80 36 

3EED ee ee ee 

3EF0 

2A 5D 221A 3d 
3EF6 2A 32 30 25 

3EFA 3A 34 30 D 6 08 

3EPF 85 6 F CD IE 28 

3F04 3E 2A C3 F4 IF 

3F09 
3F09 

3F09 CD 48 35 DA 86 36 
3F6F CD 16 3F DA C4IF 
3F15 C9 

3F16 2A 7A 30 23 
3FIA 7C B5 37 C 8 

3F1E 2B CD 94 35 £6 

3F23 2A 50 30 23 CD 84 35 

3P2A B7 ED 52 44 4D 08 

3F36 37 C 8 

3F32 C5 D5 

3F34 2A IE 30 £0 5B 1C 28 

3F3B B7 ED 52 2B B7 EO A2 

3F42 El Cl 

3F44 C5 DS 

3F46 CD 97IF 

3F49 El Cl 

3F4B 09 AF CD 9A IF 

3F5i 29 3$ ED 5B 1C 30 


387 

388 

389 

398 :- 

391 DSPR 

392 

393 


ID HL.(dtopno):IF HL =8 RET 
DEC HL：LO (dtopno).HL 

LD DE.(dtopadr):CALL CURUhLD (dtopadr).DH 

LD BC,(ysizehLD B. 8 :ADD HL.BC 
LD BC t (iineno):SU 6 HL.BC:JP HZ.TXTPRT 

DEC BC:LD (lin«no),BC 
LD DE.(lineadr):CALL CURU1 
LD (lineadr).DE:JP TXTPRT 


401 

402 
463 


417 PAG01 

418 

419 PAGD2 


422 ; —— 

423 PAGU 


; スクリーン右 

CALL WRTLIH:JP C.NHHOVR 
LD A.().offs):ADD A.16 
IF HC THEN LD (Loffft).A 
LD A.(Loffs):LD B.A:LD A.(pointer) 

IF A<B THEN LD A.B:LO (pointer).A 
JP TXTPRT 

; スクリーン左 

CALL VRTLIH:JP C.NENOVR 
LD A,(l.off 6 ):SUB 16 
IF C THEM XOR A 
LD (Loffs),A:LD B.A 
LD A.(xsize):ADD A.B:JP C.TXTPRT 
LD B,A:LD A.(pointer) 

IF A>:B THEN DEC B:LD A.B:LD (pointer).A 

JP TXTPRT 


:スクリーンを表示しなおす 

CALL WRTLIH:JP C.MEHOVR 
JR DRETR-3 

: 1 ページ下表示 

CALL VRUIII:JP C.MEHOVR 
LD HL t (dtopno):LD DE.(dtopadr) 
LD A.(ysize):LD B,A 
LD A,(DE):IF A=0 JR PACD2 

CALL NXTLIN:IKC HL:DJHZ PAGD1 
LD (dtopno),HL:LD (dtopadr).DE 

LD (lineno).HL:LD (lineadr).DE 
JP TITPRT 


434 

435 


437 

438 PAGU2 


: 1 ぺージ上表示 

CALL VRTLIH:JP C.MEHOVR 
LD HL,(dtopno):LD DE.(dtopadr) 

IP H レ 《 RET 

LD BC.(ysi 2 e)：LD B.0 

SUB HL.BC:JR IC.PAGU1 

LD Hi v 8 :LD DE,(ntxtft):JR PAGUH 6 

CALL CURU1:DEC C:JK NZ.PA6U1 

LD (dtopno) f Hl:LD (dtopadr).DE 
PUSH HL:PUSH DE 

LD BC v (ysist):LD B.I:ADD HL.BC 
LD DE.(lineno):SUB HL.DE 
POP DE:POP HL 
IF NC THEN JP HZ.TXTPRT 
IP DEC(C)=0 JR PACU3 
CALL NULIN 

IF NZ THEN INC HL:DEC C:JR HZ.PAGU2 
LO (lineno).HL:LD (lineadr),DE 
JP TXTPRT 


445 

446 

447 

448 

449 
458 

451 CLINE1 

452 

453 CLINE2 

454 

455 

456 


466 

461 


466 ;. 

467 IHSCR 

468 


•• カーソル上の 1 行を則味 
CALL CAFTR2 
PUSH AF 

LD HL.(delpnt):INC HL 
LD A.eDH:CALL DELPUSH:INC HL 
LD A.IEH:CALL DELPUSH:IHC HL 
POP AF:JR Z.CLINE2 
INC B 

ID A.(DE):CALL DELPUSH 

DEC DE:INC HL:DJNZ CLJRB1 
10R A:CALL DELPUSH:LD (delpnt).HL 
LD DE.(lineadr) 

PUSH DE 

CALL NXTLIN:LD HL.DE 
POP DE 

LD A.(HL):IF A*9 JR CLIHE3 
PUSH HL 

LD BC f HL:LO HL.(cndadr) 

SUB HL.BC:LD BC.HL 
POP HL 

INC BC:LDIR:DEC DE 
XOR A:LD (DE),A:LD (endadr).DE 
JP TXTPRT 

: カーソル位 ■ に CR を*きこむ 
CALL IHSCHR:CALL PIHADR 
LD (HL).0DH:CALL WRTlIH0:JP C.MEHOVR 


470 CALL LIHTRSiCALL WRTIIH0 

471 JP TXTPRT 

472 ; - 

473 DELCR •，カーソル行と次の行を遑 *£ 

474 CALL WRTLIH0:JP C.HEMOVR 

475 LD HL.(lineadr):LD DE.HL 

476 CALL HXTLIH:RET Z 

477 LD A # (OE):IP A=0 RET 

478 DEC OE:EX DE.HL:LD (HL). M H 

479 LD B.254 

480 DELCR1 LD A.(DE):IF A=0DH JR DELCR2 

461 INC DE:DJNZ DELCR1 

482 LD (Hl),0DH:RET 

483 DCLCR2 LD DE.(lineadr):SUB HL.DE 

484 LD A.L：ID (pointer).A 

485 XOR A :LD (l.offs).A 

486 CALL OFFSTR:JP TXTPRT 

487 ; - 

486 HARK : カット & ベ-スト 

489 ; マーク & ジャンブ用 マー ク 

490 CALL WRTLIH:JP C.HEMOVR 

491 DS 3 ;for PATCH of HARK & JUMP 

492 ••そのうちに fl ますのでしばらくお Hf ちを 

493 LD HL.(llneno):LD (iarkt>f).HL 

494 LD HL,(istart):D£C H 

495 LD A.(xsize):SUB 8 

496 ADD A,L:LD l.A:CALL ILOC 

497 LD A. M « H : JP IPRIHT 

49d :- 

499 CETXT ••テキスト取り込み 

589 CALL WRTLIH:JP C.HEMOVR 

501 CALL CETITIjJP C.IBELL 

502 RET 

593 GETXT1 LD HI.(»arkbf):INC HI 
584 LD A.H:0R L:SCF:RET Z 

505 DEC HL:CALL LIHADR:EI DE.HL 

506 LD HL.(lineno):INC HL:CALL LINADR 

567 SUB HL.DE:LD BC.HLiRET C 

508 SCF:RET Z 

589 PUSH BC:PUSH OE 

5ie LO HL,(copybh:LD DE.(cutbf) 

511 SUB HL.DE:DEC HL:SUB HL.BC 

512 POP HL:POP BC 

513 PUSH BC:PUSH OE 

514 CALL 丨 POKE# 

515 POP HL:POP BC 

516 ADD HL.BC:XOR A:CALL IPOKE 

517 LD HL # (delbf):LD OE.(cutbf) 


3PS7 B7 ED 52 Cl 

3F5B 21 00 09 22 78 38 C9 

3F62 

3P62 

3F62 CD 48 35 DA 80 36 
3F60 CD 16 3F DA C4IF 
3F6E 2A 7A 39 CD 64 35 
3P74 E5 

3F75 2A 5D 30 23 

3F79 CD 64 35 EB 

3F7D 2A 65 30 

3F89 AF ED 52 44 4D 

3F85 El 

3F86 20 03 7718 94 

3F8B EB 63 ED B0 

3F8F CD EC 34 

3F92 2A 7A 30 22 5D 38 

3F98 CD 3B 34 C3 AA 33 

3F9E 

3F9E 

3P9E CD 48 35 DA 88 36 
3FA4 2A 1C 39 CD 94IF 
3FAA B7 C 8 
3FAC 9169 08 
3FAF CD 94IF B7 28 04 

3FB5 23 0318 F 6 

3FB9 CD 66 36 63 

3PBD B7 ED 42 DA C4IF 

3FC3 C5 

3FC4 2A SD 31 CD 04 35 
3PCA Cl 

3FCB 7E B7 21 10 

3FCF EO 5B 1C 38 CD 91IF 

3FD6 CD EC 34 

3FD9 CD 3B 34 C3 AA 33 

3PDF 0B 

3PE6 E5 C5 

3PE2 58 59 44 4D 2A 65 30 
3PE9 B5 E5 
3FBB 19 EB 
3FED El 

3PEe B7 ED 42 44 4D 63 

3FF4 El EO Bd 

3FF7 Cl El 

3PF918 D4 

3PFB 

3PPB 

3FFB CD 48 35 DA 89 36 

4011 CD 2C 33 

4894 2A 2F 30 2E 00 CO IE 

400B 28 

406C 117A 31 CD E5IF CD 

4113 A9 36 

4615 D 6 36 DA 18 38 

461A FE 88 D210 38 

401F 21 FF FP 22 7A 30 

4825 32 3131 

4028 CO 84 32 CD EC 34 

4S2E CD D 8 33 C3 8 A 33 

4634 

4034 

4034 CD 48 35 DA 88 36 
463A DA 75 31 B7 2610 
4848 3C 32 75 30 
4644 21591A 22 34 30 
404A CD CP 32 C3 97 33 
4650 AP 32 75 39 
4054 CD 2C 33 C3 52 33 
485A 
465A 

405A 3A 70 31 
4050 B7 C4 48 35 
4661 DA 88 36 
4064 2A 32 31 25 2D 
4669 CD IE 2« 2A 32 38 
486F CD C9 4¢ 38 08 
4074 22 32 39 CD CF 32 
407A 18 E 8 
407C 

487C 3A H 31 B7 28 06 

4082 CD 1A 33 C3 52 33 

4068 

4088 3A 5B 31 32 5A 30 

408E 2A 32 31 22 56 3e 

4094 2A 34 31 22 58 30 

Am C3 52 33 

4690 

4090 

4090 3A 70 3$ 

40A8 B7 C4 48 35 

40A4 DA 88 36 

40A7 2A 32 31 ED 5B 34 30 

46AE 19 

46AF CD IE 20 2A 34 39 
46B5 CD C9 41 38 C2 
40BA 22 34 3¢ CD CF 32 
40CB 2A 32 3i ED 4B 34 30 
4007 18 DE 
4609 

40C9 CD A9 36 CD F0 35 
40CF FE 5A 28 58 
4603 FE 58 28 55 
4007 FE 43 2S 4E 
40DB FE 4126 4F 
48DF FE 53 28 E 6 
料 E3 FE 44 28 49 
40E7 PE 5128 4A 
40EB FE 57 28 47 
46EF FE 45 28 49 
48F3 FE IF 28 35 
48P7 FB ID 28 33 
40FB PE 1C 2B 31 
40FF FE IE 28 33 
4103 FE 3128 24 
4107 PE 32 28 21 
4198 FE 33 281A 
41«F FE 34 28IB 
4113 PE 35 28 B2 
4117 FE 36 2815 
4110 FE 37 2816 
41iF FE 38 2813 
4123 PE 39 26 6 C 
4127 37 C9 
4129 2C 3E 
412B 2D 
412C 24 3E 
412E 2D 3E 
4136 2C B7 C9 
4133 ?C 3E 

4135 2D 

4136 25 B7 C9 
4139 

4139 


518 SUB HL.DE:RET NZ 

519 LD HL. 6 :LD (delpnt).HL:RET 

528 ; - 

521CUTXT : テキスト取り込み & テキストクリア 

522 CALL VRTLIHiJP C.HEMOVR 

523 CALL CETXTliJP C.IBELL 

524 LD HL.(iarkbf):CAU LIHADR 

525 PUSH HL 

526 LD HL v (lineno):IHC HL 

527 CALL LINADR:EX DE.HL 

528 LO HL.(endadr) 

529 XOR A:SBC HL.DErLD BC.HL 

530 POP HL 

531 IF 2 THEH LD (HL) t A:JR CUTXT1 

532 EX DE,HL:IHC BCiLDIR 

533 CUTXT1 CALL ENDCHK 

534 LD HL.(sarkbf):LD (lineno).HL 

535 CALL LINSET:JP TITPRT 

536 ; - 

537 PUTIT ••テキスト出力 

538 CALL WRTLIH:JP C.HEMOVR 

539 LD HL.(cutbf):CALL IPEER 

540 IP 典 ： 0 RET 

541 LD BC.0 

542 PUTIT1 CALL IPEEK:IF A-0 JR P0TIT2 

543 INC HL:INC BC:JR PUTXT1 

544 PUTIT2 CALL LEFBYT:IHC BC 

545 SUB HL,BC:JP CJBELL 

546 PUSH BC 

547 LD HL v (lineno):CALL LINADR 

548 POP BC 

549 LD A.(HL):IF A <>8 JR PUin4 

558 PUTXT3 LD DE.(cutb():CALL IPEEKitCAlL EHDCHK 


551 CALL LIHSET:JP TXTPRT 

552 PUTXT4 DEC BC 

553 PUSH HL:PUSH BC 

554 LD DE.BC:LD BC.HL:LD HL.(endadr) 

555 PUSH HL:PUSH HL 

556 ADD HL.DE:EX DE.HL 

557 POP HL 

558 SUB HL.BC:LD BC.HL:INC BC 

559 POP HL:LDDR 

560 POP BC:POP HL 

561 JB PUTXT3 


30- 



563 JPVIN 

••ダイレクトに各ウインドウにジャンブ 

564 


GILL WHTLIH:JP C.HEMOVR 

S65 


CALL THPOSH 

566 


LD HL t (scrnsiz):LD L ••: CALL ILOC 

567 


LD DE.vjuapr.CALL IHSI:CAIL IHKEYSUB 

568 


SUB w r：JP C.PDATA 

569 


IF A>=fl JP POATA 

579 


LD HM-1:LD OwrkbO.HL 

571 


LD (vindno).A 

572 


CALL VINDPOP:CALL EMDCHK 

573 


CALL PRVSET:JP SCRHIHITi3 

575 VINKX 

:ウ 

インドウを最大にする 

CALL WRTLIN:JP C,MEM 0 VR 

576 


577 


LD A v (nindBxf):IF A<>0 JR VI1MX1 

578 


IM A:LD (vlndixf).A 

579 


LD HL.61A5eH:LD (zsize).HL 

589 


CALL WIHDCHR:JP WTXTPRT 

581 WINHX1 

XOR A:LD (vindBxf).A 

582 


CALL TXTPUSH:JF SCRHIHIT.c 




584 VINNV 

:ウインドウ w 動 

585 


LD A.Uetlaode) 

586 


OK A:CALL NZ.VRTLIH 

587 


JP C.HEMOVR 

588 mm 

LD HL,(xstart):OEC H:DEC L 

589 


CALL «L0C:LD HL.(xstart) 

591 


CALL VIMVEC:JR C.WMMV2 

591 


LD (xstart).HL:CALL WINDCHK 

592 


JR WIHMV1 

594 WINHV2 

LD 

A.(getlaode):IF A =8 JS WINMV3 

595 

596 

597 VINNV3 

598 

LD 

CALL WINDPUSH:JP SCRMIHIT.c 

A v (coBlin):LD (coitop).A 

LD HL t (xstart):LD (cowindJ.HL 

599 


LD HL.(xsize) :LD (co_vind+2),HL 

606 


JP SCRHIHIT.c 


692 WIHSZ ••ウィンドウ大きさ榭定 

693 LD A.(getliode) 

604 OR A:CALL HZ.WRTLIH 

605 JP C.HEMOVR 

606 tfINSZl LD HL,(X 8 tart):LD DB,(xsi 2 e):ADD HL.DE 

607 CALL «LOC:LD HL.(xsize) 

608 CALL WIHVEC:JR C.WIHMV2 

609 LD (xsize).HL:CALl VIHDCHK 

610 LD Hl.(* 8 tart):LD BC.(xsize) 

611 JR WINSZ1 

612 : 

613 VIHVEC CALL IIKEYSUB:CALL UPPER 

614 IF A="Z” JR VINVEC1 

-615 IF A= M X H JR WIHVEC2 

616 IF A=”C" JR WIHVEC3 

617 IF A=-A M JR VIHVEC4 

618 IF A ， S" JR WIHVEC 

619 IF A=”D” JR VINVEC 6 

620 IF A=-Q" JR WIHVEC7 

621 IF A="W” JR WIHVEC 8 

622 IF A ， E" JR WIHVEC9 

623 IF A^IFH JR VINVEC2 

624 IF A=1DH JR WIHVEC4 

625 IF A=1CH JR WINVEC 6 

626 IF A=1EH JR WIHVEC 8 

627 IF A= M 1 M JR VINVEC1 

628 IF A="2" JR WINVEC2 

629 IF A=”3” JR WIHVEC3 

630 IF A="4" JR WIHVEC4 

631 IF A= M 5 M JR VIHVEC 

632 IF JR WINVEC 6 

633 IF A= M 7 M JR WIHVEC7 

634 IF AH WINVEC 8 

635 IF A= M 9 W JR WIHVEC9 

636 SCF:RET 

637 VINVEC3 INC L:DB 3EH 

638 WIHVEC1OEC L 

639 W1NVEC? INC H:DB 3EH 

640 VIHVEC4 DEC L:DB 3EH 

641 VINVECS INC L:OR A:REf 

642 VIHVEC9 INC L:9B 3EH 

643 WIHVEC7 DEC L 

614 W1NVEC8 DEC H:OR A:RET 

645 :. . 

646 PAGE3 : LABEL for page3 


0000 

eeee 

eeee 

eeee 

eeee 

6989 

eeee 


WINER 
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OFFSET aakadr-progras 


► 私は Oh ! X を手にした翌 U に入院してしまいました。原因は無理がたたっての肝臓病 
です。私が留守の叫，女裙はきっと X 68000 でゲームをしまくっていることでしよう。あ 
あ，キーボードに触りたい。 茜さん， 仕杯も大蜞だけど，なにより健康ですよ，健康が第 
一なのです。 佐藤啓市 （33) 北海道 


150 Oh! X 1988.8. 





















TO.COH 

CONLVL 


； ♦♦本礞♦傘拿♦掌^窣幸窣♦拿拿拿♦♦傘 

COMLVL ;コマンド入カコールド 
: des ALL 


20 CALL COHLVLC 

21 

22 COMLVLH :コマンド入カホヅト 

23 ; des ALL 

24 

25 LD SP.(stack):CALL PCOMLIH 

26 C0HLVL1 CALL LBFCLA:CAll COHRBD 

27 CALL CONCUR:CALL GETl 

28 CALL SET6DH:CALL COMWRT 

29 ID A,(chrbf):IF AO0DH JR C0MLVL2 

3§ : 

31 CALL CURD-C 

32 LD DE.(linebf):CALL COHHAND.GO 

33 JR COMLVLH 

35 COMLVL2 CALL CTRLSELC-.JR HZ.C0HLVL1 

36 CALL CTRLJP.CrJR COMLVLH 


39 COH.c CALL C.ERROR:JP COMLVL 

49 ； 

41 COHLVLC LD HL.(coBVind) : LD (istart).HL 

42 LD HL,(coi¥ind^2):LD (xsiieJ.HL 

43 CONLVLC1 CALL VINDCHK 

44 ID HL.(xstart):LD BC t (xsize) 

45 CALL OWIHDOW 

46 XOR A:LD (getliode).A 

47 LD (pointer),A:LD (Loffs),A 

48 CALL PCURDAT:CALL PCOHLIH 

49 CALL PDATAiJP COMPRT 


52 CONADR : コマンドアドレス 

53 ; in A:line No. /out HL=coaiand buff adress 

54 

55 PUSH DE 

56 LD D.A:LD E.6:SRL D:RR E 

57 LD HL.(coabf):ADD HL.DE 

58 POP DE:RET 

59 

69 COHDEC : コマンド No デクリメント 

61 DEC A:DEC A 

62 COMIHC ; コマンド No インクリメント 

63 PUSH BC 

64 INC A:LD C ( A 

65 LD A.(coM8k):AND C 

66 POP BC:RE7 

67 

63 COMHINC : コマンドエンドマー■クインクリメント 
69 LD A»(co>lin)：CALL CONADR 

79 PUSH HI 

71 PUSH AP 

72 CALL IPEERiIP A<>0 JR COHEIHC1 

73 POP AP:PUSH AF 

74 CALL COMIHC:CALL COHADR 

75 XOR A:CALL IPOKE 

76 COMEIHC1 POP AF 

77 POP HL:RET 

78 

79 CONCUR 
89 


; コマンドラインボジシ 3 ンセツ ！' 

: des AF.HL.C 


82 LD A v (coBtop):LD H,A 

83 LD A,(coalin):LD L V A 

84 SUB H:JR NC.COHCURl 

as LD A.(coM8k):SUB H:ADD A»L:INC A 

86 COMCUR1 LD HL f (xatart):ADD A t H:LD H.A 

87 LD (Lcurx)»HL:RET 
68 

89 COMRED ; コマンドバッファかみ込む 
96 ; in HL~coHand buff adress 

91 ;des AP.HL.DE.C 

92 

93 LD A.(coBlin):CALL COMADR 

95 C0MRED1 LD DEl(linebf):LD C.127 

96 C0MRED2 CALL IPEEK:IF A<28H RET 


101 COMWRT 
162 


163 

164 


LD (DE),A:IHC DE:IHC HL 
IF DEC(C)<>0 JR COMRED2 
RET 

; コマンドバッファに•き込む 
: in HL-coBiand buff adress 
;des AP.HL.DE.C 


CALL COMEIHC 

166 LD A,(inpchk):IF AO0 JR COMWRT 1 

167 CALL IPEEK:IF A-6 JR COMWR13 

168 RET 

189 COMWRT1 LD DE.(linebf):LD C.127 
118 C0MWRT2 LD A.(DE):CALL IPOKE 

111 INC DE:INC HL:IF A=0DH RET 

112 IF DEC(C)<>0 JR COHWRT2 

113 COMVRT3 LD A.8DH:JP IPOKE 

114 

115 COMPRT :コマンドスクリーン表示 
; des AF.HUDE.BC 


117 

118 


CALL TABPRT 
119 LD A.(y3ize):LD B.A 

128 LD HL,Otstart):LD (Lcurx).HL 

121 LD A k (coatop) 

122 COMPRT1 PUSH AF 


123 

124 

125 


CALL COHADR:CALL (PEER 
IP A-B JR C0HPRT2 
CALL COHREDlsLD A # 8DH:LD (DE)，A 
LD DE.(linebf):CALL LHPRIHT 
LD HI • し cury:IHC (HL) 

FOP AF 

CALL COMINC:DJNZ COMPRT1 
RET 


129 

130 

131 COMPRT2 POP HL 

132 LD HL.(linebf):LD (HL),0DH 

133 EX DE,HL:LD HL.I.cury 

134 CQMPRT3 CALL LHPRIKTiINC (HL) 

135 DJNZ C0MPRT3 

136 RET 

137 

138 PCOHL1N ; コマンドスクリーンのライン N 〇 •表示 

139 ; des AF.HL.DE 

140 

141 LO HL,(xstart):DEC H 

142 LD A,(xsize):SUB 7 

143 ADD A,L:LD L.A:CALL HOC 

144 LD A.(co*lin):LD C.0 

145 PCOKLIN1 CALL COHDEC:CALL COHADR 

146 EX AF.AF_ 

147 CALL IFEEK:IF A=0 JR PCOMLIH2 

148 EX AF.AF* 


149 INC C:JR PCOMLIH1 

150 PCONLIN2 LD L.C:LD H.SrCALL SEISU 

151 LD DE.naiare:JP tHSX 

152 : 

153 COKIAPT ;Acc を （ pointer ) に合わせて 


154 

155 

156 

157 


ラインバッファに書き込む 
PUSH HL 
PUSH AF 
CALL PINADR 
POP AP 

LD (HL) ( A:1NC HL:LD (HD.0DH 
LD HL.pointerrIHC (HL) 

POP HL:RET 


163 COMINSI : DE 以後 00H までを （ pointer ) に合わせて 


168 : 

169 COM9PRT ;ラインバッファ 


,ラインバッファに書き込む 
LD A.(DE):IF A=0 RET 
CALL COMIAPT:IHC DE 
JR COHIKSX 


:コマンドテキストに害き込み表示する 
LD A.(coBliD):CALL COHADR:CALL COMWRT 


CALL CONCUR:LD DE.(linebf):CALL LHPRIHT 


192 

193 


199 
209 C 


CTRLSEL.C ; コマンドスクリーンの 

; コントロールキーセレクト 

; in 仁 ASCII CODE / Z=0K 

PUSH HL:PUSH BC 
LD HL.ctrlseljj 
LD BC.CTRLJP.C-ctrlseLc 
CPIR 

POP BC:P0P HL:RET 

ctriseLc DB 05H.0DH, 18H.1BH 

OB 1EH.1FH.22H.23H.24H 
CIRLJP^C ; コマンドスクリーンの 

; コントロールキージャンブ 
; in A=ASCII CODE 

IF A^05H JR CURILC 
IP AMDH JR CR.C 
IF A=18H JR CURD.C 
IF A-1BH JR mm 
IF A>1EH JR CURILC 
IF A-1FH JR CORD.C 
IF A=22H JP VMI.C 
CALL CTRLJP:JP CONLfLC 


; コマンドスクリーンの 
; カーソルアップ 

202 

203 LD A.(coalin):LD B V A 

204 CALL CONDEC:CALL COMADR 

205 EX AP,AP. 

206 CALL IPEEK:IF RET 

207 EX AF.AF ( :LD (coalin).A 

208 EX AF.AF* 

299 LD A,(co«top):IF AOB RET 

210 EX AF.AFMD (coitop).A 

211 JP COMPRT 

212 

213 COMBRK ••コマンドラインのブレイク 

214 

215 


IQR A:L0 (pointer).A:LD (l.offs) f A 
LD A.(coalin):CALL COMADR 
LD A.8DH:JP SPOKE 

CR.C ; コマンドスクリーンの CR 

XOR A:LD (pointer),A:LD (l.offs).A 

CURD.C ; コマンドスクリーンの 
: カーソルダウン 

LD A.(coalin):CALL COMING 

LD (coalin).A:CALL CONEINC 

LD A.(coitop):CALL COHADR 

LD C,A:CALL (PEEK:IF AOI JR CURD.C1 

LD A,C:CALL COKING 

LD (coitop),A:JP COHPRT 

CURD.C1 LD A,(ysize):LD B.A 
LD A.(coalin) 

IP DEC(B)-9 JR CURD.C3 

CURD.C2 CALL COHDEC:IF A=C RET 
DJNZ CURD.C2 

CUR0.C3 LD (coatop),A:JP COHPRT 


239 WMX.C :コマンドウインドウを最大にする 
248 

241 LD A.(nindnf):IF A=0 JR WM1.C1 

242 XOR A:LD (wind»f).A 

243 CALL SCRHIHIT.c:JP COHLVLC 

244 WHX.C1 IHC A:LD (vindixf)，A 

245 LD HL,81A5eH:LD (xsize).HL: JP C0HLVLC1 

246 

247 ; - 

248 SYSRET 


呼び出したシステムに烽る 


LD SP.(stack) 

LD A.0CH:JP (PRINT 


280 

281 

282 


LD A,(tabsv):XOR 1:LD (tab5v).A 

CALL SCRHIHIT.ciJP COHLVLC 

; テキスト a 択 

LD A.(DE):CALL UPPER 
SUB ”A M :RET C 
IP A>=4 RET 

LD C,A:EX AF.APMD A.C 
CALL TEXTDAT:JF C.TDATPR12 
EX AF.AF*:LD (nontxt).A 
LD HL.8:LD (lineno).HL 
CALL TITPUSH:CALL VINDPOP 
CALL ENDCHK:CALL SCRNINI? 

JP COHLVLC 

:テキストデータ表示 

LD A,(DE):INC DE 
IF A<>-/- JR TDATPRie 
LD MDE):IHC DE:CALL UPPER 
SUB RET C 
IF A>=4 RET 
ADD A.A:LD IX.txtst 
LD C,A:LD B.0:ADD IX.BC 
LD C,(II+2):LD B.OX+3) 

IHC DE.-CALL 9HLHEX 
PUSH HL:SUB HL.BC:P0P HL 
IF MC THEN JP MZ.IBELL 
LD (IX+0),L:LD (IX+1),H 
CALL TAREAI 


マルチウインドウエディタ WINER 


►ついに X 68000 を買った。 CZ -600 C と CZ -800 C はよく似合う。そして， ED - BETA にも 
似合う。預金通帳はいつの間にか3桁の世界である。 奥田健児 （18) 神奈川県 
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CALL SCRHIHIT.c:JP COMLVLC 

TXTREM ; テキスト復活 

LD A,(noiftxt):LO DE.txtchr 
ADD A.E:LD E,A:IP C THEH IMC D 
LD HL.(nlxt8t) 

LD A,(HL):IF AOt RET 
LD A,(DE):IF A=8 RET 
LD (HL).A:CALL ENDCHK 
CALL SCRHIHIT.c:JP COMLVLC 

WDATPRT ; ウィンドウデータ表示 

LD C.0:LD B»4 
CALL WDATPRT1 
LD C ， 4:LD B,4 

WDATPRT1 CALL WDATPRT2:IHC C 
DJNZ WDATPRT1 
CALL COMIPRT:JP CR^C 
V0ATPRT2 LD A.(vindno):SUB C 

LD A. M MF 2 THEM LD A •••拿 H 
CALL COMIAPT 
LD A V C:ADD A/0” 

CALL COMIAPT 
LD A,V H :CALL COMIAPT 
LD A,C:ADD A.AiADD A.C 
LD HL.(Utvbf):ADD A.L 
LO L,A:IP C THEM IMC H 
CALL IPEER 

ADD A. M A H :CALl COMIAPT 
LD A, M :" : JP COM APT 

WIHDSEL ; ウィンドウ選択 

SUB T 
IF A>=8 RET 
PUSH DE 
PUSH AF 
CALL TITPUSH 
POP AF 

LD (vindno)*A:CALL WNDPOP 
CALL ENDCHK:CALL SCRHIHIT+3 
CALL PRWSETrCALL COHLVLC 
POP DE:JR COMMAHD.GO 

LlHTOP •• ライン Hot アドレスをトップにする 
LD HL,8:LD (Uneno).HL 
LD HL*(ntxt5t):LD (lineadr).HL 

COMHAHD.GO ; コマンド実行 
PUSH DE 

LD A.(CO*lin>:CALL COHDEC 
CALL CONADR:CALL C0HRED1 
LD A.8DH:LD (DE).A 
XOR A:INC DE:LD (DE).A 
POP DE 
LD A.(DE) 

INC DE:CALL UPPER 
CALL CHKNUH:JR NC^INDSEL 
IP A:"B” JR LlHTOP 
IF Am SySRET 
IF A=T JP TABSH 
IF JP TKTCLA 
IF JP TXTSEL 
IF JP TKTREN 
IF A ， H" JP TDATPRT 


426 IF JP WDATPRT 

427 

428 PA6E4 : for page 4 LABEL 


WIHER page 4 

< screen editer > 
Copyright in 1988 by fll 


OFFSET Bakadr-profru 


28 

21 

22 

23 

24 ; …… 

25 EDIT 

26 

27 

28 
29 


36 EDIT1 

37 


41 

42 

43 EDITEND 


48 

49 

50 

51— 

52 LOAD 

53 

54 

55 


IF A="E" JP EDIT 
IP A=”L" JP LOAD 
IF A=-S M JP SAVE 
IP A= W F- JP SEARCH 
IP A= H C W JP CHENGE 
IF A:”D M JP DHLTIT 
IP 義 : T JP SWPT1T 
IP A="P” JP PRVSW 
DS 5 : 

RET 


♦•スクリーンエディット 

PUSH DE 

CALL VINDPOP:CALL ENDCHK 
POP DE 

LO HL v (lineno):CALL SPSKIP 
CALL CHRNUM:CALL NC.GETHUH 
ID (lineno) ， H い CALL LIHSET 
CALL WTXTPRT 

LD HL,0-1:LD (aarkbf).HL 

LD A.i:LD (getiaode).A 

CALL LIHTRS:CALL EDCUR 
CALL PLEFDAT:CALL PLINDAT 
CALL 6ETL:LD HL,(linebf) 

LD A,(HL):IF A=1BH JR EDITEND 
LD A.(chrbf) : CALL CTRUP 
JR EDITH5 

CALL TXTPUSH:LD A.(Nindaxf) 

IF A=8 THEN CALL TXTPRT ELSE CALL SCRHIHIT.c 

JP COHLVLC 

LD BC t (dtopno):LD HL t (lineno) 

SUB HL ， BC:LD A.L 
LD HL,(xstart):ADD A,H:LD H.A 
LD (Lcurx).HL:RET 


ファイルロード 

CALL GETFILErJR C,LOADER 
JR NZ t LOADl 
LD A,0CH:CALL IPRIHT 
CALL VIHDPOF:CALL BNDCHR 
CALL IEFBYT:LD BC.dSIZC) 

XOR A:SBC HL,BC:JB C.LOADER 
LD DE ， lo&d 騰 : CALL IMSX:CUl IFPRHT 

LD HL v (endadr):LD («DTADR),HL 
CALL «RDD:JR C,LOADER 
CALL LOADliJP FHSET 


64 LOADER PUSH AF 

85 LO A,0CH:CALL tPRINT 

66 POP AF 

67 CALL ERROR 

68 LOAD1 CALL SCRHIHIT.ciJP COHLVLC 

69 : 

78 GETFILE ; フイルネーム入力 

71 CALL ENDCHK:CALL SPSKIP 

72 LD A.4：CALL IFILE 

73 CALL IROPEH:Rn Z 

74 CP 8:SCF:RET HZ 

75 GETFILE1 CALL GETFILE2:RET C:RET HZ 

76 CALL «ROPEH:RET Z 

77 IF A=8 JR GETFILE1 

78 SCF:RET 

79 

88 GBtnLE2 : デイレクトリー表示してフイルネーム入力 


89 


98 ; 

91 FMSET 

92 


LD A.6CH:CALL fPRIMT 
CALL «OIR:RET C 
LD DE.dira:CALL IMSZ 
LD DE f («KBFAD):CALL IGETL 
LD A.(DE):IF A=1BH THEM OR A:RET 
IKC DE:INC DE: 

INC 0E:INC DE:INC DE 
LD A.4:CALL IFILE 
XOR A:RET 


ァイルネームを 

:コマンドウインドウに表示して 
;ファイルネームバッファに入れる 

94 LD A.(nowtxt):CALL FHADR 

95 LD A." ”： CALL PHSET3 

96 LD ACALL COMIAPT 

97 LD A V (IDSK):CALL FMSET3 

98 LD A ,”， : CALL FISET3 

99 LD DE.(9IBFAD) 

169 LD B.13:CALL FHSET2 

101 LD : CALL FHSET3 

102 LD B,3:CALL FMSET2 

103 CALL COMIPRT:JP CR.C 

184 FNSET2 INC DE:LD A,(DE):CALL COHIAPT 

105 CALL IP0KE:INC HL 

106 DJHZ FHSET2:RET 

107 FNSET3 CALL COHIAPT:CALI (POKE 

108 INC HL:RET 

109 :. . 

116 SAVE ; フ t イルセーブ 

111 CALL ENDCHK:CALL SPSKIP 

112 IF A=0DH JR SAVES 

113 SAVE1 PUSH DE:LD A»4：CALL IFILE:POP DE 

114 INC DE:LD A.(OE) 

115 IF A<>":" JR SAVE4 

116 IHC DE:LD A,(DE) 

117 IF A>=20H JR SAVE4 

118 SAVE3 CALL GETFUE2 

119 JP C.LOADER 

120 JP H2.LOAD1 

121 SAVE4 LD A»8CH:CALL IPRIHT 

122 LD DE ( saveB：CALL «NSX:CALL IFPRHT 

123 CALL WIHDPOPrCALL ENDCHK 

124 LD OE.(ntxtst):LD HI.(endadr):IHC HL 

125 XOR A:SBC HL.0E:JP C.LOADER 

126 LD (ISIZE).HL 

127 LD HL.0:LD (IDTADR).HL:LD (lEXADR).HL 

128 CALL «V0FEN:JP C.LOADER 

129 LD HL.(ntxt3t):LD (IDTADR).HL 

136 CALL «WRD:JP C.LOADER 

131 CALL LOADl:JP FNSE ： 


Z86 ; 

287 TDATPRT0 LD BCJ360H 

288 PUSH BC 

289 CALL TDATPRT1 

296 POP BC:IHC C 

291 DJHZ TDATPRT0O 

292 TDATPRT1 LD A.(nowtxt):SUB C:LD A," 


293 


IF Z 


l THEN LD A.-f 

294 CALL COHIAPT 

295 LD A. w r：CALL COMIAPT 

296 LD A,C:EX AF.AP' 

297 LD A,C:ADD A. M A":CALL COHIAPT 

298 LD A, W :”：CALL COMIAPT 

299 LD A f C:CALL TEXTDAT:JR C.TDATPRT2 

300 PUSH DE:PUSH HL:PUSH BC 

301 CALL TDATPRT3:DEC DE 

382 LD A/-”：CALL COMIAPT 

383 EX DE,HL:CALL TDATPRT3 

304 LD A,_:”：CALL COHIAPT 

385 LD HL.BC:CALL TDATPRT3 

366 LD A. w H :CALL COMIAPT 

387 LD A ， T:CAU COHIAPT 

308 POP BC:POP HL 

399 XOR A:CPIR:EX DE.HL 

310 POP HL 

311 LD HL,BC:CUL TDATPRT3 

312 LD A. H J-：CALL COHIAPT 

313 EX AF.AF'iCALl FNADR 

314 TDATPRT11 CALL IPEEXtlMC HI 

315 IF JR TDATPRT12 

318 CALL COMIAPT:JR TDATPRT11 

317 TDATPRT12 CALL COHIPRT:JP CR.C 

318 ; 

319 TDATPRT2 LD DE ， nouse 騰 ： CALL GONINSI 

326 JR TDATPRT12 

321 ; 

322 TDATPRT3 PUSH DE 


323 

324 

325 

326 

327 
326 : 


EX DB.HL:CALL PINADR 
EX DE t HL:CALL HLASC 
LD HL t pointer:INC (HL) 

INC (HL):IHC (HL):INC (HL) 
POP DE:RBT 


)FHAD8 ; ファイルネームバッファアドレス譁出 
336 ; in Acc-text No. 

391 : out HL-buff adress 

332 : des DE 

333 INC A:LD DE r 2eH:LD HU(txtvbf) 

334 FNADR1 ADD HL,0E:IF DEC(A)<>8 JR FNADR1 


335 

336 

337 


RET 


338 HLASC 

339 


l 6 進数を ASCII CODE に変換 
LD A,H:CAlt BIASC 
346 LD A，L 

341 HXASC PUSH AF 

342 RRCA:RRCA:RRCA:RRCA 

343 CALL HXASC1 

344 POP AF 

345 HXASC1 AND «PH:OS 3BH 

346 IF A>=3AH THEH ADD A.7 

347 LD (DE),A:IMC 0E:RET 

348 

349 TXTCLA ; テキストクリア 
358 

351 LD DE,titcbr:LD A.(noirtxt) 

352 ADD A.E:LD E t A:IF D THEN INC D 

353 LD HL v (ntxtst):LD A,(HL) 

354 IF A=0 RET 

355 LD (DE) t A:LD (HL),6 

356 LD A.(nowtzt):CALL FNADR:CALL *POKE 
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► Jik 近の丨丨本フ アル コムは XI ユーザーにとても冷たい。 


保延陽一 （14) 求京都 













284 PUSH HLiPUSH HL 

285 SUB HL,DE:EX DE.UL 

256 CALL PIHADRilO BC.HL 

267 POP HL 

288 SUB HL.BC:ID BC.HL 

269 EX OE.HL 

276 POP DE:LDDR 

271 JR CHEKGE1I 

272 CNEKGE6 PUSH HL 

2T3 CALL PINADR 

2T4 EX OE.HL:ADD HL.DE 

275 EX DE.HL:ADO HL»BC 

2?6 PUSH HL 

277 ID HL»(linebf):LD BCJFEHrADD HL.BC 

278 SUB HUDE:LD BC.HL:INC BC 

279 POP HL:EX DE.HL:LDIR 

286 POP BC:EX DE.HL 

261 CHENGE9 LD (HL),_ ”：IHC HL 

2 6 2 IF IHC(C)<>8 JR CHENGE9 

263 CHENGE10 CALL PINADR:El DE.HL 

284 LD HL.(chengbf) 

285 CHENGE11 CALL IPEEF.:IF A=8 JP VRUIMI 

286 LD (DE).A:INC DE:IHC HL 

287 JR CHENGEU 

288 

289 BFCOHT : バッフ : r 内の文字 R 

290 ; in HL=buf Adr 

291 : out C-strinc siz« 

292 : des Acc.HL 

293 LD CJ:CALL IPEEK 

294 IF THEN 10 l.CiiV H.ArRET 

295 INC HL:INC C:JR BFCOUTO 

296 

297 cheniad OB 9 

298 ; - 

299 DElin : テキスト*去 

3ee 

311 CALL SPSKIP 

312 CALL CHKMUM:RET C 

383 CALL GETHUN 

384 PUSH HL 

305 CALL SPSKIP:CALl CHKHUM 

3«6 IF C THEM POP HL:RET 

317 CALL GETNUK:INC HL 

318 POP DE:EZ DE.HL 

369 LD (Mrkbf).HL 

316 CALL LIKADR:EX D£，HL 

311 CALL LINADR 

312 PUSH HL:SUB HL.DE:POP HL 

313 RET Z:RET C 

314 LD A.(HL) 

315 IF THEN LD (DE),A:JR DELTXT1 

316 PUSH HL 

317 LD BC.HL:LD HL.(endadr) 

318 SUB HL.BCtLO BC.HL 

319 FOP HL:RET C 

320 INC BC:LD1R 

321 DELTIT1 LD HL.(iarkbf):LD (lineno).HL 

322 CALL TXTPUSH:CALL SCRH1HIT 

323 JP CONLVLC 

324 ; - 

325 SWPTXT •テキスト交樓 

326 LD A.(DE):INC DE:CALL UPPER 

327 SUB "A M :JP C.iBELL 

328 IP A>=4 JP IBELL 

329 LD (SWPTW1),A:LD C.A 

33 磨 CALL SPSKIP:CALL UPPER 

331 SUB H A H :JP C.IBELL 

332 IF A>M JP IBELL 

333 IF A=C JP IBELL 

334 LD (S¥PTXW141).A 

335 CALL TEXTDAT:JP C.IBELL 

336 LD (SWPTXW2i2).HL:LD (SVPn\f3f2).BC 

337 LD A.(SWPTni):CALL TEHDAT:JP C.IBELL 

338 LD (SWPTXW2).HL:LD (SWPTXW3).BC 

339 LD HL.(SWPTXV3i2):X0R A:SBC HL.BC 

349 IF HC THEN INC A 

341 LD HL,(SVPTW2) 

342 IF AOB THEM LD HL,(SWPTIW2^2):LD BC.(SWPTIW3^2):LD DE.B 


343 IF THEM LD DE.(SVPTIW342) ELSE LO 0E.(S¥PTIW3) 

344 PUSH HL 

345 XOR A:CPIR 

345 POP BC:JP NZ.IBELL 

347 SUB HL.BC:EX DE.HL 

348 SUB HL.DE:JP C.IBELL 

349 LD HL.(SVPT1W3):ID DE.HL 

350 LD BC.(SWPTXW3f2):SUB HL.BC 

351 IF C THEN LD BC.DE 

352 ； 

353 LD HL,(SWPTIW2):LD DB.(SVPTIW2i2) 

354 SWPTXT1 LD A.(HL):EX AF.AF* 

355 LD A.(OB):LD (HL).A 

356 EX AF.AF^rLD COE).A 

357 INC HL:INC OE 

358 IF 0EC(BC)OI JR SWPTIT1 

359 ; 

361 LD A.(SWPTIW1):CALL FNADR 

361 PUSH HL 

362 LD A.(SWPTXW141)：CALL FNADR 

363 POP DE:LD B.26H 

364 SWPTXT2 CALL IPEEK:EX AF.AF* 

365 EX DE.HL 

368 CALL «PEEK:EX AF.AF*:CAIL IFOKE 

387 EX DE.HL 

368 EX AF.HF # :CAIL IPORE 

369 INC DE:IMC HL:DJNZ SVPTH2 

371 CALL SCRMIHIT.c:JP COHLVLC 

371 SVPTXV1 DB M 

372 SVPTXV2 DV 0.0 

373 SVPTIV3 M 0,0 

374 :. 

375 PRVSW : ウィンドウ T ライオリラィ切 }* 

378 CALL PRVIHIT 

377 LD A.(wprw*w):IP A : 寒 JR PRWSW1 

378 XOR A:ID DE.prvofarJR PRWSV? 

379 PRVSW1 INC A:ID DE,prvon_ 

381 PRVSU? LD (vprvtv).A:CALL COHINSX 
381 CAU CCMfPRT:JP CR.C 


AC9 4B 44 4B 50 59 

ACE B7 28 08 EO 5B 44 4B 

AD518 M ED 5B 42 4B 

ADB E5 

ADC AF ED B1 

ADF Cl C2 C4IF 

AE3 B7 ED 42 EB 

AE7 B7 EO 52 DA C4IF 

AED 2A 42 4B 54 5D 

AF2 ED 4B 44 4B B7 ED 42 

AF9 30 62 42 4B 

AFD 

AFD 2A 3E 4B ED 5B 40 4B 

B84 7E 68 

B06 1A 77 

BB8 8812 

B6A 2313 

B0C 0B 78 B120 F3 
Bll 

BU 3A 3C 4B CD 80 44 
B17 E5 

Bid 3A 3D 4B CD B0 44 
B1E 01 06 20 
821 CD 94IF 88 
B25 EB 

B26 CD 94IF 68 CD 9A IF 
B2D EB 

B2E 96 CD 9A IF 

B3213 2310 EB 

B3S CO 5? 33 C3 78 41 

B3C 86 ee 

B3E ee ee ee ea 

B42 ee ee ee ee 

B46 

B46 

B46 CD PC 33 

B49 3A D9 30 B7 28 08 

B4F AF 11 E8 3118 04 

B5S 3C 11 E0 31 

869 32 D9 3d CD BA ^ 

B5F CD C3 42 C3 4 ： 43 


47B4 

4784 3A 5C 30 CD B0 44 
47BA CO 94IF B? 28 A5 
47C8 3E 20 CD AA 4? 

4705 CD 94IF 23 

<7C9 B7 28 15 CD AA 4218 

4700 F4 

4701 3E 3A CD AA 42 
4706 11 AE 31 CD BA 42 
47DC CD Ee 39 CD C3 42 

47E2 CD A0 37 CD A9 3S 

47E8 FE IB CA 42 43 

47E0 FE 9D 2b 66 CD M 43 

<7F4 C3 65 47 

47F7 ED 5B IB 36 3E 94 CD 

A7FE A3 IF 

4886 CD 42 43 C3 6E 47 

4868 

4866 

4898 CD E9 35 CD 3? 36 
480C 36 66 CD 1? 36 22 5D 

4813 39 

4814 CD E9 35 

4817 2A 22 39 CO C5 48 D8 

48ie CO 3B 34 

4821 2A 50 30 E5 

4825 CO 84 32 CO EC 34 

482B El22 5D 30 

482P CD 97 33 

4832 CD 83 48 20 2C 

4837 AP 32 2E 30 CD E0 39 

483E CD BS 37 CD D137 

4844 CD 3B 34 CD hk 33 

484A CD 59 46 CD AB 37 

4656 CD A9 36 FE IB CA 78 

4857 41 

4858 FE 20 CA ?146 
4850 21 7E 31 34 
4861 Id CF 

4863 AF 32 7E 30 32 2E 30 
486A 2A 5D 3f 23 22 5D 36 
4871 ED 5B 5F 39 CD 76 34 
4878 ED 53 5F 31 1A 
4570 B7 21 12 
4861 C3 78 41 
4883 
4683 

4683 Zk 5F 31 3A 7E 30 4F 
488A 85 6F 38 0124 
488P EB 

4898 2A 22 39 CD 94IF 

4896 EB 

4897 

4897 F5 

4898 BE 20 «C 

4896 CD B3 48 26 97 
48A6 79 32 7E 30 
48M FI AF C9 
<8A7 

mi 7£ 23 1C 

48AA FE 26 3M3 FI18 E6 

4681 D1 C9 

4683 

48B3 

48B3 

48B3 

4883 

4883 EB 2A 22 38 

48B7 D5 

4888 CD 94 IF 

48BB EB BE 

486D EB 13 23 

48C9 28 F6 

48C2 El 

<dC3 B7 C9 

48C5 

48C5 

48C5 

<805 

48C5 

46C5 

46C51A 13 

48C7 FE 22 2618 

48CB 06 7P 

48CD 1A FE 0D 28 «B 

4802 FE 22 28 87 

4806 CD 9A IF 13 23 

48DB 18 F0 

<m AF CD 9A IF 

48E1 B7 C9 

<8E3 CD 94IF 

48E6 B7 37 C8 

48E9 B7 C9 

48EB 

4BEB 

48EB 2k 22 38 AF 

48EF 47 321C 4A 

48F3 CD 9A IF 19 FB 

48P81A FE 2F 26 M 321C 
IFF 4A 13 


132 

133 SAVES 

134 

135 

136 SAVE7 

137 


LD A.(nOMtxt):CALL FNADR 

CALL IPEEK:IF A=0 JR SAVE3 
LO A. M -：CALL COMIAPT 
CALL IPEEK:IHC HL 

IF *<>0 THEN CALL COHfAPT:JR SAVE7 

LD A. M :":CALL COMIAPT 
LD OE.s&ve?：CAlL CONIKSX 
CALL OFFSTR-.CALL COMIPRT 
CALL IHKEYCUR：CALL INKEYSUB 
IF A:1BH JP CR.C 

IF A<>0DH THEM CALL CR_C:JP SAVE3 
LD DE.(linebf):LD A.4:CALL IPILE 
CALL CfLC:JP SAVE4 


147 SEARCH :ストリングスサーチ 

148 CALL SPSKIP:CALl CHRHUM 

149 IF MC THEN CALL GETHUN:LD (hneno).HL 

150 CALL SPSKIP 

151 LD HL.(s8dchbf):CALL CHRSET:RET C 

152 CALL LIWSET 

153 LD HU(lifteno):PUSH HL 

154 CALL WIHDPOP:CALL EHDCHK 

155 POP HL:LD (Iineno),HL 

156 CALL WTITPRT 

157 SEARCH2 CALL SEARCHSB:JR HZ.SEARCH3 


158 

159 
169 


164 

165 


XOR A:LD (Loffs),A:CALl OFFSTR 

CALL PCD 肋 AT:CALL PLIHOAT 

CALL LIHSET:CALL TXTPRT 

CALL EDCUR:CALL IHREYCUR 

CALL INKEYSUB:IF A-IBH JP COMLVLC 

IF " JP E0IT1 
LD HL.pointar:IMC (HL) 

JR SEARCH2 


166 SEARCH3 XOR A:LD (pointer) .A:LD (Loffs).A 


167 

168 


LD HL,(lineno):lHC HL:LD (ltoeno).HL 
LD DE,(Une&dr):CALL HITLIH 
LD (limadr),DE:LD A.(DE) 

IF AOI JR SEA8CH2 
JP COMLVLC 


173 SEARCHSB •• 現在の行の pointer 以後をサーチ 


174 

175 


178 


179 SEAHCHSB1 
188 
181 
182 
163 

184 

185 SEARCHSB2 

186 

187 

188 
189 ; 

198 7SAME 


LD Hl.(lineadr):LD A.(point«r):LO C.A 
ADD A.L：LD L.A:IF C THEM IHC H 
EX DE.HL 

LD HL,(seachbf):CALL 翁 PEER 
EX DE,HL 

PUSH AF 

IF A く〉（机 ） JR SEARCHSB2 
CALL ?SAHE:JR MZ.SEARCHSB2 
ID A,C:LD (pointer).A 
POP AF:XOR A:RET 

LD MHL):INC HL:IHC C 
IF A>=20H THEM POP AF:JR SE 血 RCHSB1 
POP DE:RET 


197 

198 

199 
266 
261 
282 ; 

293 CHRSET 


:文字列照 6 

;in DE=string adr 
: out flog Z=5a«e 
;des Acc.HL.DH 
EX DE,HL:LD HL.(seachbf) 
PUSH DE 
CALL iPEEIC 

EX OE.HLrCP (HL) 

EX DE.HL:IKC OE:IHC HL 
JB Z.?SA«E1 
POP HL 
OR A:RET 


:文字列をバッファに * き込む 
284 : in DE=string adr 

205 ; HL-buff adr(S-OS work) 

206 ;out DE^string end adr+1 

207 ;des Acc.B.HL 

298 LD A,(DE):IHC DE 

209 IF A<>22H JR CHRSET3 

210 LD B.127 

211 CHRSET1 LD A.(DE):IF A=0DH JR CHRSET2 

212 IF A=22H JR CHRSET? 

213 CALL IPOKE:IHC OE:IHC HL 

214 DJNZ CHRSET1 

215 CHRSET2 XOR A:CALL IPOKE 

216 OR A:RBT 

217 CHRSET3 CALL IPEEK 

218 OR A:SCF:RET Z 

219 OR A:RET 

22t ;. 

221CHENGE :ストリングス匿き推え 

222 LD HL,(seacbbf):XOR A 

223 LD B V A:LD (cheng*d),A 

224 CHENGE1 CALL «POKE:DJNZ CHEHGE1 


225 


LD A.(DE):IF A=V THEN LD (cheniad).A:INC DC 


4901 CD E9 35 CD 

32 

36 


226 

CALL SFSKIP:CAIL CHKHUH 

4907 38 66 CD 12 

36 

22 

5D 

227 

IF NC THEN CALL GETNUH:LD (llneno),HL 

498E 38 
m? CO E9 35 




228 

CALL SPSKIP 

4912 Ik 22 31 CO 

C5 

46 

D8 

229 

LD HU(seachbf):CALl CHRSET：RET C 

4919 2k 24 38 CD 

C5 

46 

D8 

230 

LD HU(chen«bf):CALL CHRSET:RET C 

4921 CO 3B 34 




231 

CALL UNSET 

4923 3A 1C 4A B7 

28 

11 


232 

LD A.(cheng_d):IF A4 JR CHEMGE2 

4929 2A SD 39 E5 




233 

LD HL.(lineno)：PUSH HL 

4920 CD 84 32 CD 

EC 

34 


234 

CALL V!NDFQP:CALL EHDCHK 

4933 El 22 SD 31 




235 

POP Hl:LD (linano).HL 

4937 CD 97 33 




236 

CALL WTITPRT 

493A CD 83 48 26 41 



237 CHENGE? CALL SEARCHSBrJR HZ.CHEHGE5 

493F 3A 1C 4A B7 

28 

27 


238 

LD A.(cheng»d)：IF Ml JR CHEHGE3 

4945 AF 32 2E 30 

CD 

E6 

39 

239 

XOR A:LD (Loffs).A:CALL OFFSTR 

CALL PCURDAT:CALL PtIHDAT 

494C CD B5 37 CD D1 

37 


240 

4952 CD 3B 34 CO AA 33 


241 

CALL LIHSET:CALL TXTPRT 

4958 CD 59 46 CD A0 37 


242 

CALL EDCUR:CALL IHXEYCUR 

495E CD A9 38 FE 

IB 

2a 

38 

243 

CALL INKEYSUB:IF 森 =IBM JR CHEHGE6 

IF W ” JR CHEK6E4 

4965 FE 20 20 11 




244 

4969 CD C4IF 




245 

CALL »BEU 

496C CD 26 35 




246 CHENCE3 

CALL LIMTRS 

496F CD A3 49 38 

06 



247 

CALL CHEHGE7:JR NC.CHEHCE4 

4974 CO 81 36 C3 

9D 49 


?48 

CALL MEHQVR:JP CHEKGE6 

497A ； 17E 3¢ 34 




249 CHENGE4 

ID HL.pointer：INC (HL) 

JR CHENGE2 

497E 13 BA 




250 

4980 AF 32 7E 30 
4967 2k 5D 38 23 

32 

2E 

5D 

30 

30 

251 CHEHGE5 

252 

XOR A:ID (pointer)«A:LD (Lofts).A 

LD HL.(hneno):IHC HL:LD (lineno).HL 

498E £0 SB 5P 36 

CD 

76 

34 

253 

LD DE.(lmeadr):CAtL HXTLIH 

4995 ED S3 SF 30 

IA 



254 

LD (lineadr).DE:LD A.(DE) 

499A B7 26 90 




255 

IF A<>8 JR CHEHGE2 

4990 CD 87 33 C3 

78 

41 


256 CHENGE6 CALL SCRHIMIT:JP COMLVLC 

49A3 




257 


49A3 2A 22 30 CD 

6D 

4A 

EB 

258 CHENGE7 

LD HL > (seAChbf):CALL BFCOHT:EX OE.HL 

mk U 24 31 CD ID ik 4A 

259 

LD HL.(chencbf):CALL BFCOHT:LD BC.HL 

4981 4D 






49B2 S7 EO 52 26 43 



260 

SUB HL.OE:JR Z.CHEHGE10 

4987 38IF 




261 

: JR C t CHENGE8 

EX DE.HULD HL.(liaebf) 

4969 HB 2A 10 31 




262 


LO BC.0F£H:ADD HL.BC 




s 


2 9 2 8 9 0 2 0 3 A 9 0 F 3 
5 3 4 B 3 3 5 E 2 F 3 312 

EEC E E? C10 1EEEZ2C291F 
57D17B185DBBSA7116CDAD28 
E6CEBEO1ECEEE2BEC30C2C11 


ssF 


2 D 9 3 B 2 
c c 2 E 5 
5 6 6 516 I 5 5 D 
333 3 E 3 3 3 3 E 


8 0 D D 7 

3 A 2 8 9 3 1 
0 2 4 8 3 3 4 


9 2 2 9228A4478 8 D D 8 D A c 8 
E 31 E61E768BD 2 4EDC727 
DDD5O0D12DD58E 754713 AD3 
CCCEC3CO2CCEC7BE4BE02CC 


BAB D 

5 F 4 4 2 2 B 

5 F F 6 F F 4 3c 3 D 0 
311 pll c 4 c 4 B 4 

FC4C 4F C c c 1 E c e af 2 a 
DA2B5A24B48B B B c B 9 
CDD43DDC4344 4 4 3 4 8 
314C914ADC8CFE41E8 
1403E4IC3C 43134832 
A6E2D6E92D2A42A8A7 
1DP3CDFB3C23C2232B 


137CD236^9CE018E247AE18BDDDDDD28CCDODD0478E2688F279A016BD06CFFF49E28D269F6DF6CF2 
9c9c 9c 9c 9c 9D 9D 9o 9D(9D dD9D 9E9E9E9E9p 9F 9F 9F9F AeA8 ss A8AeA8 A0 AeAlAlAlAlAlAlAlAlA2A2A2A2A2A3A3A3 2 A3 M A4 M A4A5 A5A5A5 A5A6A6A6A6A6A6A7A7A7 A6A8A8A9A9 A9A9AA AA AA ABAB AB AC 
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// 

// 

// 

It 

柏 市 

// 

松戸市 

// 

横浜市 

// 

// 

// 

// 

// 

// 

// 

// 

// 

川崎市 

// 

// 

// 

// 

鎌倉市 

// 

横須賀市 
藤沢市 

// 

// 

茅ヶ崎市 
平塚市 

// 

小田原市 

// 

// 

厚木市 
大和市 
相模原市 


// 

宇都宮市 

// 

// 

小山市 
前橋市 

// 

// 

高崎市 

// 

// 

// 

太田市 

<首都圏〉 

浦和市 


く北海道〉 
札视市 

// 

// 

// 

// 

// 

// 

旭川市 
" 

苫小牧市 
く東北〉 
育森市 

// 

弘前市 

// 

八戸市 
盛岡市 

// 

// 

仙台市 

// 

// 

// 


須原屋コルソ店 

0488-24-5321 

相棋原市 

文教堂搞本店 

0427-74-5581 

押田謙文堂 

0486-41-3141 

// 

文教堂星ヶ丘店 

0427-58-6121 

ブックセンター押田 

0486-47-3141 

津久井郡 

文教堂城山店 

0427-82-9278 

三省堂ブックポート 
須原屋蕨店 

0486-46-2600 
0484-44-121 1 

く東京〉 
千代田区 

三省堂軎店神田本店 

03-233-3312 

岩渕窬店川口店 

0482 -52-2 190 

// 

害泉グランデ 

03-295-0011 

黒田窨店川越店 

0492-25-3138 

// 

東京堂窨店 

03-291-5181 

芳林堂所沢店 

0429-25-5355 

// 

旭屋書店水道橋店 

03-294-3781 

いけだ書店所沢店 

0429-28-3271 

// 

丸蕃お茶の水店 

03-295-558J 

黒田書店上福岡店 

0492-66-0120 

// 

巌翠堂 

03-291-1362 

文教堂朝霞店 

0484-76-0107 

// 

いずみ神田南口店 

03-254-8521 

新星堂志木店 

0484-74-0182 

// 

明正堂秋菜原店 

03-257-0758 

文教堂春日部店 

0487-52-7666 

中央区 

八重洲ブックセンター 

03-281-1811 

錦電サービス 

0492-96-2962 

// 

日本橋九蕃 

03-272-7211 

多田屋セントラルプラザ店 

0472-24-1333 

// 

旭屋窬店銀座店 

03-573-4936 

キデイランド千葉店 

0472-25-2011 

港 区 

害原新橋店 

03-59 卜8738 

港翠堂 

0474 -72-50 II 

// 

雄峰堂 N S 店 

03-503-6586 

ときわ軎房本店 

0474-24-0750 

// 

虎ノ門害房本店 

03-502-3461 

リブ〇船橋店 

0474-25-0111 

// 

虎ノ門窨房田町店 

03-454-2571 

旭屋窨店船橋店 

0474-24-7331 

品川区 

芳林堂大井町店 

03-474-4946 

芳林堂津田沼店 . 

0474-78-3737 

// 

明屋害店五反田店 

03-492-3881 

第二巌翠堂 

0474-65-0926 

渋谷区 

紀伊國屋害店渋谷店 

03-463-3241 

西ロアサノ 

0471-44-2111 

// 

旭屋害店渋谷店 
三省堂窬店渋谷店 

03-476-3971 

新星堂柏店 

0471-64-8551 

// 

03-407-4545 

堀江良文堂 

0473-65-5121 

// 

大盛堂窨店 

03-463-0511 

辰正堂駅ビル店 

0473-64-7997 

// 

紀伊國厘窬店笹塚店 

03-485-0131 

有隣堂トーヨー店 

045-311-6265 

新宿区 

紀伊國屋書店本店 

03-354-0131 

有隣堂東ロルミネ店 

045-453-081 1 

// 

三省堂窨店新宿西口店 

03-343-4871 

栄松堂相鉄ジョイナス店 

045-321-6831 

// 

福家窨店センタービル店 

03-345-1246 

そごうブックセンター 

045-465-2111 

// 

福家窨店野村ビル店 

03-342-0298 

丸善ブックメイツポルタ店 

045-453-6811 

// 

新星堂 N S ビル店 

03-344-2055 

有瞵堂伊勢佐木店 

045-261-1231 

" 

西武新宿ブックセンター 

03-208-0380 

有睇堂戸塚店 

045-881-2661 

// 

芳林堂高田馬場店 

03-208-0241 

文華堂戸塚店 

045-864-515! 

// 

未来堂 

03-200-9185 

アーバン文華堂 

045-82 卜5151 

»島区 

旭屋窨店池袋店 

03-986-0311 

文教堂靑葉台南口店 

045-983-5150 

// 

芳林堂池袋店 

03-984-1101 

有隣堂アゼリア店 

044-245-1231 

// 

リプロ池袋店 

03-981-0111 

有隣堂川崎 BE 店 

044-200-6831 

// 

三省堂書店池袋店 

03-987-0511 

文学堂本店 

044-244-1251 

// 

新栄堂本店 

03-984-2345 

ブックセンター文教堂 

044-811-5557 

// 

新栄堂アルパ店 

03-988-0181 

文教堂溝の口店 

044-811-8258 

台東区 

明正堂中通り店 

03-831-0191 

島森窨店大船店 

0467-46-3841 

墨田区 

リブロ綿糸町店 

03-846-0111 

鎌倉窨店 

0467-46-2619 

// 

ブックストア•談 

03-635-1841 

平坂軎房 WALK 店 

0468 -25-5537 

江東区 

新栄堂龜戸駅ビル店 

03-638-2345 

有隣堂藤沢店 

0466-26-1411 

江戸川区 

文教堂西葛西店 

03-689-3621 

リブロ藤沢店 

0466-27-01 11 

大田区 

アクトブックスサンカマタ店 

03-735-1551 

文教堂六会店 

0466-82-9610 

// 

竜文堂大森駅ビル店 

03-775-3851 

川上害店ルミネ店 

0467-87-3827 

中野区 

明屋耆店東京本社 

03-387-8451 

サクラ害店駅ビル店 

0463-23-2751 

杉並区 

ブックセンター获蓮 

03-393-5571 

文教堂四之宮店 

0463-54-2880 

// 

窨原杉並店 

03-313-4778 

八小堂害店 

0465-22-71 11 

武蔵野市 

紀伊國屋書店吉祥寺東急店 

0422-21-5543 

伊勢治 害 店 

0465-22-1366 

// 

弘栄堂吉祥寺店 

0422-22-1031 

文教堂小田原店 

0465-36-3677 

// 

パルコブックセンター吉祥寺 

0422-21-8122 

有隣堂厚木店 

0462-23-4111 

調布市 

真光 害 店 

0424-87-2222 

文教堂中央林間店 

0462-75-4165 

府中市 

啓文堂 

0423-66-3151 

文教堂相棋大野店 

0427-49-0650 

三鷹市 

三省堂窬店三鷹店 

0422-48-4510 


紀伊國屋窨店札榥店 

01 卜23卜2131 

旭屋窨店札幌店 

011-241-3007 

丸善札«支店 

011-241-7252 

リーブルなにわ 

011-221-3800 

冨貴堂札校パルコ店 

011-214-2303 

ダイヤ害房本店 

01 1-712-2541 

ダイヤ軎房西店 

0"-665-6223 

旭川 X 貴堂 

0166-26-3481 

ブックス平和マルカツ店 

0166-23-6211 

旭屋書店苫小牧店 

0144-36-5185 

成田本店 

0177-23-2431 

岡田軎店 

0177-23-1381 

紀伊 H 屋害店弘前店 

0172-36-4511 

ブックイン城柬 

0172-28-2882 

伊吉書院 

0178-44-1917 

東山堂ブックセンター 

0196-53-6464 

さわや窨店 

0196-53-4411 

第一窨店 

0196-53-3355 

金港堂 

022-225-6521 

金港堂ブックセンター 

022-223-0979 

アイエ窬店駅前店 

022-264-0718 

丸蕃仙台支店 

022-266-1127 

高山害店 

022-263-1511 

ブックスみやぎ 

022-267-4422 

三浦窨店 

0188-33-8131 

八文字屋 

0236-22-2150 

岩瀬害店コルニエツタヤ店 

0245-21-2101 

博向堂 

0245-2 卜1161 

東北窬店 

0249-32-0379 

ヤマニ害房本店 

0246-23-3481 

鹿島ブックセンター 

0246-28-2222 

川又窬店駅前店 

0292-3 卜0102 

ツルヤブックセンター 

0292-25-271 1 

武石書店 

0292-73-1212 

大野害店 

0292-82-2098 

なみき害店 

0299-96-1855 

共栄堂 

0298-21-6134 

九蕃筑波大学会館店 

0298-51-6000 

友朋堂吾妻本店 

0298-52-3665 

落合窨店オリオン店 

0286-34-3777 

落合窨店柬武ブックセンター 

0286-34-827! 

新星堂宇都宮店 

0286-33-2337 

進»堂駅ビル店 

0285-25-1522 

煥乎堂 

0272-23-1211 

リブロ前橋店 

0272 -34-1 011 

戸田窨店前橋店 

0272-61-5063 

学播香房 

0273-23-4055 

サカヰ書店 

0273-62-1500 

新星堂高崎店 

0273-27-3961 

戸田窨店高崎店 

0273-63-51 10 

ナカムラヤ 

0276-22-2001 

須原屋本店 

0488-22-5321 


日本ソフトバンクの 

書籍特約書店 


下記の書店の一覧は、日本ソフトバンク書籍特 
約店として右にある商品の低新刊もとりそろ 
えております。ご希望の商品がある場合は、下 
記のお近くの書店にてお買い求め下さい。 

(注)現品が売れて補充中の場合もございますので、 
ご主意下さい 0 


ISnk 


日本ソフトバンク出版事業部 

〒102東京都千代田区九段南 2-3-26 r 03 (261 )4095 


〔全国特約書店一覧） 
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姫路市 

// 

和歌山市 

// 

く中国〉 
岡山市 

// 

津山市 
広島市 
// 

// 

// 

尾道市 


丸善ブックメイツセントラルパーク 

052-971-1231 

福山市 

啓文社福山店 

0849-22-3111 

日進堂上前津店 

052-263-0550 

// 

ブックシティ啓文社 

0849-25-0050 

三洋堂パソコンショップ2 

052-251-8334 

福山市 

啓文社コア 

0849-41-0909 

三洋堂いりなか本店 

052-832-8202 

山口市 

五十部誠文堂 

0839-24-6630 

ちくさ正文館本店 

052-741-1137 

// 

文栄堂 

0839-22-5611 

白樺書房西店 

052-774-7223 

宇部市 

京屋窨店 

0836-31-2323 

精文館 

0532-54-2345 

// 

末広害店 

0836-3 卜0086 

ブックス鎌倉 

0564-54-1822 

防府市 

誠文堂国衙店 

0835-25-1988 

=洋堂梅坪店 

0565-35-2334 

光 市 

三文字屋 

0833-7 卜0251 

三洋堂刈谷店 

0566-24-1134 

烏取市 

寓士窨店 

0857-23-7271 

5洋堂勝川店 

0568-32-7806 

松江市 

圍山害店 

0852-21-4167 

自由書房 

大洞堂ブックス258 

0582-65-4301 

0584 -81-2553 

く四国〉 
徳島市 

小山助学館本店 

0886-54-2135 

大洞堂岐大バイパス店 

0584-74-7766 

// 

小山助学館東口店 

0886-25-1380 

三洋堂一宮店 

0586-77-5734 

// 

森住丸蕃 

0886-23-3228 

三洋堂可児店 

0574-63-2334 

高松市 

呂脇書店本店 

0878-51-3733 

三洋堂多治見店 

0572-24-0340 

丸龜市 

宮脇窨店丸亀店 

0877-22-5533 

別所書店 II ビル店 

0592-24-1014 

松山市 

紀伊國屋窨店松山店 

0899-32-0005 

文化センター白播 

0593-51-0711 

// 

明屋窨店本店 

0899-4 卜4141 

シエトワ白播スズカ 

0593-82-5221 

// 

明屋窨店大街道店 

0899-41-4242 

駸々堂京宝店 

075-223-1003 

// 

新居浜市 

丸三軎店 
明屋星原店 

0899 -3 卜8501 
0897-44-4000 

アパンティ，ブックセンター 

075-682-5031 

宇和島市 

明屋宇和島店 

0895-23-1118 

オーム社窨店河原町店 

075-22 卜0280 

高知市 

金高堂 

0888-22-0161 

ジュンク堂京都店 

075-252-0101 

く九州，沖網〉 


駸々堂大丸店 

0742-26-6241 

福岡市 

紀伊國屋窨店福岡店 

092-721-7755 

旭屋書店本店 

06-313-1191 

// 

り一ぶる天神 

092-713-1001 

紀伊國屋窨店梅田店 

06-372-5821 

// 

福岡金文堂 

092-741-2106 

オーム社書店大阪店 

06-345-0641 

// 

積文館新天町店 

092-78 卜2991 

駸々堂京橋店 

06-353-3209 

// 

金文堂朝日ビル店 

092-43 卜1094 

駸々堂心斎撟店 

06-25 卜0881 

北九州市 

ナガリ害店 

093-521-1044 

旭屋窨店ナンパ店 

06-644-2551 

// 

金栄堂 

093-531-3685 

ナンパブックセンター 

06-644-5501 

// 

旭屋窨店北九州店 

093-63 卜6421 

旭屋耆店アベノ店 

06-631-6051 

// 

井筒屋ブックセンター 

093-641-0131 

ューゴー窨店 

06-623-2341 

" 

カルパーク平野 

093-661-7988 

河村窨店 

06-951-2968 

If 

白石耆店本城店 

093-60 卜2200 

水嶋書房京阪デパート店 

0720 -51-3432 

久留米市 

エマックスたがみ 

0942-33-1841 

コーべブックス西武高槻店 

0726-83-1766 

飯塚市 

BOOK リード 

0948-25-7266 

ヒバリヤ害店本社 

06-722-1121 

大分市 

パルコブックセンター大分店 

0975-35-0643 

ジュンク堂センター街店 

078-392-1001 

// 

本町晃星堂 

0975-33-0231 

ジュンク堂サンパル店 

078-252-0777 

別府市 

明林堂 

0977 -23-0936 

海文堂窨店 

078-33 卜6501 

宮崎市 

田中書店中央店 

0985 -24-51 II 

日東館軎林 

078-39 卜8701 

// 

寿屋宮崎店 

0985-27-4111 

新興害房 

0792-85-3344 

佐*市 

金華堂北バイパス店 

0952-32-1965 

誠心堂耆店 

0792-81-2055 

// 

積文館デイトス店 

0952-23-7155 

宮井平安堂 

0734-31-1331 

長崎市 

メトロ窨店 

0958-21-5453 

帯伊窨店 

0734-22-0441 

// 

好文堂 

0958-23-7171 

紀伊國屋窨店岡山店 

0862-32-3411 

佐世保市 
熊本市 

紀伊國屋窨店熊本店 

0956-22-4214 

0963-22-5531 

丸善岡山支店 

0862-31-2261 

// 

BOOKS まるぶん 

0963-52-5665 

津山ブックセンター 

08682 -6-4047 

// 

長崎書店 

0963-53-0555 

紀伊國屋軎店広島店* 

082-225-3232 

人吉市 

明屋人吉店 

0966-22-5486 

丸善広島支店 

082-247-2251 

鹿児*市 

春苑堂ブックプラザ 

0992-25-3200 

金正堂 

082-248-3715 

// 

ブックスみすみ 

0992-57-1011 

積善館 

082-248-3151 

那覇市 

球陽堂書房ビル店 

0988-63-3752 

啓文社尾道店 

0848-37-5151 

// 

文教図書 

0988-62-1201 


三鹰渝 

東西書房 

0422-46-0275 

小金井市 

文教堂小金井店 

0423-86-0161 

国分寺市 

三成堂国分寺店 

0423-25-3211 

国立市 

東西害店 

0425-75-5061 

小平市 

文教堂小平店 

0423-43-9229 

東村山市 

文教堂東村山店 

0423-96-1115 

立川市 

オリオン窖房ウイル店 

0425 -27-23 II 

八王子市 

くまざわ書店本店 

0426 -25- 1201 

町田市 

有隣堂町田店 

0427-23-3018 

// 

久美堂本店 

0427-25-1330 

U 

久美堂小田急店 

0427-27-111 1 

// 

久美堂東急ハンズ店 

0427-28-2772 

// 

文教堂 a 川店 

0427-35-41 17 

// 

文教堂小川店 

0427-96-1781 

多摩市 

<まざわ窨店桜ヶ丘店 

0423-37-2531 

福生市 

文教堂福生店 

0425-53-7708 

〈信越*北陸〉 


長野市 

平安堂長野店 

0262-26-4545 

// 

長谷川畲店 

0262-26-2122 

上田市 

平安堂上田店 

0268-22-4545 

松本市 

ブックスロクサン 

0263-35-5555 

// 

改造社松本駅ビル店 

0263-36-3777 

飯田市 

平安堂飯田店 

0265-24-4545 

岡谷市 

笠原書店 

0266-23-5070 

諏訪郡 

平安堂下!®訪店 

0266-28-1111 

新潟市 

紀伊國屋窨店新潟店 

025-241-5281 

// 

萬松堂 

025-229-2221 

// 

北光社 

025-228-2321 

長岡市 

覚張窨店 

0258-32-1139 

// 

ブックセンター長岡 

0258-36-1360 

// 

長岡技大長峰文化 

0258-46-6437 

富山市 

瀬川書店 

0764-24-4566 

// 

清明® 

0764-24-4166 

// 

BOOKS なかだ里田店 

0764-32-1353 

// 

文苑堂本郷店 

0764-22-0552 

// 

文苑堂赤江店 

0764-33-0321 

高岡市 

文苑堂 

0766-21-0333 

// 

文苑堂横田店 

0766-21-0431 

金沢市 

うつのみや片町店 

0762-21-6136 

// 

窨林香林坊本店 

0762-20-5011 

野々市町 

王様の本本店 

0762-46-5325 

福井市 

勝木書店 

0776-24-0428 

// 

品川香店新田塚店 

0776-24-1112 

く東海〉 



静岡市 

静岡谷島屋呉服町本店 

0542-54-1301 

// 

江崎書店 

0542-54-4481 

// 

吉見書店 

0542-52-0157 

// 

戸田害店 S B S 店 

0542-81-5733 

// 

戸田書店曲金店 

0542-81-5899 

沼津市 

吉野屋 

0559-23-5676 

// 

マルサン窬店宝塚店 

0559-63-0350 

富士市 

戸田耆店富士店 

0545-51-5121 

清水市 

戸田書店本店 

0543-65-2345 

浜松市 

浜松谷岛屋連尺本店 

0534-53-9121 

名古屋市 

三省堂窨店名古屋店 

052-562-0077 

// 

星野窨店近鉄ビル店 

052-581-4796 


MS-DOS いたれりつくせり本 • 制0円 
プレイ MS-DOS •_ 円 

UNIX System V 

プログラマ • ガイド •12000円 

UNIX System V 

ユーザ •ガイド • 9800円 

C 言語の活用理解 WOO 0円 

C 言語の基礎知識 *2500 円 

C 言語の応用50例 • 2300円 

C プリプロセッサ•パワー • 2200 円 
Play the C 上巻 円 

Play the C 下巻 円 

8086アセンブリ言語 円 

8086マクロプログラミング • 2600円 
ビギニング MUMPS *260 0円 
マシン語マジックブック II ^2500^ 
マシン語プログラミング 

〒クニ ツ々 wooo 円 

巳 ASIC によるプログラミング 

スタイルブック*1 8 〇〇円 


c 展示図書一覧） 


ソーティング•ノート 

• 1900円 

巳 ASIC プログラム 


ジェネレータ集 

癱2800円 

98/88スモールビジネス 


プログラム集 

♦ 2500 円 

昍デスクアクセサリ集 

• 2000 円 

IDOS 活用八ンドブック 

• 2700 円 

DISK CHARGE 追補版 

• 1800円 

フロッピーディスク 


フル活用ガイド 

參2300円 

PC 工作入門 

• 1800円 

試験に出る X 1 

• 2800 円 

XI テクニカルマスター 

• 2500 円 

XI システム研究室 

• 2500 円 

新松ガイド 

• 2000 円 

一太郎 Ver .3 ガイド 

♦ 2500 円 

新一太郎ガイド 

春2300円 

一太郎ガイド 

參2000円 

桐 Ve 「.2 ガイド 

• 2500 円 

花子応用ガイド 

• 2500 円 


し otus 卜 2-3 ガイド • 2400円 

R □巳ファラオガイド •2900円 

ビジュアルラーニング RD 巳 w 弧円 
アセンブラ CASL 入門 •2000円 

八ードウエア徹底マスター wsoo 円 
FORTRAN 徹底マスター 參2800円 
特種情報処理試験 
総整理と徹底対策 •咖〇円 

情報処理の基礎知識 •_ 円 

ワープロ文書 F •〇 *P • 1200 円 

新聞記事八イテク切抜き法円 
バイト S ワードの風にのって 耱 1800円 

ワープロ考現学 •1200円 

電子ゲームの「快楽」 •_ 円 

厶ーグ•ノイマン•八ッ八 •_ 円 

RPG 幻想事典 • 1500円 

新明解ナム語事典 的〇〇〇円 

保存版 GS 倶楽部 • 1900円 
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UESTICDINI 



INISAA^ER 


XI と MZ-700 で S-OS の動作ス 
ピードがかなり（クロックの差 
以上の割合で）違うような気が 
するのですが， MZ などの S-OS も XI のハ 
ードにあわせるようなかたちで作られてい 
るのか，単に XI のハードが速いのか教えて 
ください。 東京都井上英治 

ちょっと面白い質問なので取り 
上げてみました。確かに XI の 
S - OS は比較的速く，特にゲー 
ムにぉいては圧倒的な速度を誇ります。し 
かし， S - OS は XI にあわせて作られている 
わけではありません。各機種ごとに最適な 
処理が行われているはずです。かといって， 
XI のハードが速いといってしまうのも語弊 
があります 。 「S - 0 S の実行に有利なハード 
構成をしている」程度の表現で抑えてぉき 
ましょぅ。 

XI が他機種と比べて特に速いのはキー入 
力です。多くの機種ではキースキャンを C 
PU が自ら行っているのに対して， XI では 
サブ CPU がキースキャンを行い，入力があ 
れば割り込みをかけます。このような仕組 
みですので，リアルタイムキー入力はほか 
のマシンとは比べものにならないほど速く 
なっています。この差はいくつか発表され 
ているシューテイングゲームで特に目立つ 
ことになります。クロックの差を除けば， 
XUMZ -700 の速度の違いは，ほとんど， 
キー入力部分での差だと思われます。 

また， MZ -700 には当てはまりませんが， 
多くの機種では VRAM をバンクメモリ上に 
置いていますので，文字の表示を行うため 
には，バンク切り換えをしなければなりま 
せん。 XI では VRAM は I / O 空間に置かれて 
いますので，このようなオーバーヘッドなし 
に文字の表示を行うことができます。今月 
発表されました 「 WINER 」 では画面表示を 
高速化するために， S - OS を介さないでテ 
キスト VRAM をアクセスするルーチンが各 
機種用に用意されますが， XI だけは専用ル 
ーチンを使わなくても，そこそこの速度で 
動作するそうです。 

勘違いされると困るので，つけ加えてお 


きますと，一般にメモリに対するアクセス 
のほう力 H /0 へのアクセスに比べて高速で 
あり，その意味では XI のように I/O 空間に V 
RAM を置いているマシンは絶対的な速度 
の点では不利です。たとえば，画面の全消 
去のような連続的な VRAM ァクセスを行う 
際には， MZ などでも「バンクを切り換え 
っぱなし」にしますので， XI よりも数段速 
く画面を消すことができます。 

結局，それぞれの方式に一長一短がある 
ということで，一概に XI のハードが速いと 
はいえないということなのです。 

X 68000 ユーザーです。 AD PCM 
についてですが，一度に複数の 
データを記憶させて，それを使 
い分けるにはどうすればいいのでしょうか。 
また，スペースハリアーのような 3 D のス 
クロール はどうすればいいのでしょうか〇 
PCM については完璧に答えてください。 
あとは気が向いたらでいいです。 BASIC ま 
たはァセンブラのリストつきで教えてくだ 
さい。 石川県阿部貴秀 

ひとつ目の質問は簡単です。ご 
希望どおり BASIC のリストつき 
で解説しましょう。このプログ 
ラムは AD PCM 1 というファイルと AD PC 
M 2 という2つのファイルをそれぞれ BUF 
FI ， BUFF 2 で表される配列に読み込んで 
おいて，キー入力を侍ち，スぺースキーが 
押されたら ADPCM 1 を，それ以外のキーな 
ら AD PCM 2 を鳴らします。気をつけなけ 
ればいけないのは10行で宣言している配列 
の大きさを読み込むファイルの大きさに比 
ベて十分大きく確保しておくことと，50行， 
80行で読み込むバイト数と140行，160行で 
実際に鳴らすバイト数を一致させる（後者 
が小さい分には可）ことぐらいです。難し 
いところはないと思いますので，あとはリ 
ストならびに今月の X 68000 BASIC 入門を 
参考にしてください。 

2番目の質問ですが，文面から察します 
に，まだ阿部さん力す踏み込んではならない 
領域ではないかと思えます。ご自分である 
程度試してみて，「ここまではできたのだが， 


あと一歩のところで行き詰まってしまった」 
というのであれば喜んでお答えするところ 
ですが，「試そうにもどこから手をつけてい 
いのかわからない」のであれば，まだまだ 
質問する レベルには 達していないというこ 
とをご理角军くた^さい。 

と文句を いいつつ， 少し気が向いたので， 
簡単に解答しておきます。 スペース ハリア 
一の 作り方です。まず，地面の スクロール 
ですが，何色かのパレットコードで縞模様 
を描いておき，パレットを切り換えること 
で，それらし〈見せることができます。た 
とえば，1~ 3のパレットコードで， 

1111111111111111111111111111111 
2222222222222222222222222222222 
3333333333333333333333333333333 
1111111111111111111111111111111 
2222222222222222222222222222222 
のような横縞を描いておいて，最初はパレ 
ットコード1と2が白，3が黒になるよう 
にパレットを設定しておくとします。ここ 
で，次の瞬間に2と3が白，1が黒になる 
ようにハ 0 レットを切り換え，さらにその次 
の瞬間には3と1を白，2を黒に変更する 
といった処理を繰り返せば，縞模様が動い 
ているように見えるでしょう。 3 D にしたけ 
れば，一定の割合で，遠くは縞模様の間隔 
を狭く，近くは広くすればそれっぽく見え 
るようになります。 

また，スペースハリアーのようにキヤラ 
クタの移動に伴って地平線を上下させたけ 
れば， X 68000 ならではのハードウエアスク 
ロールで 画面全体を上下に動かせばよいの 
リスト I 

10 dim char buffl( 1023 ),buff 2 ( 3839 ) 
20 int fp 
30 81 r ° 

40 fp=fopen("adpcml","r") 

50 fread(buffl,1024,fp) 

60 fclose(fp) 

70 fp= fopen ( "adpcm2" , r") 

80 fread(buff 2,384 0,fp) 

90 fclose(fp) 

100 while 1 

110 s=inkey$(0) 

120 if 8="" then continue 

130 if 8 = " .. then { 

140 a_play{buff1,4 f 3, 1024 ) 

150 ) else { 

160 a_play(buff2,4,3,3840) 

170 ) 

180 while inkey$ (0)0"": endwhile 

190 endwhile 
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です。パレットの切り換えと画商のハード 
ウヱアスクロ ー ルは非常に高速ですので， 
舉に スクロールさせる だけのプログラムで 
あれば， X-BASIC で書いても速すぎるほど 
のものができます。 

さて，たぶん，地面だけではなくキャラ 
クタにも遠近をつけたいのでしよう。これ 
も理屈は単純で，遠くのものほど小さく， 
近くのものほど大きくなるようにキャラク 
夕を描くだけのことです。ひとつのキャラ 
クタにつき，火きさを変えたい〈つものパ 
ターンを用意して使い分けることになりま 
す。また，画面にキャラクタが複数存在す 
るときには，重ね合わせが自然になるよう 
に遠くのものから順に描くようにします。 

以上の処理は BASIC でも書くことは可能 
です。もちろん，速度が非常に遅くなるの 
は目に見えていますし，仮に コンパイルし 
たとしても スペースハリアーの 域には到底 
及ばないでしようが，アルゴリズムの5萑認 
の意味で，一度試してみるとよいでしょう。 
そこまでできれば，あとはマシン語で書き 
菡し，ギンギンに最適化して，チラつきを 
なくす工夫，速度を一定にする工夫，デー 

リスト2 

0000 

0000 

0000 

0000 

0060 

Doee 

DO00 

0000 

oeee 

Dooe 

0000 

DO0B 

Deeo 

0000 AF 
D00167 
D002 CD 35 D0 
D005 3C 
D006 CD 35 DO 
D0O9 3E 67 
D00B 26 3E 
D00D CD 35 00 
0010 

D0ie 01 011A 
D013 3E 02 

oei5 cd ec eo 

0018 

0018 

D018 CD 4A 00 
D01B 2813 
MID ED 78 
D01F E6 02 
D02126 08 
0823 C2 28 D0 
D026 26 00 
D028 

D028 3B 08 
D02A CD 35 D0 
D02D C318 DO 
D030 
D03e 

0030 3£ 01 
D032 C3 BC 0D 
0035 
D035 
0035 05 
D036 01 00 1C 
D039 BD 79 
D03B 05 
D03C ED 61 
D03B Cl 
D03P C9 


夕傲を減らす工夫などを加えれば,「あっと 
いう間」にスペースハリアーができあがり 
ます。 （村田敏幸） 

よく XI 用のゲームソフトなどで 
PSG で音声を出しているものが 
あります0これはどうしたらで 
きるのですか。 神奈川県岡本浩 

これはけつこう昔から行われて 
いる方法なのですが，最近のゲ 
ームソフトでよく使われている 
せいか，質問が多いのでお答えしましょう。 
いうまでもなくコンピュータはデジタルで 
勋いているものですから，もともとアナロ 
グなものである音声をコンピュータから発 
生させるためには，アナログ(音声)—►デジ 
タル （コンピュータ）— アナログ(音源）とい 
う手順をふむことになります。 

要するにコンピュータから音声を出すた 
めには AD (アナ白ダ/デジタル）コンバー 
夕と ， DA (デジタル/アナログ）コンバー 
夕が必要になる わけです。 パソコンでもつ 
とも簡単にこれを実现させるためには ， AD 
コンバータとしてデータレコーダを， DA コ 
ンバータとして PSG などを用いるのがよい 




2 ； Voice by PSQ 

3 ; for XI CZ-8FB0UCB01) 


5 

6 ORQ 0D00OH 


8 CHTCOM 

9 BRKCHK 
0 

1 PORT2B 

2 PSGADR 


22 

23 


EQU 

EQU 

BQU 

EQU 

XOR 

LD 


CALL 

INC 

CALL 



CALL 


LD 

LD 

CALL 


CALL 

JR 

IN 

AND 

LD 

JP 

LD 

LD 

CALL 

JP 


LD 

JP 


PUSH 

LD 

OUT 

DBC 

OUT 

POP 

RET 


00DECH 

O004AH 

01A81H 

eiceeH 

A ；Init Ch.a 

H,A 

PSG 

A 

PSG 

A,7 

H,e3BH ；Ch.a ON 

PSG 

BC.PORT2B 

A»0O2H ；CMT play 

CMTCOM 


BRKCHK 

Z,JOBBND : Break-> End 

A,(C) : CMT data 

002H 

H,ee8H ；Voluae 8 

NZ t LOOPi 

H,00eH : Voluae e 

A.008H 

PSQ 

CMTLOP 


A.OeiH ；CMT atop 
CMTCOH 


BC 

BC, 

(C) 

B 


P8QADR 


(C),H 

BC 


S 露 fit reg• 

data 


でしよう。すなわち，音楽の入ったテープ 
を入れ，カセットからの入力が0 (そのと 
きの音量が規定値よりも低い）だったら P 
SG をオフ，入力が1だったら PSG をオン 
にしてやるのです。 

これを XI 用のプログラムにしてみたのが 
リスト2です。リスト2では入力されたテ 
ープの情報をそのまま PSG へと流していま 
すが，間にメモリをはさめば（テープ—メ 
モリ— PSG としてやる），自由に録音，再生 
ができることになります。 

しかし，データ レコーダ というものは信 
頼性を上げるためハイパスフイルタを使っ 
て記録帯域を狭くしているものもあり，さ 
らに0/1の1ビットでしかデータを扱わな 
いので，音質は非常に悪いといえます。 

音質を求めるためには，よりちゃんとし 
た AD コンバータを用意し，それをうまく P 
SG で再生してやることでしよう 。 『Oh ! F 
Mj 誌で採用されている HG - PLAY 文では4 
ビットの AD コンバータからサンプリングし 
た音を PSG の〇〜15の音量に割り当ててサ 
ンプリングドラムなどを実現しています0 
また ， AD コンパ、 ータ， DA コンバータとも 
に専用のハードにしたものが PCM 音源と 
いうわけです。 （華門真人） 


質問にお答えします 

日ごろ疑問に思っていること，どんなこ 
とでも結構です。どんどんお便りください0 
難問，奇問，編集室が総力を上げてお答え 
いたします。ただし，お寄せいただいてい 
るものの中には，マニュアルを読めばすぐ 
に回答が得られるようなものも多々ありま 
す。最低限，マニュアルは熟読しておきま 
しょう。質問はなるべく具体的に機種名， 
システム構成，必要なら図も入れてこと細 
かに害いてください。また ,返信用切手同封 
の質問をよく受けますが，原則として，質 
問には本誌上でお答えすることになってい 
ますのでご了承ください。なお，質問の内 
容 について， 直接問い合わせることもあり 
ますので，電話番号も明記してくださいね。 
宛先：〒102東京都千代田区 

九段南 2-3-26 井関ビル 
㈱ 日本ソフトバンク出版部 
「0 h ! X 質問箱」係 
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筆者名，誌名，月号，ページで構成されて 
います。マイコンショウ，ビジネスショウ 
で発表された新製品のニュースがにぎやか 
ですね。 
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この 本の主題は ひとつです。 「人間は機械であ 
り，行為のためにプログラミングされたロボット 
である j ということ。 著者は人間と いう 生物を肉 
体 だけでなく， 行為，思考，情緒や創造力でさえ, 
科学的に説明可能な ひとつのシステムだといつて 
います。ですから 本書の内容は多岐にわたり，生 
物学，心理学，哲学など豊富な知識が読むものを 
圧倒し ます。 確かに人間が そういう 科学的に説明 
可能な一種のサイバネ テイ ック システムだと した 
ら，それは機械であり，ロポットとなんら変わる 
ことはないでしょう。いまひとつ 論理的で なかつ 
たり しますが，そのまま 鵜呑みに してしまう と， 


かなり衝擎的な内容です。 

しかし，それはあくまでも理屈上の話であり， 
仮に心までが機械として説明できたとしても，そ 
れは遠い未来の話。そううまくいくなら人工知能 
研究者がこんなに困っているわけはありません。 
仮に心や行為の因果関係までわかり，チューリン 
グテストに合格するような知能ができた日にはい 
まよりずっと住みにくい世の中になっていること 
を，私は断言しましょう。 〇〇 

人間はロボットか 

Geoff Simons 著岡田弓子訳オーム社刊 
A 5 判変型259ページ 2,600円 S03(233)0641 
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ドコピーするプログラム。一古賀信 一， |/〇, 7 月号， 

259-263 PP . 

►なんでも Q&A Xl / XIturbo / X 68000シリーズ編 
turboCP / M でのブリンタ設定の変更の仕方。——シャ 
ープ，マイコン，7月号， 392-393 pp . 


X68000 

►涙なしの C 言語講座 

X 68000用の C 言語 XC と PC -980 1用の最新 C 言語 Tur 
boC の int 型の表現やレジスタ変数などの比較。 一 吉沢 
正敏， I / O , 7月号，139- I 4 lpp . 

►最新ソフトウヱア情報 

THE 福袋 V 2.0 を紹介している——編集部， I / O , 7月 
号， 296 p . 

► X 68000 WORKSHOP Information Shop 

ビジネスシヨウでデモンストレーションの行われた0 
S -9/ X 68000について簡単に紹介する。——古谷野和彦， 
ASCII , 7月号，26 Ip . 

► X 68 K Programmer’s Shop 

X 68000 用に登場した 0 S -9/ X 68000の概念，モジユー 
ル構造， 力ーネル等について。——古谷野和彦 ， ASC 
II ，7月号. 262-265 pp . 

► X 68 K Application Shop 

正規表現でテキストファイル中の文字列検索を行うプ 
ログラム XFIND を掲載。——宮本親一郎， ASCII , 7月 
号, 266-268 pp . 

►縮小印刷ソフト 

プリンタに縮小漢字を印刷するプログラム。 A 4 サイズ 
の用紙で ANK 文字が横180 x 縦|〇〇文字以上入る 。 C com 
piler PRO -68 K が必要、、——獨澄旻 ， The BASIC , 7月号, 
78-82 pp . 

► X 68000 2大新作ゲーム情報ドラゴンスビリット 
新作ゲーム「ドラゴンスピリット」の開発途中バージ 

ョンのエリア I , 2画面写真の紹介。——編集部，テク 
ノポリス， 7月号， 66-67 pp . 

► X 68000 2大新作ゲーム情報 R-TYPE 

アイレムが現在 X 68000 用に移植中のアクションゲー 
ム 「 R - TYPE 」 の開発中間報告。連続写真でステージ I の 
マップやステージ3の巨大戦艦の写真があり，「アーケー 
ド以上 j といわれるグラフィックの美しさがわかる。—— 
編集部，テクノポリス，7月号， 68-70 pp . 

► THE 福袋 V 2.0 を開けてみる 

福袋 V 2.0 に含まれるアセンブラ，リンカなどの新バー 
ジョンの旧バージョンからの変更点を解説。一高橋雄 
— ,マイコン， 7月号，187- 192 pp . 

► X 68000 マシン語入門 

連載第10章論理演算命令丨つひとつについてサンプ 
ルフログラムつきで解説.また I 0 CS コールについても 
BIOS 番号表を載せて いる ——高橋雄一，マイコン，7 
月号， (93-202PP, 


► X 68000 ゲーム情報 

X 68000 の 新作 ゲーム 「ドラゴン スピリット」の 開発途 
中 バージヨンの 画面写真。一編集部，マイコン，7月 
号， 2 l 7 p . 

► Z’sSTAFF PRO -68 K 

Z ' sSTAFF 使いこなし講座第3回。トーンやグラデーシ 
ヨンについての解説。——紀要介，マイコン，7月号， 
263-266PP. 

►なんでも Q&A XI / XIturbo / X 68000シリーズ編 
X 68000 で使用可能である純正以外のプリンタについ 

て。-シャープ，マイコン，7月号， 392 p . 

►なんでも Q&A XI/XI turbo/X 68000シリーズ編 
X 68000 でファンクシヨンキーの内容を変える方法に 
ついて。——シャープ，マイコン. 7月号， 393 p . 

►誌上公開質問状シャープ( XI ) 

X - BASIC でプリンタにコントロールコードを送る場合 
などについて。——多田太郎，マイコン BASIC Magazi 
ne , 7月号， 72-73 pp . 

► X 68 K グランプリ FI レース 

マウスを使って車を操作するレーシングゲーム。—— 
樋口裕司.マイコン BASIC Magazine , 7月号，1 99-20 Ipp . 

► THE GAME MUSIC PROGRAM グラディウス II 

ゲームミュージックプログラム。- Yu - You , マイコ 

ン BASIC Magazine ， 7月号， 208-210 pp . 

► X 68000 新聞 

今月のテーマは「眼にしみるグラフィック 」。 また，リ 
ターン.ォブ • イシターなど新作ソフトの開発着手を紹 
介。——編集部， LOGIN , 7月号， 226-23 Ipp . 

ポケコン 

PC -1360 

►漢字ミニ データベース プログラム 
PC • 1360の漢字 BASIC で作られたデータペースのプロ 
グラム。プログラムの説明もある。——塚田洋一，マイ 
コン，7月号， 360-364 pp . 

PC -1445, PC - E 200 

► CASL 太鼓判 

CASL 入門講座の最終回。 PUSH , POP , CALL , RET 命令 
についての解説。 —— 塚田洋 一, マイコン， 7月号， 365- 
369 pp . 

PC -1500 

► DRAGON 1500 

先月の ァフターバーナー もどきに続いて，今月はドラ 
ゴンバスター もどきの 登場。 ——桐山直己， マイコン 
BASIC Magazine , 7月号， 205-206 pp . 



決定を支採する 

決定というのは至極一般的な日常行為である。 
本害で問われているのは，決定すること自体とい 
うより「よりよ い 意思決定を行う」ことであり， 
そのためには人間は習憒的な行為の一歩外に立つ 
必要があること，場合によっては問題の認知その 
ものを変えねばならないことを示している。コン 
ピュータシステムは，こうした人間の意思決定を 
支援するもの，つまりデシジョン•エイドとして 
その役割が考察されている。 

小橋康章著市川伸一補稿東京大学出版会 
A 5 判 222ページ 1,800円 803(81 1)8814 
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ニューラルネットワーク情報処理 

「コネクショニズム入門，あるいは柔らかな記号 
に向けて」という副題のある本書は，高度並列分 
散情報処理を紹介する専門的なものである。 

人間の脳における情報処理システムの原理が注 
目され始めて以来，情報理論の研究は並列処理の 
新しい可能性を探ってきた。ここでは，並列分散 
処理の基礎的な解説から，そのメカニズムと認知 
科学や人工知能分野への応用，さらに情報処理に 
おける「記号 j とは何か，という問題に触れている。 
麻生英樹著産業図書刊 
A 5 判198ページ2,200円 003(261)7821 
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1 月号 

特集 MZ&X 拡張ポードの活用 

すべての道は I / O に通じる/ MZ で XI 用ポードを使う 
1987 年度 GAME OF THE YEAR ノミネート発表 

• MZ - 2500用 ALGO SPACE BLUSTER SG 

• LIVE in '88 ドラゴンスピリット/悲しきチェイサー 
BASIC リレー連載半熟 FORTRAN はいかが 
X68000BASIC 入門グラフィック炎上 

マシン語体操卜2*3データ構造を考えよう 
全機種共通システム Fuzzy BASIC コンパイラ奥村版 



フ月甚 

特集実践 C 言語からの誘惑 

入門 C 言語/実録 C プログラミング / XBAS to C 
THE SOFTOUCH ソーサリアン / ゼリアード/アルギース 
の 翼/ SUPER 大戦略/3大麻雀ソフト他 
• Oh!X LIVE in .88 /SHORT A 〇 CESS 
新 連載 C 調首語講座 PRO-68K まずは print f より始めよ 
あなたの知らない世界 0 S -9/ X 68000 /Sampling PRO -68 K 
全 機種共通 システム構造化言語 SLANG 入門⑵ 

マルチウインドウドライバ MW-I 




7 K ックナンパー案内 


ここには1987年8月号から1988年7月号までをご紹 
介しました。現在，1987年2, 3, 4, 5, 7, 8, 9, 10, 11,12, 
1988年1,2, 3,4, 5, 6, 7までの在庫がございます。バ 
ックナンバーおよび定期購読のお申し込み方法につ 
いては，本文172ページを参照してください。 



8月号 

特集迷宮の日本語処理環境 

MZ - 2500用ワープロプログラム Super ものかきくん 
書式ユーティリティ C 0 LN / らくらく SYMBOL 他 
試験に出る XI 最終回通信プログラムである 
X68000BASIC 入門第 1 回めぐりあい X-BASIC 

• XI / turbo 用パズルゲーム STAR PANIC 

• Z’sSTAFF PRO 68 K の世界 

X 68000 あなたの知らない世界 SOUND PRO 68 K 他 
全機種共通システム FM -7/77 版 S -0 S “ SW 0 RD ” 他 

9月号 

特集 1 MZ-700 に不可能はない 
MZ -700 ゲー厶テクニック集 / SPACE BLUSTER SG 
特集2ミュージックデータと遊ぶ FM 音源の世界 
MZ - 2500 MML の拡張/ X 1/ turbo 用 MML コンバータ 
X68000 あなたの知らない世界マシン語入カツール 
BASIC リレー連載ディレクトリまるごとコピー 
參 XlturboZ , X 68000 用ハードコピープログラム 
全機種共通システム PC -80/88 版 S - OS “ SWORD ” 

リロケータブル逆アセンブラ Inside-R 



2月号 

特集グラフィック画像の冒険 

XI /turboCG アニメ/トリフォニーで立体モデル 
X 68000 グラフィックデータ / QUICK MZ PAINT 他 
X 68000 あなた咖らない世界辞書構造 WORD POWER 
マシン語体操卜 2.3 Lisp インタプリタ （1) 

• NEW Z - BASIC 詳報その名は Z-BASIC 

• LIVE in '88 グラディウス2 

• SHORT ACCESS THRILLING/POM カードポーカー 
全機種共通システムシューティングゲーム ELFES 

3月号 

特集コンピュータサウンド“楽’’入門 
XI /turbo MIDI インタフェイスの製作 
MZ - 2500 Super Keyboard / VIP サウンドデータ公開 
Oh!X LIVE SPECIAL 組曲 「 Ysj/Raspberry Dream 他 
THE SOFTOUCH Might and Magic/Hyper UD 
オブジェクト指向のゲームプログラミング 
X 68000 BASIC 入門奇襲アニメ作戦 
X 68000 あなたの知らない世界未公開 I 0 CS の解析 
全機種共通システム構造型コンパイラ言語 SLANG 



io 月号 

特集 Game Design を考える 

遊びを設計するために/ピコピコゲームが原点他 
投稿ゲーム4選 

ミユージックプログラムベートーベン月光 
THE SOFTOUCH SPECIAL イース/ウルテイマ IV 
X68000 あなたの知らない世界 BASIC to C コ ン バータ 
X68000BASIC 入門追擎ランダムファイル 
全機種共通システム FuzzyBASIC コンパイラ拡張版 
XI turbo 版 S -0 S " SW 0 RD，，/tiny CORE WARS 

11月号 

特集1全機種共通システム S - OS 再考 

超入門 S -0 S / ファイルアロケータ&ローダ 
FuzzyBASIC コンパイラ版 BACK GAMMON 
特集 2 MZ - 2500 スペシャル逆襲のアルゴ機能 
アルゴブロック崩し/アルゴリズムを作ろう 

• MZ - 2500カードゲーム KING'S COURT 
THE SOFTOUCH X 68000 用 Kamikaze / MZ -2861 用 

up シリーズ / トリフォニー/りバイバー他 
X 6800 D あなたの知らない世界 CP / M -68 K / TITLE . SYS 

^OhlX 12月号 

特集正真正銘の Oh ! CZ SPECIAL 
新製品速報 XI turboZ II / X 1 twin / X 68000 
X 1/ turbo システム&プログラミング 
NEW Z - BASIC/C compiler PRO -68 K 
人類タコ科図錐第1回 Jap meets Yankee 
実用 （ ？ ） オブジェクト躺のゲームプログラミング第1回 

• XI/turbo 用カードゲーム SPEED 

• X 68000 フアイルコ ン バータ MACS/HELPS 
全機種共通システム PASOPIA 7 版 S -0 S “ SW 0 RD n 他 





4 月号 

特集不思議の国のゲーム学 

決定！ 1987 年度 GAME OF THE YEAR 

ピコピコゲーム春場所/ GAME REVIEW 丨〇本他 
新製品 X68000ACE HD/ カラースキャナ CZ 8NSI 
X68000 あなたの知らなぃ世界 microEMACS の移植 

• MZ 700 SPACE BLUSTER FX 

• LIVE in ’88 Moonlight Serenade/Long Night 他 
全 機種共通 システムデバッギングツール TRADE 

シミュレーシヨンウォーゲーム MLRUS 

5 月号 

特集 BASIC 入門「再検証」 

BASIC の歴史と意義/栄光の HuBASIC 
黄金の BASIC 入門プログラム/プログラミング用語集 
ミ ュージ ックブログラマへの道/レイト レー シング 
特別企画言わせてくれなくちゃだワ 
• 新製品 X68000ACE/ACE-HD 

• LIVE in '88 GET WILD/BOOM BOOM/SDI 

• SHORT ACCESS 3D ポクシング/マシン語データ文生成 
全 機種共通 システムシューテイングゲーム ELFES 

B 月号創刊6周年記念 

特集システム環境を考える 

8 ビットパソコンの開発琛境/ Human68k のシステ 
ム環境んンステムを読むためのアセンブラ入門 
特別企画究極の 8 ビットパソコン 8R0N 計画 
THE SOFTOUCH X68000 用日本語ワープロ EW 他 
♦付録「あぶなぃ福袋」 

マシン 語体操い 2*3 番外 編 Lisp80 入門 
X68000BASIC 入門捨て身のミュージック 
全檐種共通 システム構造化言語 SLANG 入門他 
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NEW PRODUCTS 


カラー ビデオプリンタ 

GZ - P 21 

シャープ 

ビデオやテレビ，パソコンなどの映像情 
報をフルカラーで記録するビデオプリンタ 
GZ - P 21(198, 000円）力 5 '，6月10日よりシャ 
ープから発売された。 

プリントサイズは最大 100 x 80 麵で，縮小 
モード （79 x 60 mm ) と2画面モード （79 x 50 
mmX 2 画面）のプリントができる。また， 
デジタルマルチ機能により，1枚の印画紙に 
4画面/25画面のプリントをすることも可能。 
用途に応じてランニングコストの安い白黒 
シートも選択できる。 

簡単なスイッチ切り換えひとつで，左右 
反転（ミラー）プリントモードにできる機能 
も持っている。 

イェロー， シアン，マゼンタの3色面順 
次印画で，各色64階調，プリント画素数は 
縦478 x 横600ドット。 

動画入力時は，内蔵の高画質デジタルフ 
レーム/フイールド メモリにより，瞬時に静 
止画としてメモリし，プリントする。 

アナログ RGB (21 ピン）， S ビデオ入力端 
子っき。 

印画用シートインクセットは100枚で9,0 
00円，ハガキ用20枚で3,500円，白黒シート 
は100枚で1,500円。 

く問い合わせ先〉 

シャープ ㈱ S 06(621)1221,03(260)1161 


GZ-P2I 



カナ文字でデータ管理 

電子カナメモ PA-175/375 

シャープ 

シャープは，電子メモシリーズの新製品 
として， PA -175/375( 各5,000円）を7月7 
日より発売した。 

これらの電子メモは，カナ文字で最大160 
人分の名前と電話番号を記憶させられ，50 
音順に検索できる。データ1件につき最大 
60桁までの番号を入れられる。 

ほかにも日付 • 時刻.用件などを記憶す 
る スケジュール 機能，データを秘密にする 
シークレット機能，記憶させたデータを呼 
び出して使うこともできる10桁計算機能な 
どを備えている。 

表示は12桁 x 2行でリチウム電池1個を 
使用。 

PA -175 は厚さ 2.3 mm という薄型で連続表 
示1500時間， PA -375 は手帳タイプで連続表 
示2000時間。 

く問い合わせ先〉 

シャープ ㈱ 006(621)1221,03(260)1161 



ワンタッチで自動ダイヤル 

電子ダイヤラー PA -600 

シャープ 

シャープは，6月21日から電子ダイヤラ 
一 PA -600(12, 800円）を発売した。 

PA -600 は，送話口に直接取りつけて信号 
を送るもので，市外局番を自動的にとばし 
てダイヤルするなど，ワンタッチで電話が 
かけられる。 

また，新電電各社の回線を使い外出先な 



どからクレジットコールをかけることもで 
き，この場合は自分のクレジットコール番 
号や相手先番号を記憶させて自動的にダイ 
ヤルできる 0 

10 桁 1 メモリの電卓機能や，最大約 560 人 
分の 電話番号を 記憶 させてぉく電話帳機能 
もある 。 

表示部はカタカナ12文字 X 2行。サイズ 
は幅66 X 奥行き 139 X 厚さ 11.4 mm , 重量 93 g 。 
く問い合わせ先〉 

シャーフ。 ㈱ 006(621)1221,03(260)1161 

アナログカラーデ'ィスプレイ 

CU-2100/14ED 

シャープ 

シャープは， 21 インチのアナログ カラー 
ディスプレイ CU -21 CD をこの8月に発売す 
る。価格は未定。入力信号周波数15/24/31 
kHz 自動切り換え，3モードマルチスキャ 
ン方式採用。解像度は640ドッ 1^ X 200/400 
/512ラインでワイドスイッチ装備。 

また， 14型の アナログカラーディスプレ 
イ CU -14 ED (79,800 円）も発売中で，こち 
らは 15/24 kHz 自動切り換え， 2 モードマ ル 
チスキャン方式採用，ワイドスイッチつき。 

これのデイスプレイは発売予定のシステ 
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ムチューナー AN -8 TU (35,800 円）を接続 
するとテレビ受像機にもなる。対応機種は 
XlturboZ ， X 68000 ( CU _ 14 ED では不可)， 
PC -8801/9801 シリーズなど。 

く問い合わせ先〉 

シャープ(株）006(621)1221， 03(260) 1161 

ノートワープロ新製品 

ワード 八'ン クノー ト2 

セイコーエプソン 

A 4 サイズのワードバンクノートがバ、ージ 
ョンアップして登場。新製品ワードバンク 
ノート 2 (74,800 円）は 6 月 14 日にセイコー 



ワードバンクノート 2 


エプソンから発売された。重量 1.2 kg 。 

価格は5,000円ァップして通信機能を標準 
装備し，プリンタの対応機種を増やした以 
外は最初のバージョンと同じもの。 

通信機能としては，300から9600 bps に対 
応し，シフト JIS 漢字コード採用， ID やパ 
スワードを12力所まで登録してオート ログ 
インできる。 スクロールバッファは 全角文 
字にして約6,000文字分。 

辞書は複合語や固有名詞を含め約13万語， 
JIS 第2水準漢字を装備，一括変換は最大200 
文字まで。 

計算機能，住所録機能，スケジュール管理 
機能などを持ち，またワードラップやジャ 
ス テイフイ ケーション機能があるので欧文 
ワープロとしても使用できる。 

内部メモリは約 18 K バイトで A 4 サイズの 
原稿を約9ページストァできる。標準装備 
の外部記憶装置には 1 C カード （32 K バイト6, 
000円, 8 K バイト3,000円）でデータを保存 
する。 

STN 液晶デイスプレイでガイドラインの 


ほかに40文字 x 5行が表示できる。 

プリンタケーブルは別売 (5,000 円）。 
く問い合わせ先〉 

セイコーエプソン ㈱ 00266(52)3131 

プリンタ2種装備 

キヤノンワードボーイ PW - 90 

キャノン 


ワードボーイ PW-90 



本体プリンタとハンディプリンタの2つ 
を標準装備した日本語ワープロ•キヤノン 
ワードボーイ PW -90(54, 800円）がキヤノン 
より6月10日から発売された。 

ハンディプリンタは，コピー感覚で印刷 


XVciam 


恐慌が続< _ 

先月号で，4 M ビットダイナミック RAM 
( DRAM ) の話をしたが，ご承知のとおり， 
いま全世界的にメモリが極度に足りない。 
作っても作っても不足という状態で，メモ 
リの大恐慌になっている。 

これではとても4 M 時代の夢を見ている 
余裕はない。 

品物別に見ると 256 K ビットの DRAM ， 1 
M ビット DRAM , 256 K ビットのスタテイツ 
ク RAM ( SRAM ) などで， RAM が全般的 
に不足している。 

早い話がニーズが高い先端商品が軒並み 
不足しているということである。この半導 
体不足，いろいろな現象を巻き起こし始め 
た。並べてみよう。 

氺 * 

PC - 980 1が買えない 

日本電気が4月に発売した新型の98，つ 
まり PC -9801 UV 11/ CV 21/ LV 21 がいつま 
でたっても店頭に並ばない。ふと気がつく 
と，先日まであったはずの VX 21 も XL 2 も 
なくなっている。さらには奇妙なことに， 
あって当たり前の割引値札がなくなってい 


る……〇 

これ，メモリ不足で日電の生産が追いつ 
かないため。もちろん日本電気でも生産し 
てはいるが，企業向けや予約客の注文残を 
こなすのに精いっぱいで，とてもシヨッフ。 
に割り当てるには至らない。 

さらに状況は悪化しており，いまから予 
約したとしてもいつ買えるかわからないそ 
ぅだ。 

DEC か# VAX を値上げ 

メモリの調達費用がかさむため， DEC は 
VAX の価格を6月出荷分から5パーセント 
前後の幅で値上げした。中小パソコンメー 
力一やワークステーシヨンメ _力一も同様 
の値上げを順次開始している。 

危険なメモリが出回る 
TI の TTL を DRAMAT といって売りさは、、 
た業者が現れたことは有名な話。そこまで 
いかなくても，不良品や古い パソコンから 
外した DRAM が出回っている。 

とくに人気があるのが，メルコの増設 R 
AM ボードから外したメモリ。うまく外し 
たものに当たればラッキーだが，ピンが欠 
けていたり死んでいたりするものも当然あ 
る0もともと秋葉原のスポット市場にはメ 


一力一はほとんど卸していないので，買え 
るという話を聞いたらまず危ないと疑うこ 
とが必要だという。それでも敢えて手を出 
すほど不足は深刻なのだ。 

休業状態の会社も 

米国，大手，大口というのが優先客。こ 
うなるとますます入手できないのが，一品 
料理を得意とするシステムハウスや周辺機 
器メーカー，そして中小。したがってこう 
した企業では，注文を受けても材料がない 
ことには製造できないので，ハード部隊は 
開店休業状態にしてソフト開発で喰いつな 
いでいる。 

まだまだ深刻な影響を受けている話はあ 
るが，こんな感じで食糧難ならぬメモリ難 
の様相が完全に定着してしまった。ニセ物 
の横行や再生製品の登場に至っては完全に 
戦後の闇市的感覚だ。 

ポロ儲[けの半導体メーカー1 

メモリがここまで足りなくなった理由だ 
が，おおむね3つ考えられる。 

まずは，各メーカーが4年前にメモリを 
余るほど作ったために過剰在庫になりダン 
ビング販売競争に至ってしまったので，今 


162 Oh! X 1988.8. 















したいところに当ててプリントできる。 

辞書は固有名詞などを含め約60,000語， 

イラスト241種類を内蔵している。 

最大40文字までを一括変換し，英語など 
5力国語に対応する欧文ワープロとしても 
使用でき，また最大99人分を登録できる住 
所録管理機能を備えている。 

液晶ディスプレイは8文字 X 2行，内部 
メモリの記憶容量は， A 4 サイズ原稿にして 
約3枚分。 

このほか，オプションでイメージリーダ 
(20,000円）や，48ドットの毛筆と96ドット 
のイラストパターンが使える毛筆•イラス 
トパック（5,000円），40種類のイラストがハ 
ンディプリンタで印刷できるイラストパッ 
ク（5,000円），外部記憶用メモリカード（3,0 
00円）などが用意されている。 

本体プリンタは熱転写式で24 X 24ドット。 
本体サィズは幅348 X 奥行き288 X 高さ 84 mm ， 
重量 2.2 kg 。 

く問い合わせ先〉 

キヤノン ㈱ 003(348)2121 


BOOK 


X 6 B 000 活用研究 III 

電波新®土 

月刊マイコン誌別册の X 68000 活用研究シ 
リーズ第3弾。 II の X - BASIC マスター編を 
受けたもの。 X - BASIC のインストール，0 
S とのインタフェイス，エディタ，構造化 
プログラミングなどに関する解説。 

『 X 68000 活用研究 III X - BASIC 活用 Q & A 』 
塚越一雄著 

B 5 判，230ページ，2,000円 
く問い合わせ先〉 



電波新聞社 003(445)6111 


X 68000 
活用研究 III 


X 68000 3 D グラフイツクス入門 

ビー •ェヌ•ェヌ 



X 68000 3 D 
グラフィックス 
入門 


X 68000 を使って画面上に図形を描いてみ 
ようという本0 XC で記述したオリジナルの 
グラフィックライブラリを使って，立体図 
形の表示の仕方や動かし方を説明している。 
最後の第 III 部では3次元ダラフィックを行 
う上で必要な知識を述べている力す，注釈が 
ふんだんにありすぎて少々読みにくい。 
『 X 68000 3 D グラフィックス入門』 

ビー•エヌ•エヌ第2企画部編 
B 5 判，212ページ，2,200円 
く問い合わせ先〉 

㈱ ビー•ェヌ•ェヌ 003(238)1321 


回は各社が少なめに作っていること。次に， 
通産省がダンビングにならないように価格 
と生産量をチヱックしているのでさらに少 
なめになってしまうこと。そして3つ目は 
外国のメーカーが4年前に量産競争で敗退 
したため今はほとんどの外国メーカーでメ 
モリを作っていないこと0このベースにな 
っているのは1986年の9月に日本と米国の 
間で結ばれた日米半導体協定だ。 

つまり「必要な量だけ適正にメモリを作 
りましょう」ということなのだが，おかし 
なことには必要最小限なだけしか各メーカ 
一が作らなくなってしまった。 

メモリは，需要と供給量で市場価格が決 
まる「時価 j の市況商品だ。したがって品 
物が多いときには安いが，足りなくなって 
<ると高くなるという性質がある。そうな 
ると各メーカーが生産を抑えれば当然市場 
で不足してくるし，価格も下がらない。価 
格が下がらないから量産する必要もでてこ 
ない。 

いかにも初歩的な経済原則にのっとった 
商品だが，このせいでメモリの値段はこの 
1年でほとんど下がっていない。メーカー 
はボロ儲けし，一方では品物が足りないの 


でブラックマーケットが横行して犯罪が増 
えてきた，ということだ。 

いま適正価格は 256 K DRAM が1個350円 
前後なのだが，時価は実に1，200円もする。 
それでもまとまった量は手に入らない状態 
だ。1メガも同様で1個2,000円のものが4,0 
00円以上する。1メガなど本来は1個1，500 
円以下まで安くなっていて当然なのだ。そ 
れだけ不当にメーカーは儲けていることを 
示している。 

し、つまで続くか？ _ 

このようなおかしな状態がいつまで続く 
かが肝心なところだが，各種予測によると 
現時点に比べて年末時点では 1 M DRAM は 
7割から8害 lj ほど多めに生産される。 256 K 
DRAM は逆に1割から2割ほど減る。これ 
で需要が満たせるかどうかがポイントだ。 

結論からいえば，状況としては改善され 
るものの相変わらずメモリ不足は解消しな 
いだろう。ブラックマーケットは-向に減 
らないようだし，価格もそう安くはならな 
いずだ。 

まあ，現在のようなおかしな状態は減っ 
てくるだろうから秋には98もちゃんと買え 


_大特集：メモリが足りない 1 988-08 

るようになる程度には回復するだろう。と 
はいっても OS /2 も出てくるし，ワークス 
テー シヨ ンや バソコ ンで標準メモリ容量が 
4 M バイト，5 M バイトとグングン増えて 
いるところをみると，ひょっとしたらさら 
に不足が激しくなるかもしれないという懸 
念も出てくる。 

なお，今回のメモリ SdS でいちばん喜ん 
でいるのは PC -9801 関係者かもしれない。 

というのは互換機，対抗機がどんどん出 
てきて相当な苦戦を余儀なくされているは 
ずだったのが，しばらくは VX で殿様商売 
ができているのだから。このメモリ不足に 
よる恐慌状態は確実に98の寿命を1年延ば 
したことになる。 

今月はコンピュータ関係で目立った動き 
がなかったので，このようにメモリの話で 
お茶をにごしておくことにした。 I はいっ 
てもこのような状況も•なかなか興味深いと 
思う。次回はちゃんとコンピュータの時評 
を書く。 

こうした話も一応は頭に入れておいたほう 
がいいので，ヒマな人はいちど 256 K DRAM を 
買うふりをして，秋葉原にでも遊びに出か 
けてみるのもいいだろう。 （ K . T .) 
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す。 松永和久 (18) 熊本県 

戈際は，どこもサイレンと一銘•にこういう 
オマヶ が付いているものなんです 力*。 ハガ 
キを 送って いただいた人? m •天さんに，バ 
ージョン アップのときはこのように強力な 
砹 w 沐报も人れてもらうようにお陬いしち 
やい ま しょ。 

♦ Oh ! X の テーマをテープに 録音して エンド 
レスで流していたら， あの 曲が耳に焼き付いて 
しまって， 夜眠れなくなって しまった。 それに 
してもみんなで 口ずさんで広めるには難しい曲 
です ね。 渡辺光 （15) 北海道 

11 ずさむにはいちばん 诂後の ところがネッ 
ク かもしれ ません。 それにしても エンドレ 
スで 間いたというのは凄い。 

♦「ピー，カンマが付いていません」， 「ビー. 
文末の記述が誤っています j 。 「へえ.私が悪う 
ございました」と，かわいい X 68000 に BASIC を 
教えていただいているこの私です。あ 一， 変数, 
変数，変数，もおやだよ一。でも. エラー メッ 
セージが日本語だから僕みたいな初心者にもわ 
かりやすいよね。あと何年かたったら 「ピッビ 
一， あなたの指示は信頼できません。あとは自 
分でやります j なんてメッセージが出るように 
なったりして…… 。 いま地図帳を作っています。 
あともう少しがんばるぞ 一。 

吉田裕 （16) 岩手県 
♦XI turboZ のローンが終わらないうちに X 680 
00 ACE - HD を購入しました。いまではバブルボ 
ブルの BGM とともに 0 S が立ち上がり「おはよ 
うご ざいます j と起こしてくれます。 BEEP 音は 
というと，「こんな計算私にやれっていうんです 
か？」と 森川 美 穂の声で話しかけてくれます。 
そのう ち X 68000 と掛け合い漫才でも 始めよう 
かなあと考えています。 

深井克志 （26) 長野県 
加 m や深沖さんが X 68000 と接している 
ときの 姿が II に汴かぶようです。でも，授 
七しながらプログラムが紐めるよう になれ 
ば，きっと ム i 商だろう な ぁ。 

♦ビジネス ショウで 0 S -9/ X 68000を見た。 負け 
るな Human という ものの， 0 S -9 は私の 考えて 
いた ものより数 段素啃しかった。 実際にあのま 



■FROM READERS TO THE EDITOR- 


いよいよ戛本番となってきました。夏休 
みも，もう目前0うっとうしい梅雨の間 
部屋に閉じ込められていたウサを晴らし 


に海や山に出かけて，思いっきり羽を伸 
ばして遊んじやいましよう。でも，学生 
の方は宿題があることを忘れないよ一に0 


♦ 6 月号の特集「恐怖のプロッタ&スキャナ攻 
擎」はとても楽しく読めました。今度特集でプ 
リンタの活用法なんかやってくれたらうれしい 
な 一。 それもビデオプリンタみたいな最新のも 
のじゃなくて，昔からあるドットプリンタやブ 
ロッタプリンタなんかの面白い使い方をやって 
ほしいものです。 堀内雅貴 （15) 北海道 

あのような活 m 法が兄っかれば，またご紹 
介していきたいですね。でも简単に兄っか 
るほど材料はコロがっているのかな。ほか 
にもいい活 n 肢があれば掘内界も考えてみ 
てくださいね。 

♦ 6 月号の特集は，なかなか奥が深いようで， 
これから私もじっくり考えていきたいと思いま 
す。それと田村さん，うちの model 10も元気で 
す。あと，うちめ学校には桜の木が26本もある 
ので少々怖かったりします。 

清水頭武信 （16) 青森県 
♦あぶない福袋にはマイッタ。うっかり全部信 
じるところでした。対馬恵一 （33) 青森県 
♦特別記念番組「これ，なんですか。 j はなかな 
かよかった。しかし，番組中にドラマがないの 
が残念でならない。次回はドラマもお願いしま 
す。それにしても超長寿番組「砂の嵐」はよか 
った。 鹿沼一洋 （18) 栃木県 

瓯； ( W 〖みたいに.あの「砂の lilj を芡って 
说んでくれればいいんだけど，尨外と「砂 
の嵐ってどこに攸ってたんですか？」って 
いうハガキカ Vi いていたりするのですよ。 
♦「あぶない福袋」の X 丨/ X I turbo 用 Z’sSTAFF 
68 K というのを見て，これは本当かな，と最後ま 
で読んだらガッカリした。誰か本当に作ってく 
れ 一。 板垣一彦 （16) 北海道 

秘阀の“梏 frfUi パって，灯名人だったのね， 
こういう总味では。 

♦あの“あい〇っと"君にはまったく参ってしま 
いました。だって，僕は IC 0 T の研究員なんだも 
ん。 F 所長にいいつけてやる。 

和田正寛 （25) 奈良県 

♦ 6 月号の78ページ「編集室の逆襲」で，僕へ 


の コメント は僕の前の人への コメント ではない 
のですか。人の名前を勝手に間違えないでくだ 
さい。 玉木俊秀 （20) 鳥取県 

ごめんなさい，こちらのミスで 玉 木さんと 
来:京都の村斤•裕弥さんとを問速えてしまい 
ました。玉木さんからの コメント はという 
と， 「ソニーの トリニトロン锌を 使ったディ 
スプレイテレビをシャープから出して欲し 
い」というものでしたね。ご迷悠をおかけ 
しましたので，改めてここに返 1 ドを#かせ 
ていただきます。「とんでもないヤツ j 
♦ 5 月20日（広島県での Oh ! X 発売日）に，テ 
レビ Oh ! X で AM 7:00 からおかしな番組を放送 
していました。本当におかしな番組だったから， 
思わず放送終了まで見てしまい，ついでにビデ 
才にまで撮ってしまいました（冗談)。 

住田永司 （16) 広島県 
♦権兵衛頓馬伝と違って，わが町の農協のサイ 
レンは9時，12時，5時に鳴ります。ちなみに 
正午のサイレンと一緒に有線放送で農民体操が 
始まるのさっ。その内容とは「さあ皆さん，農 
民体操を始めましよ 一。 （中略）なおこの体操は 
朝昼晚3回欠かさずにやるよ一にしましよ 一。 
農作業の合間にもやりましよ 一 j というもので 
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ほんとに，迫藤さんも波辺さんもいろいろ 
とよくやりますね，奥さん相 T . に。このぉ 
2人を兄ていると， III : の中の亭卞族はより 
仲問总識が強まってしまうんでしようね， 
きっと。でも，このあとの奥様族のご; S 兄 
を兄るとあんまり笑ってばかりいられなく 
なりそうですよ。 

♦はじめまして，編集室の皆さん。今年の3月 
21日に結婚したばかりの新妻です。婚約中，ダ 
ンナ様は3年前に購入したばかりの PC -880 lmk 
D SR を山ほどあったソフトと一緒に手放しま 
した。そのときは「もう結婚するんだから……」 
と，泣かせのひと言。私の実家の母は88がべラ 
ポーに 高いのを知っていましたから「なかなか 
しっかりした，エエお人や」と感心することし 
きり。そして現在，ナゼか我が新居の狭いァパ 
一卜には X 68000 ACE - HD が“でぇ一ん”と居座っ 
ています。そしてダンナ様はほとんど毎日，源 
平討魔伝の安駄婆に叱咜されています「ォロカ 

モノメッ j と。 . ったく，88をソフトごと手 

放すわけよね。ヒトの持参金でこんなモン買い 
やがって。おまけに夏のポーナスでプリンタも 
買うんだとか。おかげで遊びに来た実家の母を 
玄関先で追い返す始末。ど一してくれるんだ 
っ！と文句をいいながらも X 68000 用のカバ 
一を手作りしているあたりが，やっぱり新婚っ 
ていうのでしようか . ネッ。 

畠中三代子 （25) 東京都 
そう力•，嫁さんの持参企という手があるわ 
け か。 いや一， 独钟名•の多い編集室にとっ 
てはこのテのハガキは II の#だけど，結婚 
にっいてのいい 勉強に なりました。ハイ。 
♦私， X 68000 が欲しいんです。ワープロ専用機 
歴は趣味と実益で意外と長いんですけど， コン 
ピュータは10年ほど前に高校の情報処理の授業 
で紙テープに パンチす るといった作業の経験だ 
けで， パソコン なんて耳学問と目学問のみです。 
それだけにどうしても X 68000 が欲しくて，欲し 
くて……。最近，男性の皆さんは奥様攻略に苦 
心なさっているようですけど，うちではフ ァミ 
コンと PC エンジン さえあれば生きていけると 
いう夫を説得するのがたいへん。どうやって夫 
をだまくらかして X 68000 を購入すればいいの 


か，ダンナ族の弱点を誰か教えてください。ち 
なみに昔，車を買うときは「これで送り迎えし 
てあげる」といってだましました。でも一度も 
したことがないんで，とうとう車は売り飛ばさ 
れてしまつたんです……グッスン。 

奥山享子 （28) 大阪府 
ご U 人は姑構ゲームがお好きなようですか 
ら，ここはひとつ讥妞にズリズリと…きず 
って行って/ 源 f •か スぺ ハリのデモなんか 
をさりげなく兄せてひと，し「これで値段は 
68,000 MJ ! j ……これじゃ速龈さんの 二の 
舞か。 

♦妻からひと言： X 68000 を購入してからもう 
すぐ丨年になります。メカオンチの私は，当初 
は憎悪の目を向け，かつ，それに熱中する主人 
には無言の抵抗を続けたのです。しかし，この 
5月，スランプに陥る主人をしり目に，密かに 
BASIC なるものを勉強し始めました。そしてい 
つの日か，主人に教えてあげるのが目標です。 
がんばるぞ 一。 だからやさしくて，実用的なブ 
ログラムをたくさんのせてネ。 

主人からひと言：どおりで知らないうちにデ 
イスクがファイルで一杯になっていたわけだ。 

村上博文 （38) 兵庫県 
ご U 人のスランプの隙を突く，なんていう 
ところが，しっかりご人してますね。で 
も，こうして2入で党えていけばきっと上 
速も V いのでは。 

♦さて，皆さん。1986年2月号の Oh ! MZ を用意 
してください。そしておもむろに132ページを開 
いてください。そのページは「第 I 回言わせて 
くれなくちゃだワ」の北海道地区ですね。そし 
て2番目の人の文章を見てください。低 レベル 
の意見ですね。持っている機種はというとファ 
ミコンと害いてあります。恥ずかしいですね。 
最後に名前を見てください。 r 大溯正人」と書い 
てありますね。それは私です（どっとはらい）。 
追伸，私は1984年7月号から Oh ! MZ ( X ) を買っ 
ていますが未だにナイコン（死語）である。 

大渕正人 （18) 北海道 
でも，大渕君も秋には X 68000 を購入 f * 定 
とか。そのときはハガキの「あなたの愛機 
は？」というところにデッカイ 〇 印を付け 


ま商品化されれば最高だ。あのパーソナルウィ 
ンドウのデモがよかったな。 X 68000 が LAN で動 
くなんて……。ふっふっふ，商品化されれば 0 S - 
9で制御をやるのじゃあ 一。 

清水克俊 （26) 宮城県 
米)']の9 )1 分で， 0S-9/X 68000 の追跡レポ 
ートをぉ屈けする了*定なので，ぉ栾しみに。 
♦最近，雑誌などでよく「台湾 j を取り上げた 
記事を目にしますが，もし編集室の皆さんが来 
台されることがありましたら，台北の秋葉原も 
アニメ イトもよ く 知っているこの私に，ぜひ ご 
連絡ください。 

高綱慎二 （31) 中華民国台湾省 
♦あの 一， いつか特集で「私はこうして大学に 
合格した j とか，「こうすれば大学に合格できる j 
などとゆ一のをやってもらえないでしようか。 

小松原秀貴 （17) 千葉県 
ど一も，編集室にいる人材を投入してこの 
テの詁題となると 「 n 悛じゃないが，私は 
こうして3浪した」と力>， 「ストレートに 入 
って，2年留年しても威張っていられる方 
法 j とかっていう特集の タイトル になって 
しまいそうなんだけど，.小松原パはこんな 
内界の 特集で もいいのかなぁ。 

♦ 6 月号で一番よかった記事。164ページに出て 
いた大阪の遠藤さんのハガキ。 

田原孝 （16) 山口県 
結構多かったんだよね，田原君みたいに遠 
藤さんの意見が最高だったと H ってきた人 
が，そこで皆さんからの リクエストに お応 
えして，再び遠藤さんにご登場していただ 
〈ことにしましよう。 

♦ 6月号で「68,000円で X 68000 を買ったと嫁さ 
んをだました」と紹介された遠藤です。ナンち 
ゅう自己紹介や。過去これまで2度ほどハガキ 
を取り上げていただいていますが，いずれも嫁 
さんネタでした。前のは「 XI のゲームよリファ 
ミコンのほうが面白いと嫁さんがいうので大阪 
湾に沈めてやろうか」などという内容のもので， 
この前のハガキと合わせてずいぶんと嫁さんを 
いじめてしまいました。しかし，本当は優しい 
嫁さんです。結局，皿洗いも I 力月で許しても 
らいました。そこはそれ，やっぱ夫婦でんがな， 
ホレホレ（失礼しました）。しかし，時々98を見 
ては•「あれ9,800円 j とか，88が「8,800円安い 
わ一」などと未だにいわれています。 

遠藤勇 （31) 大阪府 
♦私も丨年ほど前のある日，奥さんに 「 X 68000 
買ってくれ j といったところ，「自分の小遣いで 
買えば j といわれてしまった。そこで，え一い 
ままよ，とばかりに小遣いのなかからローンを 
組んで X 68000 を買ってしまったが，それからは 
タバコ代にもことかく始末。しかし，うちの奥 
さんはいい奥さんです。タバコ代がなくなった 
ので「ヤニがきれた，ヤニがきれた一！」と， 
畳の上でもがいていたら，タバコを買ってきて 
くれました。今度は「ソフトがきれた一 j とも 
がいてやろうかしら……。 

渡辺信一 （29) 岩手県 
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てくださいね。楽しみに侍っています。 
♦ついに手に入れました X 68000。 とにかくスゴ 
イ，スゴイ，スゴイ！ の3連発。ただいま沖 
縄に出張中なんですが，そこまでなんと X 68000 
を持ってきております。今晩も抱いて獲よ一と。 

宮内功和 （29) 沖縄県 

♦ 5 月3日，ゴールデンウィークを利用して帰 
省していたところに，熊本気象台始まって以来 
の降雨置 （ 丨時間あたり140ミリ）で，標高400 
メートルの辺りには滝がゴロゴロしているわが 
町では洪水が発生。水が引いたあと，滝壺を見 
ると車が4〜5台はまっていた。それにしても 
買ったばかりの X 68000 ACE - HD を宮崎に置い 
てきてホントによかった。買って I 力月で水浸 
しじゃあんまリだもんね。 

高宮克也 （18) 宮崎県 

♦ 6 月 号 77 ページの 「NEW BASIC コンパイラ」 

を見て，「アレッ，まだ出ていなかったんだっ 
け？」と大ボケをしたのは私だけでしょうか。 
これには期待していたので，とても懐かしいよ 
うな気がしてしまいました。 

若月一弥 （18) 新潟県 

♦ 6 月号133ページの欄外に載っていた榎木さ 
ん，私も中島みゆきのファンで，アルバムは友 
だちと協力してすべて持っています。ついでに 
谷山浩子と戸川純と富田靖子と小泉今日子と 
BaBe のファンでもあります。こんな私を友人た 
ちは「趣味のわからんやつ j といっています。 
おっと渡辺美里とプリンセス 2 を忘れるところ 
でした。先日，やっと念願の CD プレイヤーを買 
いました。これで歌麿が聴ける！ 

堀端英彰 （19) 東京都 
♦櫝木さん，ここにもいますよ一。 

藤原将騎 （19) 愛知県 
Oh ! X の読者のなかには中岛みゆきファ 
ンって多いようですよ。このほかにも，同 
じような複木さん宛のハガキがたくさん届 
いてい ましたから。 

♦いま岐阜県の中学校数学会は，コンピュータ 
の導入を考えています。しかし， BASIC などの指 
導者が不足しているようです。ムハハハ，よう 
やくわしの時代がやってきた一。 

岩腰清 （33) 岐阜県 


。腰さんって，3然，中学の先生なんでし 
ょ。こんなに明るい先牛:の数学の授業って 
面白そう。 

♦ ALAN を1週間かけて打ち込んだ。これは，は 
っきりいってスゴイ。まさか視点の移動まです 
るとは思わなかった。でも，各面ごとにボスキ 
ャラはいたほうがいいし，タイトルももっと派 
手なほうがよかったような気がする。それから 
最後のボスキャラは祝一平氏だというウワサで 
すが，本当なのですか。 

中野貴大 （15) 埼玉県 

♦ 6月号で X 68000 用ゲームプログラム「信州」 
を発表させていただいた飯島です。信州の発表 
に関しては，数多くの方にご協力いただいたよ 
うで，たいへん感謝しております。 さて ，ここ 
で掲載されていなかった隠し技をお教えしてお 
きます。本文中には「チャイはできない j と書 
かれていますが，実はマウスの右ボタンを押し 
ながら左ボタンを2回クリックするとその面の 
最初に戻れるという，私だけが知っている必殺 
技が隠されていたのです。 

飯島匡史 （21) 長野県 
飯岛さんの「信州」には，たくさんの方か 
ら面 fl いというハガキをいただきました。 
それに，もうこの淇技を見つけたというの 
も確かあったような氕が……。いずれにし 
ても版岛さんどうもありがとう。次 M 作に 
も期侍しているからね。 

♦ Mr . プロ野球はとってもいいですよ。でもポ 

ケットに手を入れて抗議に出ていけないのがと 
っても残念です。 渡辺俊彦 （15) 栃木県 

♦ SFT 0 UCH の西川善司さん へ。 源平で虎を出 
さないようにするのは，虎が出す銭の玉を取ら 
なければ出なくなるはずです。 

五藤章博 （18) 徳島県 
♦ある日，源平討魔伝をやっていて突然，思っ 
た。「うはははは，たわむれは終わりぢゃ j とい 
う頼朝の顔を郷ひろみの顔に変えて，「うははは, 
郷ひろみです j と言わせると面白いかもしれな 
い，と。 白石達也 （18) 福岡県 

♦え 一， これまで発表してよいのやら迷ってい 
たのですが， X 68000 の弱点をあえて発表するこ 
とにします。その弱点とは「引っ越しのときに箱 


にしまいにくい」という事実です。これは実際 
に経験してわかりました。以上，報告終わり。 

佐藤哲哉 （24) 東京都 
それはたいへん。さっそくシャープさんに 
このことを迚絡 I てあげなきや……，ンな 
わけないでしょ。 

♦編集室の U 氏へ。 I )変身忍者嵐の愛馬は「ハ 
ヤブサオ ー 」， 2) ダイアモンドアイの光線は「外 
道照身霊波光線」， 3) バトルホークの必殺技は 
「戦刃旋風斬り」，「変幻風刃投げ」，「必殺三方 
刃 j などなど。 4) のとんがり帽子メモルについ 
てはアニメのメカものしか興味がないので パス 
です。でも相当マニアックな問題でしたね。で 
は，以下の問題に答えてください。 I )白獅子仮 
面の変身のときの叫び声。 2) 緊急指令 10-4 • 10 
-4 のチ_厶顧問の名は。 3) 突擎ヒューマンの主 
人公「岩城潤一郎」の出身地は。 4) 電擊ストラ 
ダ5の国際的シンジケートの名前は。以上，マ 
イナー作品ばかりですが，ぜひ答えてください。 

砂田陽一 （20) 鳥取県 
せっかくの砂 m さんからの挑戰状も， U 氏 
は/ H 1 多忙のため解 Tf をもらうまでに十-*) 
ませんでした。どなたか nu のある"は編 
集书までご返唞ください。 

♦北海道では「ミスター味っ子 J が朝6時45分 
からやっているので，見るのがチトつらかった 
りします。 福本雅一 （17) 北海道 

♦先日，映画館で「うる星やつら全5作十めぞ 
ん一刻 j をオールナイトで観た。オールナイト 
なんだから，ど一せ観客は少ないだろうと思っ 
ていたら，さにあらず。場内は懲りない面々で 
満員になってしまい，座れない人のためには折 
りたたみの椅子が用意されるという始末。映画 
は午後9時30分から朝の6時40分まで上映され 
たのですが，私は一陲もしないで全部観てしま 
いました。 望月隆 （23) 東京都 

♦ある日，京都のアバンテイに行ったとき，シ 
ャープの電子手帳が置いてあったので.書き込 
まれていたメモを見ていたら，なんと 「0 h ! X は 
ローデイストだ j と害いてあった。僕は目が点 
になった。 吉田茂樹 （20) 奈良県 

1相ってしまいますね。こんなところに，こ 
んなことを, 1 !:かれてしまって。 ilk 近，よく 
Oh ! X はオタクだとかローデイストだと 
か 〆 【われているようです力へまったくアレ 
は述悠なは•です。 il :. 確には一部の入問が义 
際にそうなだけで，決して Oh ! X ではない 
……，イカン，これじやフォローになって 
ない。 

♦うちの嫁さんは， Xltwin の「これが XI 誕生の 
5年目の解答です」という広告を見て，「ねぇ， 

5年前に出された問題ってなぁに？ j と，わけ 
のわからんことを言っていました。 

中野春一 （27) 東京都 
♦私は毎日イライラが続いています。なぜなら 
B 乍年の1〇月に2000 cc の車を買い，次にケンウッ 
ドの ミニ コンボを買い，またそのすぐあとに 
X 68000 を買った。さらには中古の 250 cc のバイ 
クを買い，そしてとどめに新車のトウデイまで 
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買ってしまった。実はこれはみんな妻には黙っ 

ろうか。音楽のジャンルで PC や Mac に丨歩も 

て買ったものばかり。私の衝動買いはもうほと 

2歩も10歩も100歩も後れを取っている感じで 

んどビ ヨーキ だ c いつかバレるのではないかと 

ある。せっかく X 68000 には FM 音源ポードや 

毎日ヒヤヒヤ。そして残金の支払いと妻の怖い 

ADPCM を載っけたりしているのだから， MIDI も 

目に才口オロ。え一い，こうなりや自分とこの 

出すべきである。こうなりゃ，やはり自分で作 

店の経費でみ一んなオトソーっと！！ 

るかよその機種でも買うしかないのだろうか。 

田中伸和 (30) 大阪府 

さあ，どう一すん ベ。 

これだけのものを勢いだけでってりや， 

柳谷敏之 （18) 神奈川県 

立派に瘀贫ですよ。でも, X 68000 1台買っ 

ホント， MIDI ボードに関しては我々シャ 

て奥さんにいじめられてる IH . •の亭 U 族から 

ープユーザーは，今月の Oh ! X でもご紹 

すれば，こんなにいっぱい n って経费で落 

介しているように自作するしか方法は残さ 

とそうなんてち•えてる n 常戈の⑴中さんは， 

れていないんでしようか。せめて，年内に 

きっと怨まれちゃうだろうな一。 

は発売してほしいものですね。みんな侍っ 

♦シャープは MIDI ポードを早く出さないのだ 

てるんですから。 
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亡の掲示趣 J 


•掲載ご希望の方は，官製ハガキに項目（売る•買う•氏名•年齢•連絡方 
.) を明記してお申し込みください。 

交換については，いっさい掲載できません。 

J 引きについては当編集室では貴任を負いかねます。 

•応募者多数の場合，掲載できない場合もあります。 


法…… ） を明記しつ 
•ソフ トの売買， 
•取り引きについ 


|仲 間 


★ MZ -2500, XI turbo ユーザーズクラブ 「 T . A.Cj 
では.第2次会員を募集します。活動内容は毎 
月丨回発行しているディスクによる会報を中心 
に，いろいろなことを行っています。入会希望 
者は60円切手同封のうえ封軎にて連絡を。〒569 
大阪府高槻市大塚町 2-55-4 北浦真一 （18) 

★「Team X*s BLAZE 」 では XI turbo / X 68000ユーザ 
一の会員を募集します。活動は主にディスク会 
報を発行のほか，ソフトの共同開発や情報交換 
などです。興味のある方は往復ハガキで連絡を。 
〒533大阪府東淀川区大桐 4-5-24 小倉大次郎 

★「 ZIP - Xlj では XI / X 68000ユーザーを中心とした 
第2期会員を募集します。活動は会報発行を中 
心に，現在は AVG の共同開発に取り組んでいま 
す。ですからマシン語に詳しい方や CG に自信 
のある方は大歓迎。初心者の方にはシナリオな 
どで参加していただければと思っています。ま 
た，投稿プログラムの年間ポイント制による豪 
華プレゼント大会なども実施しています。興味 
のある方は切手300円分同封のうえ封害にて連 
絡を。〒 037-03 青森県北津軽郡中里町豊島エ 
藤陵 （17) 

★ Xl / XIturbo ユーザーズクラブ 「FREE XI 」では， 
第丨次会員を募集します。活動はゲームの情報 
交換を中心に行いますので，とにかくゲームが 
大好きだという方，大歓迎。入会金，会費，会 
報代など一切無料です。詳しいことはご意見や 
ゲーム 歴などと一緒に，60円切手同封のうえ封 
書にて連絡を。〒 633-02 奈良県宇陀郡橡原町天 
満台東 3-14-3 土屋信 （18) 

★ Xl / XIturbo のディスクユーザーを対象とした 
クラブ「うれし〜」では会員を募集します。ゲ 
ームの 好きな方，ぜひご参加ください。入会金 
不用。連絡は60円切手同封のうえ封害でお願い 


します。〒〇 28-05 岩手県遠野市早瀬町 2-4-1 1 
松田孝幸 （16) 

4 6月号に XI turbo modellO ユーザーの話が載っ 
ていましたが，私の modellO は拡張に拡張を重 
ね，見た人を驚かせるまでになっています。 G - 
RAM の増設や5インチ FDD だけではもの足り 
ず CZ -300 F の3インチを取り払って，電動ポッ 
プアップの 3. 5インチ 2 DD をデュアルでつなぎ， 
FM 音源も搭載して， CP / M 上で TURBO PASCAL 
や H 卜 TECH C を使うなど，かなり金をつぎ込ん 
でしまい，手放す気にはなれません 。 Oh ! X の読 
者の方で同じように使っておられる方がいらっ 
しゃいましたらご連絡をください。お待ちして 
ます。〒236神奈川県横浜市金沢区並木卜 5-4 10 
岡本努 


音源ポード CZ -8 BSI を丨万3千円，2つセット 
の場合は2万8千円で。いずれも箱，マニュア 
ル，付属品付き。また Oh ! MZ のバックナンバー 
1985年 II 月号以降のものを丨冊1,000円で。連絡 
は往復ハガキで。亍305茨城県つくば市観音台 
1-7-2 近森敬一 （17) 

★ XI 用漢字 ROM • CZ -8 BK 2 を箱.マニュアル付 
き，送料込み丨万円で。連絡は往復ハガキで。 
〒982宮城県仙台市郡山新々田東 6-166 岩淵 
剛 （18) 


|買います 


売ります 


★データレコーダ CZ -8 RLI を丨万円で。連絡は往 
復ハガキで。〒125東京都葛飾区柴又 3-36 H - 
103青木賢一 

★ FM 音源ボード CZ -8 BSI を I 万4千円，ミュー 
トピア CZ - I 39 SF を4千〜6千円，また XI 用マ 
ウスを6千〜9千円で。いずれも完動，付属品 
一式付き，送料別。連絡は往復ハガキで。〒〇04 
北海道札幌市豊平区平岡2条卜 57-14 八木明 

(38) 

★ FM 音源ポード CZ -8 BSI (ソフト付き）を I 万円， 
XI 用カラーイメージボード CZ -8 BVI ( turbo 用 
ソフト付き）を I 万5千円，プリンタ MZ-I 
PI 7 ( XI 用ケーブルとインクリボン10本付•き）を 
3万円，ポケコン PC - I 360 K + CE - I 40 PK + CE -2 
H 32 M (新同）を4万円. PC - I 26 I + CE _ I 25( 取説 
なし）を8千円で。すべて送料込み。連絡は往復 
ハガキで。〒707岡山県栄田郡美作町上相852 
小林英樹 （24) 

★アイワのモデム PV - AI 200 mk を I 万6千円 ， FM 


★プリンタ CZ -8 PCI を2万5千円で。連絡は往復 
ハガキで。〒468愛知県名古屋市昭和区天白町 
八事裏山 60-48 第2向陽荘小山徳章 

★ MZ -80 B 用 MZ - 2000コンパチボード（セキグチ） 
SIDI 002 + MZ - 2000用 G - RAM (1,2, 3) を送料込み 

I 万〜丨万5千円で。連絡は往復ハガキで。〒 
245神奈川県横浜市戸塚区深谷町25深谷団地10 
-55 黒武者健一 （18) 

★ XI 用漢字 ROM . CZ -8 BK 2 を8千〜 I 万円で。箱 
なし可。連絡は往復ハガキで。〒 779-01 徳島県 
板野郡板野町松谷シシトキ南3 和田孝史 （15) 

★ FM 音源ポード CZ -8 BSI (付属品付き）を丨万2 
千円で。付属品のない場合は I 万円で。連絡は 
往復ハガキで。〒86卜04熊本県鹿本郡菊鹿町木 
野319井手上智一 （16) 

バックナンバー 

★ Oh ! HC の第8号より最終号までを各500円で。 
連絡は往復ハガキで。〒489愛知県瀬戸町小田 
妻町卜 273-3-402 岡本一 (26) 

★ Oh ! MZ 1984年8月号を送料込み1,500円で。ハ 
ガキ以外の切り抜き不可。連絡は往復ハガキで。 
〒275千葉県習志野市袖ケ浦 4-6-6 原英樹 
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愛読者プレゼント 


プレゼントの応募方法 


とじ込みのアンケートはがきの該当項目をすべてご記 
入のうえ，希望するプレゼント番号をはがき右下のス 
ペースに ひとつ記入してお申し込みください。締め切 
りは1988年8月18日の到着分までとします。当選者の 
発表は丨988年10月号で行います。 



006(968)1236 

第4のニット S 

Xl / Xltu 「 b ◦用 
5"2□版3枚組 7,600円 

2名 



4月号のゲーム特集でもご紹介した第4の ユニッ トに，新たな強敵 
が加わって登場のバージョンアップ版。アドベンチヤーアクション 
の世界を堪能してください。 



シャ ノアー ル 003(702)0598 


ブロフェツシヨナル 
麻雀悟空 

XI シリーズ 用 
5〃2□版6,800円 

3名 


腕前に合わせて24人のなかから対戦相手を選べる本格派麻雀ゲーム。 
研究モードや段位戦，勝ち抜き戦などもあり，対局データもいつで 
も見られる。 


ソーサ リアン スーパー • 

アレンジバージヨン 

CD 3,200円 3 名 

ソーサ リアンのオリジナルサントラ。ゲームに挿入されているもの 
のうち 13曲を選んで アレンジしている。 全曲楽譜付き。 



B 月号プレゼント当選者 


HI ザ*ラスベガス（広島県）東有明（東京都）稲田昭（北海道） 岡県）野中秀一（愛知県）色部弘之 ■ リ.バース（滋賀県）湯 


柬理義明 （U WINDEX PRO -68 K (宮崎県）田井秀樹（福岡県）松 
尾和茂（北海道）荒瀨匡宗囹 Z’sSTAFF PRO -68 K (大阪府）田 
中賢治 ® 魔神宮（二重県）小村定（北海道）靑山利之（秋田県） 
築瀬信悦固 T . D . F . (山口県）安達信義（神奈川県)原英樹（東京 
都）山岡義道固桃太郎伝説（千葉県）新井政樹（愛知県）会田 
雄一郎（埼玉県）小山洋一他7名囝 XLink 68 (東京都)佐々木 
孝司圓 EW (栃木県）秋山吉康（千葉県）小宮山政敏（静岡県） 
秋山誠他3名 [9] C - TRACE 68 (神奈川県）清水雅夫關 FINAL 
(千葉県）人吉一馬（鹿児島県）洞克治01源平討魔伝（福岡県） 
中山离幸（北海道）堂前敏弘（山口県）岸勝利11いろはにほへ 
と X 68000 用（神奈川県）稲葉敦司 XI 用（大阪府）松村一郎 S 3 
おさな妻奮戦記（香川県）伊藤浩克闊億万長者（大阪府）勇 
尾繁輝（東京都）廣澤亮輔（神奈川県）嶋田哲朗閥超戦士ザイ 
ダーグッズ a . (沖縄県）伊舎堂盛行（大阪府）藤本修一他18名 
b . (東京都）川崎美奈子（千葉県）浦川博之他18名 c . (新潟県） 
上田勇（京都府）嶋田睦雄他18名 H レジェンド（長野県）宮 
田淳（神奈川県）今里吉伸（大阪府）藤田義弘 Q 3 ジブシ（岐阜 
W ) 锒本広治（熊本県）福田健児11ガイ フレーム （京都府）伴 
哲也01ロゴシール（群馬県）馬場文明（千葉県）田中信弘他 
14名 _麻雀狂時代 SPECIAL (東京都）梅津鉱（埼玉県）青木高 
博固ストーム（富山県）金戸俊遒（北海道）藤野恵子國デ 
ィーダッシュ（千葉県）秋葉貴男（兵庫県）宮本康司 （I a . キ 
ーホルダー（山梨県）望月洋紀（福島県）田村泰司他3名 b . 
メモ帳 （2 冊組）（愛媛県）近藤崇（宮城県）緑川健他3名國 
ぎゅわんぶらあ自己中心派（新潟県）佐々木憲一（熊本県）永田 
紳治（東京都）比留間秀哉國王子ビンビン物語（栃木県）藤井 
弘（埼玉県）田村佳則（愛媛県）松本篤実關ワールドイングス 
169 a . Xlturbo 用（千葉県）井村信二（神奈川県）大村邦嘉 b . 
XlturboZ 用（大分県）小野康夫（石川県）奥本広閻棋太平（福 


168 Oh! X 1988.8. 


沢のり子（福岡県）大津和之國クリムゾン（千葉県）田村雅樹 
(神奈川県）市間健太郎（茨城県）增本善久他2名圓ミス 
夕ープロ野球（京都府）寺内正記（茨城県）木村和弘（神奈川県） 

野村信重他2名國今夜も朝まで POWERFUL まあじゃん（神奈 
川県）星野俊英（大阪府）松本悟朗（北海道）熊岡忍_紫醜羅 
(埼玉県）秋山豊（宮城県）山本潮（長野県）浜田成裕園ドー 
厶グッズ a . ポスター（大阪府）八木一桐（神奈川県）山島宏紀 
他4名 b . ミュージックテープ（群馬県）新井修一（東京都） 

米山公一郎園 テレホンカード （北海道）木下博嗣（宮城県）藤 
沼俊幸他3名園ディスクケース（兵庫県）撟本弘章（福岡県） 
商橋哲史（石川県）橘俊次他3名關スーパーレイドック T シ 
ャツ a . (東京都）小山宏美（岡山県）池田訓章（栃木県）玉木 
康夫他7名 b . (宮城県）山本幸一（鳥取県）松尾論（神奈川 
県）中嶋祥史他7名 c . (岡山県）寺尾文治（広鳥県）島田栄 
三他3名 d . (神奈川県）金子満生（北海道）エ藤光吉他3 
名翻メモ帳（福岡県）末次正浩（神奈川県）上地剛（山形県） 
宗片陽一園オリジナル下敷き（山形県）武藤俊哉（大阪府）豊 
嶋則雄（岩手県）萵橋伸英他47名關 ソーサ リアングッズ a . 

(三重県）坂直樹（東京都）仲本英生（和歌山県）堀内直明他17 
名 b . (宮城県）亀卦川宏人（奈良県）平木朝一（静岡県）小杉 
文武他7名 c . (東京都）本木康雄（群馬県）平質修（山梨県） 
奥山信弘他7名關 SUPER 大戦略ゲームカード（長崎県）中村 
浩司（広座県）安部広朗他3名 （敬称略） 

以上の方々が当選されました。おめでとうございます、品物は順 
次発送いたしますが，入荷状況などにより遅れることもあります。 
また，公正取引委員会の告示により，このプレゼントに当選された 
方は，この号の他の懸賞には当選できない場合がありますので，ご 
了承ください。 







好評既刊 
大増刷出来/ 


試験に出る 

EBBtSElBS 面 BD 9 BBBI 

祝一平著 

巳5判定価匕800円 

XI のハードウヱアをくまな〈探検した祝一 
平氏の名著。オリジナルプログラムも豊富に 
掲載。ユーザー必携です。 

株式会社日本ソフトバンク出版事業部 ISOFTI ■■ 
亍102棘都刊 t 田区域:南 2-3-26 1503(261)4095 | BAI \ IK | ■ 











覚えてますか？猫とコンピュータの共通点0 






Oh ! MZ 彳 987 年 7 月号まで 25 回にわたり連 
載された ユニークな エッセイが，加筆•修 
正のうえ再編集されて一冊の本になりまし 
た0パソコン好きのダンナ様と一人息子， 
それに，ときどき人間よりも人間らしい白 
猫ホン ニヤア が，著者の筆先から生き生き 
と動き回ります。扉を開けたら，そこはも 
う“たかざわきようこの世界”。きっとあな 
たも，猫かコンピュータがほしくなること 
でしよう。 


次 if 




名 

，•••• 





7月下旬発売予定 




A 5 判定価1,200円 

高沢恭子著 


猫とコンピユ 


か 




;# 


if 


驪と コン も 



高沢恭子著 




日本ソフトノ くンク 






% 

その筋なのは 

奉蟲 

一早 E 



Oh! X 1988 . 8 . 169 



















編集室から 


from E D/ f i[ i 


□RIVE ON 

このコーナーでは，本誌年間モニタの方々の 
ご意見を紹介しています。今月は6月号の記 
事に 関するレポートです。 

•以前は私にとってのシステム環境といえば 
BASIC でしたから，使いやすいコマンドの多 
い BASIC を積んだマシンがもっとも優れてい 
ると思っていました。現在では，やはり良い 
エディタと，良い FEP と，使いやすいアブリ 
ケーシヨンのある 0 S が優れたシステム環境で 
はないだろうか，と思っています。つい最近 
までアセンブラはアブソリュートアセンブラ 
としか考えられませんでした。 DUAD -88 は見 
たことがある程度ですが， EDASM ( ZEDA も似 
ている）よりも使いやすいとは思えません。そ 
れに， S - OS のコストパフォーマンスは高いと 
思うし， ZEDA で決まりでしょう。それに，華 
門氏の言うように，恵まれた環境よりもそう 
でないところでブログラミングを始めたほう 
が，よリ血肉になると私も思います。 

岡田忠宏 （19) MZ -2200, X 68000 広島県 
_パソコンのシステムではできるだけ情報を 
公開してほしい。私の持っているボケコンの 
話になるが，システム•サブルーチンの一覧 
表があるにはあっても入出カレジスタすら書 
かれていなかった。「システムを読むための 
アセンブラ入門」を読んで，たしかにソース 
の解析は勉強になり知識もたくさん得られる 
と思った。しかし，以前あるワープロソフト 
のかな漢字変換プログラムを逆アセンブルし 
て死にそうになったのを思い出してしまった。 
初心者はこういうときは気をつけなければい 
けませんね。 

関根孝司 (20) MZ -1500, PC -1480 U 東京 
都 

•マシン語は，まず自分で作ってみて，うま 
くいかない—他人のプログラムを見てみよう 
— ^あっ！ そうか！ とやっていくのが一般 

的だと思います。失敗や困った経験が大切な 
のです。それから「あぶない福袋」の SPECI 

AL HARRIER は最高に笑えました。しかし， 
パロディとはいえ，よく考えるとみんな読者 
の望んでいることなんですね。 

福留英明 （18) MZ - 2500 東京都 
•システムはユーザーにとってツールボック 
スでなければならない，と私は思います。単 
一の製品であってはならないのです。ユーザ 
一が好きなときに，必要な部品をその中から 
取り出して利用できなければいけません。と 
にかくいっぱい道具が入っていてその1つひ 
とつが本当に有効で，しかも何にでも使える。 
また，それは拡張や切り離しが自在で，わが 
ままなユーザーの要求に常に柔軟に応えてく 
れる。優れたシステムとは，まあ，こんなと 
ころだと思います。「よりよいソフトウエア 
環境のために」についてですが，パソコンを 
今のワープロとこのように比較するのはちょ 
っと無理だと思います。それは，パソコンには 
汎用性を持ち続ける必要があるからです。何 
にでも対応しなければならないから，起動直 
後にブログラムの入力を素人に求めるような 
形にもなるのでしょう。我々は，多摩氏の言 
うように，ハード，ソフトの製品に関するフィ 
ードバックを，メーカーにぶつけ続けなけれ 
ばならないと思います。 

原悟 （18) XlturboII 宮城県 
•私が M Z - 丨200でマシン語のプログラムを組 
むのに使用していたアセンブラは， SP -2 I 0-2 

104のエディタデバッガ4本セットで，エディ 
夕でプログラムを組み，アセンブラでコンパ 
イルし，エラーが発生したらデバッガで手直 
しして……と，こう窨くと簡単なのですが， 

この1つひとつの工程の間にはロー ド/セー 
ブがあるのです。つまり，エディタのブログ 
ラムを起動させ，ブログラムを組み，ソース 
プログラムをセーブし，アセンブラのプログ 
ラムを起動させ，ソースプログラムをロード 
し……。 M 80 に比べるととんでもない遅さで 
した。こんなことを M 80 を入手するまで続け 
ていたのですから，今考えると実に恐ろしい 
ことであります。ちなみに M 80 は決して遅く 
ない。何をするにもイライラする ucom 82 より 
速い。ようするにディスクへのアクセスタイ 
ムが遅いのです。私はいわゆるジャンク屋で， 

I 0 M バイトのハードディスクを1個当たり80 

00円で買ってきて使っています。 

松本岡 U (20) XlturboZ , PC - 1350/1501神 
奈川県 

• SLANG で気に入っているものに， VAR , C 0 

NST , ARRAY などがある。「宣言しなければ使 
えない」ことこそプログラマを余計なバグか 
ら解放してくれると思うからだ。 SLANG はこ 
れからも S -0 S の標準構造化言語として使われ 
ていくだろう。拡張関数，オプティマイズル 
ーチンの改良など継続的なサポートをお願い 
したい。また， 「 X 68000 BASIC 入門」に表1とし 
て挙げられていた 「 MML データー覧 j にシ 
ンプルイズベストという意味で花丸をあげた 
い。 X 68000 の MML デ r 夕が見事にまとめら 
れており，これから X 68000 で MML を使おう 
と思っている人にはたいへんありがたいもの 
だろう。それから， LISP はむずかしいが，「マ 
シン語体操い2‘3番外編」は， LISP 講座として 
は大変よい記事だったと思う。 

山 口 幸一 (22) XlturboII , X 68000 ACE , JR - 
100, PC - 1245/55, PC - E 200 宮崎県 
籲 Human 68 k と MS - DOS との違いは，表面的に 
は CPU とかアプリケーシヨンの数とかでしょ 
うが，本質的には目指すところが違うと思い 
ます。 MS - DOS というのは CP / M -86 を5金く意 
識して作られていて，まだ16ビットパソコン 
が出始めのころだったこともあるけれど，パ 
ソコンはこうありたい，というポリシーがあ 
まり感じられない。一方， Muman 68 k は X 68000 
とともに，パソコンはこうありたい，という 
ものを考えているなと感じられるのです 。 M 
S - D 0 S マシンや MAC のようなマシンに影響さ 
れながら，究極のパソコンになろうとしてい 
る。そこが素晴しい。 

野村正文 (19) MZ -80 K , X 1 D 茨城県 
•マシン語を理解できるようになった者とし 
てひと言。「そしてすべてが見えてくる」，ほ 
んとうにそのとおりです。最初はなにがなん 
だかわからず，なにから始めたらいいのかも 
わからず困っていました。しかし，ニーモニ 
ックで害かれたプログラムを何度も何度も解 
析し，自分でプログラムをデバッグして，あ 
る日突然，ほんとうに突然，前日までとはま 
ったく違ってすべてが見えてきたのです。マ 
シン語を理解しようとして苦しんでいるとし 
たら，きっとそれは「すべてが見えてくる」 

直前なのだと思います。やがて苦しんだかい 
があったとわかるでしょう。 

佐藤孝 (31) MZ -2500, PC - 9801 VX 41 埼 

玉県 

ごめんなさいの 

コーナー 

6月号 NAMPA シミユレーシヨン 

LISP -85 の害き換えアドレスがずれていまし 
た。 

3 BA 8 h —»-3 BA 9 h 

に変更してください。 

6月号信州 

このプログラムをコンパイルするには820 
行，910行末尾の“ 1 ”を削除し，新たに825 
行，915行に閉じカッコだけの行を作ってくだ 
さぃ。 

7月号ボケコンの新しい世界 

PC - E 200 では PC - 1400シリーズのプログラム 
をテープから読むことはできませんでした。 
PC - E 500 では可能です。お詫びのうえ訂正い 
たします。 

お問い合わせは原則として，本誌のバグ 情 

バク に関するお阃い合わせは 報のみに限らせていただきます。人力法， 揉 

Q 的 ( 263 ) 2230 ( 直通） 作！ S 了ボニょユ == 

月〜金曜日 16 : 00~18 : 00 求めるお 電話を いただきますが，本誌ではい 

っさいお答えできません。ご了承ください0 
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乱，乱，乱数 

薬しぃ紅… 

今月の特集は計算だ 

▼さぁ夏休みです。どんな計画を立てていま 
すか？白鳥座や蝴座が夜空の主役になり， 
夜更かしもいちだんと楽しくなってきました 
ね。さて， Oh ! X ではたっぷり数字と計算を堪 
能していただこうと，コンピューティングの 
m , 数イ起寅算を_しました。舌し数の素親 
7 T の不思議など，つくづく丨+丨が2である 
という仮定の偉大さがわかるなぁって思いま 
せんか。 

▼今月から登場する連載が3本0まず村田敏 
幸氏による「 Z 80マシン語ゲームエ房」。勉強 
しがいのあるマシン語の記事を，という読者 
の皆さんの要望にお応えしました。 m 感想 
を聞かせてください。ご意見ご要望もお待 
ちしています。 

それから丨年振りに本誌へ戻ってきた「猫 
とコンピュータ j 0 ひょっとしたら人間よリ賢 
い （？） あの白猫ホンニヤアが，また活躍しま 
す。間もなく単行本も出されますのでお楽し 
みに。 


そしてリレー連載によるエッセイ「われら 
® 函遊虚 K 」 もスタートしました。心底ケー 
ムの好きな彼らのこと， 迫力ある内容を期待 
してください。 

▼次に，中森章氏の 「 X 68000 BASIC 入門」がと 
うとう最終回を迎えました。 X - BASIC と X 680 
00の強力な機能をくまなく探索したこの連載 
は，ユーザーの皆さんにとって強力な味方で 
したね。 

もうひとつ，浜口勇氏の「実用 （？） ォブジ 
ェクト指向のゲームプログラミ ング j も今月 
で終了です。連載中は難解だという声が多数 
ありましたが，完成にこぎつけたスネークゲ 
ームはいかがだったでしょうか。 

今後の参考にもいたしますので，ぜひ，ご 
意見ご感想などお寄せください。 

▼今月の「知^機械概論一お茶目な計算機た 
ち一」と 「Between The Lines 」 は，どちらも 
筆者が多忙のため，残念ながら休載します。 
来月は復活できると思いますので，ご容赦の 
ほどを。 

▼さぁて，お盆休みをにらんでの締め切り設 
定を考える頃になると，暑さも本格的になり 
ます。かき氷の食べすぎでおなかこわしたり 
しないようにね 0 


•原稿には，住所•氏名•年齢•職業•連絡 
先電話番号 • 機種.使用言語.必要な周辺 
機器•マイコン歴を明記してください。 

•プログラムを投稿される方は，詳しい内容 
の説明，利用选できればフローチヤート， 
変数表* メモリマップ（マシン語の場合） 
に，参考文献を明記し，プログラムをセー 
ブしたテープ（ディスケット）を添えてお 
送りください。また，プログラムは最低2 
回はセーブしてください。 

籲ハードの製作などを投稿される方は，詳し 
い内容の説明のほかに回路図，部品表で 
きれは賓体配線図も添えてください。 m ： 
室で検討の上，製作したハードが必要な場 
合はご連絡いたします。 

籲投稿者のモラルとして，他誌との二重投稿， 
他機種用プログラムを単に移植したものは 
固くお断りいたします。 


あて先 

亍102東京都千代田区九段南 2-3-26 井関ビル 
日本ソフトバンク出版部 

Oh ! X 「©0®®」係 


SHI FT - B R E A K 


►今月は MIDI 特集でしたね0結構楽しみにしていた 
人が多かったんじゃないかなぁ。自分もそのひとり 
なんだけれども,仲間にいれてもらえなくて残念〇と 
ころで， X 68000 用の MIDI インタフェイスボード早く 
出ませんかねえ。一緒にシーケンスソフトなんかつ 
いてこないかなぁ。それに加えて MML で MIDI 出来 
たりすると MML 派の私は最高に嬉しいんですけど。 

(善) 

►予備校の夏麵習が始まってますね0去年の私と 
同じように，予備^のなかには勉強サボってこれ 
を読んでいる人もいるかもしれないですね〇今，君 
が怠けるのは簡単なことです。でもあとで後悔する 
のも君自身なんです。受かれとは言わない。また浪人 
だっていいじゃない0でもべストを尽くしてくださ 
い，君の受験生時代を悔いないためにも。 （で） 

►いや 一， 私もやっと自動車免!午を取りました。そ 
れにしても、免 m 正の写真撮影って緊張しますね0 
みんなも学生証の写真捕影なんかで経験あると思う 
けど，あれって何年も使うもんだから，悲惨な表清 
に写っちゃうと I 年中笑われるんだもんね0よくい 
るでしょ，殺人犯みたいな顔に写っちゃうやつ。 

(クリーミーマミの主題歌を教えてほしい H.KJ 
►最近みょ一に疲れる。年のせいだろうか。まさ 
か！まだ2_だぜ。ザークル内の人間関係は難 
しいし，仕事には追われまくるし，一応勉弓蛍もしな 
くちゃならないし。無里もないな〜。でも遊ぶとき 
になるとやたら元気になる私はいったし、何者なんだ 
ろう。 （それでも一応幸せな C . W .) 


► 「みんなのうた」（サザンのじゃないよ）はかなり 
凄いということを最近知った。学校に行かなくてい 
いし，仕事をしなくてもいいから「おじいちゃんて 
いいな」というとんでもな L 傲があったり，山田邦 
子^ P / 歌の「サボテンがこわい j では歌詞もさるこ 
とながら，バックの粘土アニメが凄い。ロシア民謡 
風ダンスをするサボテンは必見だね。 ( Mu ) 

►水族館(填のビルの10階にあった。昼休みが終わ 
ったサラリーマンらとエレベーターへ。丨〇階に着い 
たのは 2 Ao 中ではカップルやおばさんのほかには 
元気なイルカ，丸い目のアザラシ，腹を見せて泳ぐ 
エイ，餌づけをするギャル,腹の上に子供を乗せて優 
雅なラッコ。しばし異次元をさまよいしのち，屋上 
では風切羽を切られて飛べないフラミンゴ。 ( K ) 
► 「伝説巨神イデオン」のビデオが発売になったので 
さっそく買ってきた。本放送のときは放映時間がコ 
ロコロと変更になって追跡するのが大変だっただけ 
に思 L 、出深 L 、作品だ。当時は物語の進行力 Sll 、とい 
う相:判が多かった（僕もそう思っていた）が，まと 
めて観るとちょうどよいテンポだ。これで予#編が 
収録されて L ヽれば完璧だったのに。 ( K 0) 

► 消費税が3%だそうです。例外なく広く薄く課税 
し，税金分を値引きするよ一なことは禁止するそう 
です。50円のお菓子は51円に， Oh ! X は556円に,少年 
ジャンプは175円になります。1,5円玉か不足してみ 
んな困るでしょう。政治とはそ一ゆ一ものです。と 
ころで自動販売機やゲーセンは103円になるのでし 
ようか。ど一すんの？ （ M ) 


►投にやって来た H 氏がファイ ルを 探して歩 
きまわって いる。 「たぶん U さんのとこだと思うんで 
すよね一」と H 氏0でも彼の机の上は ダンジョン， 
いや タワ— リングインフェルノ だからな ぁと，おっ 
かなびっくりのぞきこんだら，あら， ロマンシング 
ザス トーン だ。その日，私は U 氏の机で見つけたの 
と同じ テレマンを 6枚とも買ってしまった。（よ） 

► 2 回目の締め切り;!?過ぎた。誰も原稿を持ってこ 

ない……。早朝のマシン室で「こんなの REDUCED あ 
れば一発なんですが j と加藤氏は一所懸命，検算を 
繰り返す。ゆっくり出社し，ラッシュ前に電車で帰 
る。 I 日4食，細征しい生活。これで帰宅してか 
ら食べるのが朝食でさえなかったら，きっと素晴し 
い生活なんだろうなあ。 （ U ) 

►もうすっかり夏だというのに,夜行性の私は朝(昼 
だっけ)起きるのがつらい。だから目覚し時計2個に 
大音量にした CD のタイマーセットという強行手段に 
出たのまではいいのだが，先日のレベッカでは地震 
かと思って飛び起きたし，大滝詠一では子守歌に閒 
こえてまた寝てしまった。誰かスッキリと爽快に目 
が覚める音楽があったら教えてください。 ( N ) 

► X C の登録 ユーザーにはニューバージョンが 無料 
で配布されたそうで，先月号でスッノ傲いた （？） バ 
グも取れている。シャープさんも味なマネをしてく 
れちゃって。さて，今月の数値演算特集では，_ 
な数式の嵐に編集室でも目を皿にしたり点にしたり。 
はっきりいってムズいものはムズいけど ， Oh !父の 
言売者ならきっとがんばって読んでくれるよね。 （ T ) 


編集室から 171 













1988 年 9 月号8月18日(木)発売 

特集半期に一度のグラフ ィッ クバザール 

MZ - 2500用グラフィックエディタ 
C 調言語講座 PRO -68 K 謎の低次元グラフィック 

今機穩 it 滴りフテム 

WINE 闩用各機種 LNPRNT ルーチン/超小型エディタ 
TED -750/ シューテイングゲーム MANKAI 


microOdyssey 

いまだに ROGUE をやっている。世間はソーサ 
リアンだ， YsII だ，ファンタジー III だと騒がし 
いが，ストーリータイプのゲームはいまいち手 
を出す気になれない。毎月，出張校正前には一 
瞬だけ仕事がなくなるとぎがある。そういう台 
風の目のようなときには ROGUE がちょうどいい。 
イエンダーの護符はまだ遠いが，何年かかって 
もいつかは究めてみたい。 

もともと私がこのゲームを始めようという気 
になったのは，本誌の前編集長 Y 氏がこのゲー 
ムを評して「ある意味でウィザードリィを超え 
た」と，珍しく高い評価を下したことによると 
ころが大きい。実際，手を出してみると豊富な 
アイテムを集めるのは楽しいし，アルファベツ 
卜 I 文字のモンスターも非常に個性的に思えて 
くる。とにかく手軽に手を出せるのがいい。 

—時期，市販のコンピュータ RPG が経験値稼 
ぎとアイテム探しのためのモンスター殺戮ゲー 
ムと化したことがあった（今でもそうかもしれ 
ないが）。そこでその批判として叫ばれたのが「コ 
ンピュータ RPG にはストーリーがない j という 
ことと「難しくすればいいってものではない j 
という意見だった。こうして， Ys やドラクエの 
ようなストーリー重視かつ甘口 RPG が誕生した 
のだろう。これはこれで悪くない。むしろ歓迎 
すべきことであろう。 

しかし，これらのゲームで往々にしてわけも 
わからず行き詰まっている人を見かける。イぺ 
ントに対しては基本的に一本道なのだ。「単に作 
者に踊らされているだけじゃないですか」とい 
うと「踊らそうという側と踊らされようという 
プレイヤーがいて，初めてゲームが成立するん 
じゃないか」。それはもっともだが， RPG っての 
はそういうもんだっけと思ってしまう。 

基本的に ROGUE やウィザードリィといったゲ 
ームにはストーリーというものが存在しない。 
だからといって，ドラマがないわけではない。 

ストーリーがないにもかかわらず，国産 RPG の 
ように殺戮ゲームになり下がっていない（そう 
遊ぶこともできるが）。さて，どこが違うのだろ 
うかと考えてみても，ゲームバランス以外にこ 
れといった大きな違いはないようにも思われる。 
4 M ROM だ,ディスク5枚組だといった 物量 作 
戦に頼らなくとも，しっかりとバランスのとれ 
たゲームはオンメモリ，キャラクタ表示のみで 
も最高に面白いのだ。私は ROGUE 以上のゲーム 
を知らない。 

最近は派手なゲームが多いためか，こういっ 
たゲームの 本質に関することがおろそかにされ 
ているのではないか。はたして，多くの人が現 
在制作中（あるいは構想中）であろう，「自然会 
話で進行し，2桁のパラメータを持ち，果てし 
ないマップを持ち，進行状況でシナリオが変化 
するタイプの究極の RPG 」 などは必要なのだろ 
うか。なにか方向性を見誤っているのではない 
か？ 

ある日の M 氏との会話「どうして ROGUE みた 
いなゲームを S - OS 用に作る奴がいないんでし 
ょうね」「単に ROGUE を知らないんじゃないで 
すか」う一ん，これは残念なことだ。市販ソフ 
トウエアに対する挑戦という意味では S - OS の 
ようなシステムにこそ，こういった飾りを捨て 
た本物のゲームが現れてほしいのだが 。 （U ) 
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東京 

神保町 

三省堂神田本店 5 F 
03(233)3312 


// 

害泉ブックマート BI 
03(294)001 1 


// 

害泉 グランデ 5 F 

03(295)001 1 


八重洲 

八重洲ブックセンター 3 F 
03(281) 1811 


新宿 

紀伊国屋書店本店 
03(354)0131 


高田馬場 

未来堂書店 

03(200)9185 


渋谷 

大盛堂書店 

03(463)051 1 


池袋 

西武百貨店 1 IF ブックセンター 
03(981)01 11 


" 

西武百貨店 9 F 
コンピュータ*フォーラム 

03(981)01 11 


町田 

久美堂東急ハンズ店 
0427(28)2783 

神奈川 

横浜 

有隣堂横浜駅西口店 
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有隣堂ルミネ店 

045(453)081 1 
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藤沢 

有隣堂藤沢店 

0466(26) 1411 


定期購読のお知らせ 

Oh ! X の定期購読をご希望の方は，最寄り 
の郵便局にある払込用紙に， 

口座番号東京 1-29307 

加入者名株式会社日本ソフトバンク 

とご記入のうえ，年間購読料6,500円を添えて 

お申し込みください。その際，裏面の通信撊 

に「〇年〇月号より Oh ! X 定期購読希望」と 

忘れずに明記してください。なお，すでに定 



厚木 

有隣堂厚木店 

0462(23)41 11 


平塚 

文教堂四の宮店 
0463(54)2880 

干葉 

柏 

新星堂カルチェ 5 

0471 (64)8551 


船橋 

西武百貨店 1 0 F ブックセンター 
0474(25)01 1 1 


// 

芳林堂 害 店津田沼店 
0474(78)3737 


千葉 

多田屋干葉セントラルプラザ店 
0472(24) 1333 

埼玉 

川越 

黒田 害 店 

0492(25)3138 


JIIP 

岩渕書店 

0482(52)2190 

茨城 

水戸 

川又窨店駅前店 
0292(31)0102 

大阪 

都島区 
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北海道 

室蘭 

室閜工業大学生協 
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期購読をご利用いただいている方には，購読 
期限終了と同時にご通知申し上げますので， 
同封の払込用紙をご利用ください。 

海外送付ご希望の方へ 
本誌の海外発送代理店，日本 IPS (株）にお 
申し込みください。なお，購読料金は郵送方 
法，地域によって異なりますので，下記宛必 
ずお問い合わせください。 

日本 IPS 株式会社 

〒101東京都千代田区飯田橋 3- 丨卜6 
0 03(238)0700 
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特集 データベースで 情報整理 

R □巳基礎知識 

実践力ード型データベース PC - 9800 The CARD 2/ NinJa 2 
PC -8800 日本語 MYCARD 88， 
88 CARD , スーパー春望 

言語型データベース導入カイド桐と cIBASE で C □と蔵書整理！ 
ホットメニュー Eve / 知子の情報 

第2特集ワープロソフトにおける日本語入力の現状を探る 

一太郎/新松/ VJE - Pen / ニセコ A / オーロラエース/ 

KOA - 文書/創文び 

•新連載 八イパーテキスト•パワー 

_米国ショウ速報 

•OS 新時代の幕開け32ビット PC -9801 RA 2/5 


日 TII 

Oh/FM 


f4on 





特集マシン語環境グレードアップ 

FM-7 系用マクロアセンブラ 
マシン語プログラム徹底解析 
F-BASIC V3.0 用フルスクリーンエデイタ 
6809 二ーモニックー覧表 
オンメモ U 版簡易アセンブラ 
參 3 D - RPG 「 し ABYRINTH OF DARK 」 

參 USP インタプリタの解説 

〈連載〉カムイの言語見聞録 /MML ミュージシャン養成講座/ 
データベースを作成する/ F - 日 ASIC 解体全書/ 
Let’s PLAY MUSIC 11/ 谷山浩子のエッセイ 


BHI >コンピュータ技術者必携 
•第1櫓•例§受》 


情報処理試験 


日月号 
580円 




月刊す V * ユは〇〇—， 


情報処理試験 



特集1日種午前問題の理解度チェック 

主要8テーマ徹底演習〉 

基数変換/アドレス指定方式/磁気ディスク装置の計算/記憶装置の種類と 
特徴/オペレーティングシステム/プログラム開発/システムの信頼性/テー 
心通信 

特集21種実力養成ゼミ速攻！関連知識 

(数学)べクトル•行列/微分•積分：〔工業)待ち行列/意思決定理論：（商業〕財 
務諸表分析/損益分岐点分析 • 利益計画 
►カラー受験ゼミ ISDN 

►ザ•プロジェクト富士通研究所•並列処理マシン 「 CAP 」 プロジェクト 
►続•コンピュータ最前線にぎやかになった八イテクアートの現状 
►1 種重点講座必須コンピュータの知識/徹底マスタープログラム設計 
(別冊付錄〕昭和63年度10月情報処理技術者試験受験願書一式 

(オンライン技術者試験の出題科目の詳細も併せて掲載！） 



特集1 Be 印版“夏休みを256倍楽しむ方法” 

日 eep 版“風雲！たけし城7激射！長浜ワンダーウォーズ B 
アメージングスクェア/真夏のマルチプレイゲーム血みど 
ろの対決/肉体派力ードゲームわはは本舗ライブ I /お買 
い得カードゲームカタログ他 

特集2ドライな味わいセガ•スペシャル 

シノビ/魔王ゴルべリアス/ L 0 闩 □ QF SW 0 FID / 天オバカボン 
籲今月のパイルドライバー獣王記(ビデオゲーム） 

•徹底研究スペシャルイース11 (パソコン） 

三国志(ファミコン） 

•野球ゲームで暑さをブツとばせ！ベストプレープロ野球 


Oh ! X 1988.8. 173 











rso - 

Sho^on 

Jp ^S^ # 16 ビット用最新、自動/一括/連文 _Katana (刀)が自動-括•連文節変換実乳 

Wj ^ _ 随換システム Katana(7J> の完♦カイ型デ4ベ-ス鼸、刪鼸鼸 

^fm 35^1 # 今玫坫•他の洎料許さぬ女$表理九 


多物 
機か 
能と 
のう 
条か 
件が 


〇 


定価 ¥34,800 

XI シリーズ用ワープロ Ndl 

(㈱日本ソフトバンク刊 X3h./ 新作 
売れ筋 (~Vo 1 . 181 ) の全国売り上げ 
ランキング調査による） 


全移桢。143万棟にも及ぶ多彩な •他の追従を許さぬ文字表現力。 
文字表現。* 1 本格的データべ一春多様な用紙への印刷が可能。 
ス、表計算機能搭級。16ビットヮー 
フ。ロソフト、データベースソフトなど 
MS-DOS 上で勅くソフトとのデー 
夕互換。* 2 その他すベての機能が 
16ビット用に開発されたパーツ群 
により構成。フルスペックでなおか 
つ超高速。 



ソぶ7，用 EHDKI 

シリース0応20篇 


♦搴屬典〖《1ていいたたけ Jtf ん t ‘ 


<M .文字サイズ•文字1«•文字の位：•網かけ•下 
樣•カラー K 定の姐みあわせによる計算 ♦2 MS- 
DOS とのデータ交換 U2HD 版のみ奢 MS D0S はマ 
イク〇ソフト社の登II商檷です 


^>G 

〒仙蠆累 BIK 


90螫苺区大 S 
T£L03(23?)0»0KnW 


人を大切にするテクノ〇シー 

味式会 n サムシングク v 卜 


《広告の半ページ》相変わらずウソくさいけど本当に売ってます> 


月刊 

3 HI 




8月号 (Vo 1.3) 
7 月 18 日発売 

MJOO のための雑誌だつ/ 


參キー パ、ツフア してし まう keyO () 

• EJECT ( ぬど，もう一度ピリリと小技をキメる 
參 MSX マウスをつないでしまった りする 


RAT ドライバの製作一その1 


納沒 

花火ソフト：スターマインから線香花火を経由してへビ花火まで 
ホラー，才カノレト，スプラッタソフト！ 

パソコン〇は以7々 

PDS 

• ATTRIB.X をパワーアップ： ATTRIBED . X 

• EJECT . X ， FF . X ， PCMSTOP . X ， OI | F . X ， TVCTRL . X など，ピリリと 
小技をキメる 

♦タテ•ヨコハ。ズルジェネレ“•夕 

編集長祝一平からの御挨拶「これから暑い夏がやって来ますが私のせ一ではありません J 


• 周辺機器争藓バトルロイヤル参加者募集 
•その他，色々,|、いつくままにやってしまうのだ 
鞠らには*^〇アド:ザ/卜も,炸》 

I ちろん，これ以^ H こてんこもりっ| 

なお，内容は一部変更されることがあります■御了承ください ij 


満開製作所_111 

〒171東京都豊島区要町1 一3—24三浦ビル 3 F 
TEL .(03)554-9282( いたずら電話はしないでね） 


販売方法は通信販売のみです。お申し込みの方法は左記の住所へ現金書留で 

定期購読6力月分6,000円(郵送料サ-ビス） 

何月号 (Vol •何？）からの購読かを明記してください。創刊号に逆上っての購読もお受けじ C おります。 

郵便振替を御利用の場合は口座番号「東京 5-362847 満開製作所」でお願いいたします。 

(振替を御利用の場合は発送までに10日以上かかります） 
















OK - システム 1 字 


個人簿記会計財計くん 2 HD 版 
定価49,800円 


財計くん売掛管理台帳 2 HD 版 
定価39,000円 


厂 DATA • CARD 120 0 J 2 D 版 

定価32,000円 


出力帳票：科目一覧表 • 摘要一覧表 • 期首 
試算表 • 期末試算表 • 貸借対照表 • 損益 


計算書•仕訳帳 • 各科目別元帳 • 合計残 
髙試算表 

処理金額 9桁10億円/年間 

月間仕訳処理数 9 0 0件まで 


仕訳入力は一度 振替伝票方式を採用 

使用勘定科目数 75個（年度別変更可能) 

摘要小書き入力 A と B の2つ 


B は自由入力 


オート•ソート 仕訳訂正 :] e 

日付自動処理 

ラクラク金額入カカンマ付、無 


どちらも OK 


プリンター用紙 

縦11イソチの白紙又は if 線入りを使用 
下さい。 

ドットプリンターなら、複写用紙も使用 
できます。 

能カアップの内容 

1 . ディスクの入れ替えなしでシステム • 
ユーザー辞書が使えます。 

2. 月次繰越処理と決算繰越処理のルーチ 
ンを設け、2 D 版での手作業処理を解消 

3. 科目&摘要の入力時に HELP 機能有 

4 . 1枚のデータ•ディスクで3倍のデー 
ターが保管可能 

5. 2 HD となりより高速処理を実現 


「個人簿記会計財計くん」2 D 版 
定価39,800円 


2 HD 版との相違は、先の能カアップの 
内容以外の通りです。 


各資料のご請求は 


各製品には、詳しい説明資料（印字サン 
ブル付）を用意しております。又、実費 
2,400円にて各デモ • サンプル版も発送さ 
せて戴いております。 

説明資料は各1部あたり2 0 0円分の切 
手を同封の上、必ず封書にてお申し込み下 
さい0毎週月曜日に発送致します。 

デモ • サンプル版の発送は逐次おこな っ 
ております。 


出力帳票：納品書 • 請求書 • 領収書•アイ 
ウエオ順顧客一覧表 • 取扱商品一覧表 • 
売上日計表，売掛残高一覧表 • DM シー 


ル（条件検索可） 
処理金額 
1顧客処理件数 
処理顧客数 
取扱商品数 
登録済顧客変更 
メ ッセージ 出力 
帳票3段階選択 
商品単価無登録 
ラクラク金額入力 


9桁10億円/年間 
6 0件/月間（繰越可） 
1 DataDisk 1200名 
1 DataDisk 250品目 
台帳内「変更 B 」 で自在 
請求書•領収証に可能 
顧客別 or〆 切別 or 全部 
250品目が無限使用に 
カンマ付、無 

どちらも OK 


プリンター対応表 

売掛管理台帳にはプリ ンターに より4 つ 
のシリーズ品番がございます 0 ご購入の際 
にはご確認願います。 N ¢>701 • No 702 • No 
703 の 用紙は ヒサゴ GB 342 と 縦11イ ソチの 
白紙又は鄞線入りのものを使用します。 
No 701 : CZ -8 PK 3 .CZ — 8 PK 4. CZ —8 PK 5_ 
CZ —8 PK 6 • CZ - 8 PK 7 • CZ —8 PK 8 • 
CZ - 8 PK 9 • VP -80 K • VP - 130 K • 
VP -85 K - VP -135 K 
(VP シリーズ要 X 1 ROM ) 

No 702 : CZ -8 PK 2- CZ -80 PK 
No 703 : CZ - 8 PD 3 • CZ - 8 PD 2 • CZ - 800 P - 
SP -80 (SP シリーズ要 X 1 ROM ) 
No 704 :ドットプリンターなら2枚複写用 
紙を使用できます 0 縦11インチの 
白紙か貴社の専用フォーム紙をご 
使用なさる時に便利です。なお専 
用フォーム紙は貴社で作製願いま 
す 0 

能カアップの内容 

1. ディスクの入れ替えなしでシステム. 

ユーザー辞書が使えます。 

2. 商品名の入力時に HELP 機能有 

3. 2 HD となりより高速処理を実現 


「財計くん売掛管理台帳」2 D 版 
定価29,000円 


2 HD 版との相違は、先の能カアップの 
内容以外の通りと、処理顧客数が600名に、 
取扱商品数が150品目となります。 


カー ド型 データ ^ ースと しての機能と 

グラフ作成 ツールの グラフ データー•ファ 
イル機能を持っています0 

検索は1,124枚のデーターカー ドから3 
重条件を処理します。 

項目設定は自由設定で12個まで可能 

DM シール発行 • 葉書宛名印刷も条件検 
索できます。 

カー ド No による データーの 抜粋 • ステッ 
プ印刷ができます。 

7種類 .22 タイプのグラフを作成し、12 
項目12データーを1単位として1 DataDisk 
内に76個を格納し、処理します。 

縦棒グラフ•横棒グラフ•帯グラフ•円 
グラフ•折線グラフを作成します。各棒グ 
ラフは3 D 使用可能です0 


ご購入は 


全国シャープ OA ショールームには、デ 
モ•サンプル版が配布されております。ど 
うぞ、ご利用下さい。 

ご購入はお近くのシャープパソコン販売 
店か、有名ショップでどうぞ0 

お急ぎの方は直接現金書留でお申し込み 
下さい。なお、その節は、商品名•機種名 
(プリンターを含む） • メディア名•住所 • 
氏名 • 連絡先お電話番号をご明記下さい。 

直接販売の場合、送料は弊社負担です。 
製品はフットワーク便にて直送させていた 
だきます。（出荷日には、弊社より、出荷 
ご案内と、送り状の商品お問合せ番号をご 
速絡申し上げております。） 

なお、弊社の財計くんシリーズ、 DATA - 
CARD 1200 ともシリアル No 入りとなって 
おります。 

業者の方は、各問屋さんへお申し込み下 
さい。 

※日曜•祭日はお休みです。※ 

〒885宵崎姑都城市都岛町430~2 

OK - ハウス 

TEL 0986 -25-0303 
FAX 0986-25-9553 






















=BASIC HOUSE で68000 CPU が大流行 


SHARP 





X 68000 ( d ンョン) 

X 68 スーパーコブラ n 

2 MB バージョン 
本体 (増設 メモリ内蔵） 
専用デイスプレー 


標準価格 

¥530,800 
起特価 

¥398,000 


SHARP 




X 68000 ACEHD 

20 MB ハードディスク内葳版 


懸 i 


本体 CPU 
専用 ディスプレー 
チル ト スタンド 
標準価格 

¥525,400 

特価 ¥478,000 



Apple Macintosh Plus. 


漢字 Talk Ver .2.0 
2 MB メモリ内蔵 



標準価格 

¥428,000 

• 

. — 

k 、.、 

起特価 

20 M ハードディスク付 

V 


¥428,000 


長期クレジット OK 送料2,000 


長期クレジット OK 送料2，000 


長期クレジット OK 送料2,000 



日000 オリジナル八ードウェア•ソフトウェア新製品 
-祕▲繊_ ■傾 e 織■網起織 


型番 

KGB - X 681 MB 
1 MB 增設メモリ 

春 ACEHD 版等は使 
用できません。 


1 M 跋締料 

型番 

KGB - X 68 PRK 

数値演算プロセッサ 
4 MB 増設 RAM ボード 
♦数値演算プロセツ 
サはソケットのみ増 
設メモリーは1 MB 実 
装0 


型番 

KGB - X 68 ADC X 
12 Bit 16チヤンネル 
高速 A / D コンバータ 

サンプ;レソフト付 


型番 

KGB - X 68 PIO 
16 Bit input 
16 Bit output 
高級絶縁型 PIO 
サンプルソフト付 


型番 

KGB - X 68 DAC 
12 Bit 4チャンネル 
高級 D / A コンバータ 

サンプルソフト付 


定価 ¥32,000 定価 ¥58,000 定価 ¥128,000 定価 ¥68,000 定価 ¥118,000 


新発売.グ 


• B 6-6305. ¥6,800 

C 言語ライブラリー （ XBASIC 用） 
B 6-630 1をお持ちの方はどうぞ！ 

• B 6-6306. ¥14,800 

BASIC 拡張関数パッケージ C 言 
語ライブラリー付 

• KGB - X 68 UNB . ¥6,800 

X 68000 用ユニバーサル基板 
金メッキ•スルホール•力ードプラー付 


開発速報 


MS-DOS(PC-DOS ) エミ 


. IBM ( PC - DOSver 3.2) NEC ( MS - DOSver 3.1) が動きます 0 

63 年 8 月初旬 

未定（とにかく低価格でだします） 


X 6 日000用八ンデイープリンター 


★第1弾 

XI turbo シリーズ . 

商品発売予定 . 

商品価格 . 

★第2弾 

X 68000 でシャープワープロ書院用のハンデ f プリンターが使用できます> 

商品発売予定 . 63 年 7 月末日 

商品価格 . ¥24,800 

‘第3弾 

Human 68 K を使用する上で、あれば便利/と I う様なユーテ^テイを70個も用意したソフトです。1つの 

商品名 .Toys & Tools 商品価格 . 

型番 .B 6-6307 

★第/1弾 _ 

X 68000 で初めての MIDI インタフェースユニットハードウェアー完成 

商品名 . MELODY BOX 商品発売予定日 

商品価格 . 低価格で ガ 

★第口弾 

X 68000 でニューメテ^ア AV 対応テレビ (21 P アナログ RGB 付) が接続 出来る コヲ R —タユニット 

商品名 . アナログ RGB コンバータ（仮称） 商品発売予定日 . 

商品価格 . ¥12,800 

興味のある方は、開発者までお問い合わせください。 


X 6 日000ユーテイリテイソフト 


サイリテイが何と/ 97円で買えるのです。 

. ¥6,800 


MIDI インタフエ _ 


•未定 


アナログ RG 巳コンバータユニット 


•7 月末日 


全国どこでも発送可長期クレジット OK 送料全国均一¥1,000宅配便にて即日配送 


株式会社計測技研 本社 営業部/マイコン ショップ/通 販部宇都宮市竹林町 503—1 TEL 0286-22-9811 FAX 0286-25-3970 
マイコンショップ L は… お申し込み•お問い能は 





























































シャープコーナーさらに充実/ 
夏休みお楽しみセール7/20〜8/20 

•お買上げの際学生証をご提示の方、 
ゲームソフト他サプライ品 20% OFF / 
•期間中丨万円以上お買上げの方に 
ステキな景品プレゼント/ 


営業時間 


AM10:00 〜 PM7-00 

(日曜•祭日は PM 6:00 まで) 


年中無休 




START 


お好きな組合せ 
でどうぞ。 


本体 

スタンダードモデル 

XI68000 

• CZ -601 C ( E - B ) ¥319,800 

プロフェツシヨナノレタイプ 

XXB8000aceeiei 

• CZ -611 C-GY …¥399,800 

新製品. 20 M ハードディスク内蔵.グ 


ディスプレイ 


周辺•ボード 


> CZ -60 1 D-G Y (B K ) •. ¥ 119,800 

ピッチ 0.39 •アナログ対応 


CZ -61 ID - GY ( BK ). ¥ 145,000 

ピッチ 0.31 •アナログ対応 


» CU -15 M 1( E - B ) •.…¥ 99,800 

ピッチ 0.39 •アナログ/デジタルモニター 


• CZ -8 PK 7. ¥122,000 

80桁ドットインパクトプリンター 


► CZ -8 PK 8. ¥152,000 

136桁ドットインノ《外プリンター 


• CZ -8 PC 2. ¥ 69,800 

80 桁熱転写プリンター 


. CZ -6 BEKA ) ……¥ 35,000 
1 M 巳増設 RAM ( CZ -601 C 用） 


★その他いろいろあります。お電話で! 


組合せのほんの^例 
名づけて 

• CZ-601 G(E.B) 本体+キーボード…¥ 319,800 

• CZ-601D (E •日）デ f スプレイテレヒ V119,800 

• CZ-6ST1 (E.B) チルトスタンド… ¥ 5,800 

•スペースハリアー . ¥ 6,800 

• 源平討魔伝 . V 7,800 

• XE-1 PRO (ジョイスティック）……¥ 9,500 


GOAL 


さあ、ご注文、お問合せは今ス 
グお電話で/お支払いは超低 
金利のクレジットもご利用で 
吉ます。お気軽にご連絡くだ 
さい0 


ソフト PART 2 


ソフト PART ! 


■定価合計¬ 


- ¥528,700 


Q03-486-6541 


均等払い 

ボーナス 

¥16,850 x 18® 

¥30,000 x 3回 

¥12,670 x 24 回 

¥ 25,000 x 4回 

¥ 8,490 x 36回 

¥20,000 x 6回 


ソフトや八ードの内容や発売 
日等のおたずねにも親切にお 
答えします。 


籲 X し ink 68 . ¥19,800 

時代はパソコン通信だ/ 

• ミュージック PRO -68 K …¥18,800 
參サウンド PRO -68 K ••…¥15,800 

ミュージック関係ならこの2本/ 

• サンプリング PRO -68 K .¥ 17,800 

P 〇 M を:7ル活用するならこれ/ 

• C - TRACE 68000……¥68,000 

本格的レイトレーシングツール 


•日 本語ワープロ EW ¥ 38,000 

フロントプロセッサ E1 搭載ワープロソフト 

• WINDEX PRO -68 K V 28,000 

コンパイラと来たらエディタです。 

• Kamikaze . ¥ 68,000 

忘れちやいけないビジネスソフト 

• Z ，s STAFF PRO -68 K - ¥ 58,000 

プロフェッショナルグラフィックツール 




•ソフトも周辺機器も紹介しきれないぐらい豊富です0 くわしくはお電話で/ 






クリエイト特典_ 


•全商品完全保証害付(メーカー保証） 

•全国無料配逹(一部離島の方は有料になります） 

•配連日の指定 OK (日曜•祭日にかかわらずお客様のご 
都合にあわせて配達します） 

#どんな商品の組合せも自由自在（ご予算、用途に応じ 
自由自在にシステムアップできます） 

#中古パソコン高額下取（今お使いのパソコンをわずか 
な差額でグレードアップ） 

#お支払い方法自由(低金利の均等払、ボーナスー括払 
もご利用下さい） 


• CZ -88 1 C-BK 本体+キーポード..¥ 179,800 

• CZ -880 D-BK ディスプレイテレビ •. ¥109,800 

• CZ -6 ST 1 B チルトスタンド……¥ 5,800 

籲 AN -160 SP アンプ 内蔵 スビーカー.¥ 59,800 
•ブランクディスケット…. ¥ 4,500 


• CZ 430 C-BK 本体+キーポード.¥99,800 

• CZ -830 D>BK ディスプレイテレビ…¥98,000 

• CZ -6 ST 1 B チルトスタンド . ¥ 5,800 

•上海(ゲームソフト)-- ¥ 4,500 

秦ブランクディスケット . ¥ 4,500 

■定価合計 . V 359 t 7 QQ _ 


■定価合計 . ^rmsofL 


大特価周辺機器(各ケーブル付き） 



当店は X 68000 の認定店です。 

どんなことでも安心じ C ご相談ください0 

★ X68000 をお買上げのお客様にもれなくテ 
レホンカードとゲームソフト(アルカノイド)をブ 
レゼント中/ 


品石 

定価 

機能 説明 

ITH -320 S 

¥4257000 

20M ハードディスク平均シークタイム 28ms 以下 

ITH -520 N 

¥^800" 

20M ハードディスク平均シークタイム 65ms 以下 

ITH -540 S 

¥mm 

40M ハードディスク平均シークタイム 38ms 以下 

VP -800 

¥mm 

80桁シリアルプリンタ 




㉔ 浜駅 1 ] 


籲渋谷店 SQ 3-486— 6541(代) 


〒150:東京都渋谷区渋谷 1-12-7 三和渋谷ビル 
振込銀行:協和銀行渋谷支店® No 239313 


亍221:横浜市神奈川区鶴屋町 M2-8 第1建設ビル 


籲横浜店 s 045-314-4777( 代) 振込銀行：三和銀行横浜駅前支店® No. 310852 





































































































XlturboZII 

XI turbo Z II 

X68000 

X6SOOO ACE 

r M ** S * l || I XlturboZ の本格派 

I NEW-ZBASIC の搭 

\ | 20 MB 大容置メモリ内 

.. CZ -600 の後継直接 



オートスキヤンテ V スプ 
レイ。 

CZ-88IC--V 179,800 
CZ-88ID ¥ 109.800 
合計 . ¥289,600 

特価 ¥203,000 

お支払例 ¥20, 628X12 回 ¥10,964X24 回 
¥ 7,681X36 回 ¥ 6,040 X48 回 





•2861 



高級日本賭ワープ □ 
「書院 28」搭載、 MS - 
DOS と融合しスビー 
ディな実務。 

MZ-286h"¥328,000 
MZ-ID26 …¥ 89,800 
合計 . ¥417,800 

特価 ¥3123.000 

お支払例 ¥30, 803X12 回 ¥16, 373X24 回 
¥ 1 1, 470X36 回 ¥ 9,019X48® 


卜、充分に楽しめるそ;> 


CZ-88IC - • V 179,800 
CU-I4BD- - V 64,800 
合計 . ¥244,600 

特価 ¥190.000 

17,760 夕 12 回 ¥ 9,440 X24 回 
6, 613X36 回 Y 5,200 X48 回 


今よりもなお ハイ グレ 
ードに、とお考えの方 
に…更に可能性を拡 
大する。 

MZ-253 卜 •• V 199,800 
MZ-ID22- V108,000 
合計 . ¥307,800 

特価 ¥238,000 

お支払例 ¥22, 015X12 回 ¥11,702X24 回 
V 8, 198X36 回 Y 6, 4/16X48 回 


蔵可能、しかも強力な 
日本語処理、夢を起え 
たパソコンだ/ 



アクセスできるメモリー 
か 16 MB もある優れも 
の0 


CZ-600C- - ¥369,000 
CZ-600D""¥ 129,800 
合計 . V 498,800 

¥308.000 

お支払例 ¥31, 265X12 回 V 16,618X24® 
V 1 1, 642X36 回 Y 9, 154X48 回 



CZ-60IC-V 319,800 
CU-l5Mh..¥ 99,800 
合計 . V419,600 


¥305,000 


2520 




MZ をこれから使う方、 
少々ぜいたくですが是 
非お勧めしたいセット 
です0 

MZ -2520-••• V 159,800 
MZ - ID 26 …¥ 89,800 
合計 . V 249,600 

特価 ¥200.000 
お支払例 YI 8,500 X 12 回 ¥ 9, 833 X 24 回 
V 6, 889 X 36 回 ¥ 5, 417 X 48 回 


お支払例 ¥30, 988X12 回 ¥16,471X24 回 
¥11,539X36 回 ¥ 9,073 X48 回 


NEW-ZBASIC は後 
で買えばいい。 
ハイグレードモニタを 
セットして驚異の価格 c 

CZ-880C- - ¥218,000 
CZ-880D-Y 109,800 
合計 . ¥327,800 

特価 ¥108,000 

お支払例 ¥16, 465X12 回 ¥ 8, 752X24 回 
¥ 6,131X36® V 4,821X48 回 



X1Gmodel30 IxiGmodenQ ■ XlFmodellO I XItwin 



X 1 G の本格派セット 
FDD 2 基内蔵、専用 

カラー モニタは TV に 
も使用可能。 

CZ-822C--Y 118,000 
CZ-820D - -Y 79,000 
合計 . ¥ 197,000 

特価 ¥009.800 

お支払例¥ 9, 232X12 回¥ 6,348X 18 回 
V 4,906 X 24 回 ¥ 3,438X36 回 



FDD も欲しい、レコー 
ダも使いたい、予算が 
10万以下ならこのセツ 
卜をお勧めします。 

CZ- 820C- V 69,800 
CZ- 8200-V 79,000 
CZ- 503F-Y 49,800 
合計 . Y 198,600 

¥94,800 

お支払例 Y 8, 769X12 回 Y 6,030X 18 回 
Y 4,661X24 回 Y 3, 265X36 回 



とりあえず BASIC を 
覚えてデ< スクソフド C 
遊ぶのは後まわし、そ 
んな君へのセット。 

CZ-81IC-- V 89,800 
CU-I4G ••…V 49,800 
合針 . V 139,600 

¥59,800 

お支払例 ¥10,664X 6 回¥ 6, 578X10 回 
¥ 5, 532X12 回 ¥ 3,804X 18 回 


HE システムを搭載、 
最上級ゲーム機とパ 
ソコンが合体0 



CZ-830C--- V 99,800 
CZ-830D - - V 98,000 
合計 .Y 197,800 

¥13 8.000 

お支仫例 ¥14, 615X12 回 ¥ 7, 768X24 回 
V 5, 442X36 回 ¥ 4, 279X48 回 


48 

型番 

品名 

播車価格 

販売価格 

お支払例 

型番 

品名 

価格 

販売価格 

お支払例 

型番 

品名 

桶準価格 

販売®格 

お支払例 

0 

CU-\AGE 

ディスプレィ 

V 

49.800 

V 29,800 

V 

3,278X|〇回 

C2-620H 

HDD 

V 178,000 

激安 


? X ? 

C2-6BFI 

椾投 RS232C ボード 

y 

49,800 

V 

4?,000 

V 

3,013 XI5 回 

CU-UBD 

ディスプレィ 

V 

64,800 

V 77.000 

V 

3.54IX 15回 

CZ-8PC2 

プリンタ （ 80桁) 

V 69,800 

V 5?,000 

V 

4.995X12回 

CZ-6BPI 

»僅プロセッサポード 

¥ 

79,800 

¥ 

6?,000 

V 

3, 147X24 回 

ま 

CU-UA4 

ディスプレィ 

V 

89,800 

V ?3,000 

V 

3,371X 18回 

CZ-8PK5 

プリンタ< 80桁） 

V 129,000 

V1?0,000 

V 

3, 444X36 回 

CZ-6EBI 

I/O ，ボックス 

V 

88,000 

V 

6?, 000 

V 

3, 343X24 回 

で 

CU-UAD 

ディスプレイ 

V 

84,8 0G 

V ?8,000 

¥ 

3,689X18回 

CZ-8PK7 

プリンタ （ 80桁) 

V122,000 

V 9?,000 

V 

3, 238X36 回 1 

1 CZ-8TMI 

モデム 

V 

29,800 

V 

21 ,000 


現金一括払 

lii 

CU-I5MI 

ディスプレイ 

V 

99,800 

V 77.000 

Y 

3, 786X24 回 

C2-8PK6 

プリンタ（136桁） 

V159,000 

V1?3.000 

V 

3,331X48 回 

CZ-8TM2 

モデム 

V 

49,800 

V 

?9,000 

V 

3,608X12回 

巨 

CZ-820D 

ディスブレイ 

V 

79.800 

V ?4,800 

V 

3, 375X15 回 

CZ-8PK8 

プリンタ （I36ffi) 

V152,000 

V1?7,000 

V 

3, 169X48 回 

CZ-2I3MS 

MUSIC PRO-68K 

V 

18.800 

¥ 

15,800 


現金一括払 

由 

C2-880D 

ディスプレイ 

V109,800 

V 8?.000 

V 

4,081 X24 回 

C2-8PK9 

プリンタ （ 80桁) 

Y 89,800 

V ?0.000 

V 

3,442X24回 

CZ-2I4MS 

SOUND PRO-68K 

V 

15,800 

V 

13,800 


現金一括払 

1- 

CZ-60ID 

ディスプレィ 

V119,800 

V 97,000 

¥ 

3,203X36回 

CZ-8NSI 

カラーイメージスキャナ 

V 188,000 

V 1?0,000 

V 

4.063X48回 

CZ-2I2BS 

ビジネス PRO-68K 

V 

68,000 

V 

5?, 000 

V 

3.435X18回 

1^— 

CZ-6IID 

ディスプレイ 

V 145,000 

V1?3,000 

¥ 

3, 892X36 回 

CZ-6VTI 

カラーイメージユニット 

V 69,800 

V 5?,000 

V 

3,562X18回 

CZ-2IILS 

(デコンパイラ PRO-68K 

V 

39,800 

V 

3?,000 

V 

3,52 0X 10回 

選 

CZ-520F 

FDD(2HD/2DD) 

V II8,000 

V 97,000 

¥ 

3, 169X36 回 

CZ-6PVI 

カラービデオプリンタ 

V198,000 

V 1?4,000 

V 

4.171X48 回 

CZ-I4ISF 

NEW-ZBASIC 

V 

18,800 

V 

15,800 


現金一括払 

ベ 

CZ-502F 

FDD(2DD) 

V 

99,800 

V 7?,000 

Y 

3,け 2X30 回 

AN-I60SP 

アンブ内 fll スピーカー 

V 59,800 

V ?8,000 

V 

3,053X18回 

CZ-I37SF 

turboZ’s STAFF 

V 

19,800 

¥ 

16,800 


現金一括払 

CZ-503F 

F0D(2D) 

¥ 

49,800 

V 37.800 

¥ 

3.219X12回 

CZ-8BSI 

FM 音*ポード 

V 23,800 

V 19,800 


現金一括払 

CZ-I33SF 

モデムターミナルソフト 

V 

25.800 

¥ 

2?,000 


現金一括払 

ま 

C2-6BEI 

IMB / 增投 \ 

V 

35,000 

V 2?.000 

V 

3,08 0X |〇回 

CZ-6BNI 

スキャナ用パラレルポード 

V 29,800 

V 24.000 


現金一括仏 


Z # STAFF PRO-68K 

V 

58,000 

¥ 

47,000 

V 

3,541 X 15111 

ナ 

CZ-6BE2 

2MB RAM 

¥ 

79,800 

V 6?,000 

V 

3,944X18回 

CZ-6BUI 

ユニパーサル10ポード 

Y 39,800 

V 3? ,000 

V 

3.520X 10回 


kamikaze 

V 

68,000 

V 

5?, 000 

V 

3,499X 18回 

7 

〇 

CZ-6BE4 

4MB \ボード/ 

¥138,000 

V1?8,000 

V 

3,720X36回 

CZ-6BGI 

GP-IB ポード 

V 59,800 

V 4?.000 

V 

3,053 x 18回 


Shogun 

¥ 

34.800 

V 

30,000 


現金一括払 


頭金なし 钱讲 8®^ ジン h 

カレッジクレジヅト 

fert ] no 通常の場合、当社 c 申込霱か到着 ana 間以内。特に人気のある商品で品薄の場合、 | 

rW 少々納期か遅 .n る期合ちあり莩すので御了承下さい。 

製品先取り 被也いは約 1 〜 2 乃月後から。 

低金利クレジット 

すべてメー乃一保証讎忉 
7 C ±|/^6 JI : P フターケア万全。 

AM 10 時から PM 8 時| 


全国代引 お届けし G 者Iこ、代金をお支払いい G だ<方法です。（但し、手数料1.000円） 18 才未満の方 


ご両親が代理»入者として 
お申し込み下さい。 


まで受彳寸日曜•祝日も営業 


1麵％3職 

言用ガニ/ 


電波ヒル 




AVC フタ八電機通信 
I 販売邰 


外堀通り 


AVC フタ八 電機 本社 

□日通ビル 


至上野 


1秋窠原职 f 1 & やマキワ 

AVC フタバ電機 

亍101東京都千代田区外神田 2-9-8 
神田 ユニオンビル S03-253-766K 代） 


今すぐもよりの電話から 

仙台 022-264-3704 

名古牖 052-452-3871 

広應 082-295-6873 

ネ L 幔 011-B11-5104 

新瀾 0252-75-4175 

大阪 0B-311-3931 

福岡 092-481-M94 

X68000 ACE-HD 

X68000 ACE-HD 

X6SOOO ACE-HD 

X68000 ACE 



ドットピッチ 0.31 mm の 
ターをセット 20 M 
HD 搭載の超高級セ 

ット〇 

CZ-6IIC 〜 ¥399,800 
CZ-6IID ¥ 145,000 
合計 . ¥544,800 

特価 ¥404,000 

お支払例 ¥40, 145X12 回 ¥21, 338X24 回 
¥14, 949X36 回 ¥11,754X48 回 



強力な日本語処理と 
実装密度を追求して信 
頼性、更に 向上。 


CZ-611C •…¥399,800 
CZ-60I ……¥119,800 
合計 .Y 519,600 

特価 ¥404.000 


お支払例 ¥38, 295X12 回 ¥20, 355X24 回 
V 14,260 X36 回 ¥ 11,213X48 回 


更に夢を拡大、 20 MB 
HD の搭載。最大に能 
力を引出す3モードの 
ディスプレイ。 

CZ-6IIC-V 399.800 
CU-I5MI-- V 99,800 
合計 . ¥499,600 

特価 ¥400,000 

お支払例 Y 37,000X 12 回 ¥19, 667X24 回 
¥13, 778X36 回 ¥ 10, 833X48 回 




CZ -600 の後継直接 

アクセスできるメモリー 
が 16 MB もある優れも 
の。 

CZ-60IC •…¥319,800 
CZ-60ID---V 119,800 
合計 . ¥439,600 

特価 ¥303,000 

お支払例 ¥32, 653X12 回 ¥17, 356X24 回 
¥12, 159X36 回 ¥ 9,560 X48 回 


• セットの組合せは自由 V. 広告に出ていない他の機種はお問合せ下さい。 








































































































































































►現金一括でお申込みの方 

爆商品名（商品 番号） 及び、住所、氏名、 電話番号、 ご II の雑 
访名をご記入の上、代金を現金窬 a でお送り下さい。 
•振込をご希2の方ば必ずお振込前にお 電話 又はおハガキで、 
お知らせ下さい。 

<銀行搌 込〉協和銀行•久里浜支店当座 N 0.2945 
<酆便振替〉 横游 9-421 77 
►クレジットでお申込みの方 
•電話 かハガキでお申込み下さい。 

クレジット申し込み用紙をお送り致しますので、ご記入 
の上、当社へお送り下さい。 


申込害 

♦ 商品名(商品番号) 
* 支払回数 
参お名前 
«生年月日 
• ご住所、電話番号 
籲お勡め先 
名称、住所、電話番号 


電話でのお申込みは 


東京受付センター 

003 ( 252)2608 

大阪受付センター 

306 ( 363)1605 


年中無休 AM 10 時〜 PM 10 時 


SHARP 


^XXBBOOO 


X - 68000に H D モデル登 


XK 6 B 0( 

セット 


)nn * 02 - 6000 :本体+キーボード 
し 7 し參 CZ -600 D : ディスプレイテレビ 


0000籲 dc : 本体+キーポート’ 

參〇2-601〇:ディスプレイテレヒ 

3*^ ット 


XKBBi 


1000 
:セット 


• CZ -611 C : 本体+キーポート • 
• CZ -611 D ： デイスプレイチレビ 



( 商品番号166 |定価 <498,800特別価格) 

商品番号187 |定銦 V 439,600特別価格 

商品番号183 |定544,800特別価格 

24回 

初回181480円.16,900円 x 23 回 

24回 I 初回1 B *6 B 0 r * 17,400円 X S 3 回 

24回 

初回22,560円 • 81,300 r x S 3 bi 

、36回 

初回15,040円 • 11,800円 x 35 回ノ 

36回 | 初回13,340円 • 12,200円 x 35 回 

36® 

初®1 7.240 円 • 14,900円 x 35 回 ! 


^SBBOOO *02-6000 :本体 + キーポード 

參 C 2-600 D :ディスプレイテレビ 
• CZ -6 ST 1 :チルトスタンド 


參 CZ -8 PC 2 :熱 転写プリンタ 


IY 6 

E 


SSOOO ® CZ -600 C :本体 + キーボード 

• CZ -60 CD : ディスプレイテレビ 
セ、•ノト # CZ -6 ST 1 :チルトスタンド 

參 CZ -6 VT 1 :カラーイメージユニゥ 


XK 6 BO 00 •CZ- 600 C :本体 + キーポード 

*02-6000: ディスプレイテレビ 
ット • CZ -6 ST 1 :チルトスタンド 


夢を超えた • 

一新されたクオリティ&フオルム， 
常*を超えたところに16ビットの 
理想形が見えて来る. 


商品番号 184 j 定価 1574,400 特別価格 


♦ CZ -8 TM 2: モデムュニ 




124回「初回21,960円 • 19, 

回 | 初回 1 15,340円 • 1 d , 


19,800円 x 23 回 


1，900円 x 35 回 


" 商品番号 185 |定価 1574,400 特別価格) 

( 商品番号 186 | 定« 1554,400 特別価格 'l 

24回 

初回21,980円 • 19,800円 x 23回 

24回 

初回 1 19,460円19,400円 x 23 回 

、36回 

初回15,340円13,900円 x 35 回ノ 

、36回 

初回17,040円13,50 Or x 35®, 


SHARP XT /7 t*Wi n ll XXJV ^^ l ( fdel：W 


•cz-aeic 

ncw-2 basic 皆 naiLxxi 
ItKbo 2 AHIl 瀵れ K つた， *0U. 
顧 M の癱ビッ h 7 シンだ， 

• CZ<880D 

1481^9- 


摞準®格 289.60 OR 



•CZ-880C 


•CZ-680D 


攆準僅格 327.80 OR 


•* B - - - • 


• CZ-830C 

X Uwin の twin U Iwlncom だ • 

ME シス，ム V 内 J91 し • X シリ _ 
ズ霸 tJUt 皆 M< 入广 ML 

CZ-830D • 

f イスプレイ r レビ * 


衊197.800円 



• CZ-822C 

£ニフ〇ッピーディスクドラ 
イプ2トライプ内 《 L * 裹 
得点し必！•プ〇セス L ビ 
ヂオに II れ* W のマルチ 
ビジュアル《«子 «*IL 

• CZ-820D 

1442カラーディスプレイテ 
レビ. 

懞承偭格197.800円 


襄 A 番号164 一格仏儀格228.000円 


24 


38〇 


!11460 ft 11,100円 x 23 a 


• I 晶番舞167丨 一括払钃格188.000円 


d 4 s Ma 10, B 5 DR , 9 t 10 GR x S 3 ia 
mb 10,940円 7,700 r x 35 ibJ '3 Be wo 7540円. 6,400円 x 3 Sn 


^ C 豳*番号 

S 4 nl v 


136 b 


165 [ 一格 R 儀格158.000円 


mb 7,760円. 7.700円 x 23 回 


8,840 ft 5.30 QR x 35 a 1 136111 


商品番号086 —括払価格108.000円 


24 i 


初回 6,/60 r - 〇,£00円 X E 3 回 


初面 6,840 n * 3,600 r x 35§ / 


シリーズ用周辺機器 


カラービデオプリンタ T カラーイメージスキャナー 


熱転写カラ-漢字プリンタ I 24ピン漢字プリンタ ( 136術） 


• CZ-6PV1 

パソコンやビデオ徵 I* に対応 C 
I 64«_(48SX 480ドット)で褥埂 
する、昇華性染料熱転耳方式 j 
を採用。 

標準価格198.000円 


f 商品番号149 | 一括払 価格158,000円1 

{ 商品番号188 |—括 払 価格148.000円 

24回 

初回7,780円7,700円 x 23回 

24回 

初回7,560円* 7,200円 x 23 回 

[3 B 回 

初回8,840円. 5,300円 x 35回 v 

、36回 

初回7,040円* 5,000円 x 35 回ノ 


ィレベルな画た^—里•民ぬ 2 文•作成.， 

« 準価格188細円標準価格69.800円_ I 


• CZ-8PC2 

アートワークも.文章作成€>, 
美しくあざやかに- 
JIS 第2水準漢字 ROM を 

襟準装備.. 


•C2-8PK8 

本格実務から パーソナルまで 
I 印字品位 ニーズに 応える 
ニュープリンタ 

標準価格152.000円 


( 商品 番号091 |—括払 価格 55.000円^ 

商品番号175 | —括 払 価格122.000円1 

6 m 

初回9,800円9,700円 x 5回 

24回 

初回7,040円- 5,900円 x 23 回 

、12回 

初回 5.500 円5,000円 x 11回ノ 

、36回 

初回6,560円* 4，100円 x 35 回ノ 


80 桁漢字ドットブリンタ 
CZ-8PK7 

¥122.000 特価 ¥98,000 

80 桁漢字ドットプリンタ 
CZ-8PK9 

5?9朋 特価 ¥72,000 

2D ディスクユニット 

CZ-503F 

5?9.800 特価 ¥38,000 

スキヤナ用パラレルポード 
ICZ-6BN1 

?S^OO 特価 ¥25,000 

增設用ディスクドライブ 
CZ-53F 

9.800 特価 ¥18,000 

20MB ハードディスク 
CZ-620H 

vf ? 8.0〇〇 特価 ¥ 138,000 

カラーイメージユニット 

CZ-6VT1 

$6® 9.800 特価 ¥56,000 

カラーイメージポード n 

CZ-8BV2 

??9,8〇〇 特価¥32,000 

パーソナルテロッパ 

CZ-8BT2 

4.800 特価 ¥36,000 

FM 音源ポード 

CZ-8BS1 

錯.的。 特価¥20,000 

1MB 増設 RAM ボード 
CZ-6BE1 

¥*.〇〇〇 特価 ¥28,000 

1MB 增設 RAM ボード 
CZ-6BE1A 

V 38.000 特価 ¥30,000 

GP- 旧ボード 

CZ-6BG1 

¥59.800 特価 ¥48,000 

増設用 RS-232C ボード 
CZ-6BF1 

5?9.800 特価 ¥40,000 

数値 演算 プロセッサボード 
CZ-6BP1 

$?9.8〇〇 特価 ¥64,000 

ユニバーサル 1/ 0 ポード 

CZ-6BU1 

?? 9.800 特価¥32,000 

拡張 I/O ボックス 
CZ-6EB1 

^8.000 特価 ¥70,000 

モデムユニット 

CZ-8TM2 

??9.800 特価¥40,000 


ブオリジナ;レソフトウェア 


DATA PPO-68K 
CZ-22QBS 

5 S .000 特価 ¥46,000 


NEW Z-BASIC 
CZ-141SF 

8.800 特価 ¥17, 000 


Sampling PRO-68^ 
CZ-215MS 




特価 ¥16,000 


BUSINESS PRO-68K 
CZ-212BS 

fS .000 特価¥54,000 


MUSIC PRO -68 K 
CZ-213MS 

雜 . so 。 特価 ¥16, 000 


NEW Rrintshop PRO-68K 
C2-221HS 

”通特価¥18,000 


C コンパイラ PRO-68K 

CZ-211LS 

9.800 特価 ¥32,000 


SOUND PRO-68K 
CZ-214MS 

筇.咖特価¥14,000 


ツァイト 

Z*s STAFF PRO 68K 

55.000特偭 ¥48,000 



①完全保証 アフター V ア OK 

②全 B 無料配送 日曜配送可能 

③支払回数は線〜 可 36 回 


④抵金利クレジツト 実質年率 12.50 〜 23.75% 
© FAX でも注文 0 K FAX : 0468(48)3273 

( D その他広告以外の商品 tK 扱っており I す。お««に利功合せ T さい。 


©0468 (48)3290 てゾ 


価格問合せや商品説明は 
お問合せ テレフォン 


通信販売のお申込み方法 


ハガキでのお申込みは 


株式会社メディアショップ八イランド 〒239神奈川県横須賀市ハイランド 3-9- 


安心と價賴の 
除上シヨツビンク 


X ディアシヨップ 電話かハガキで!! 


神奈川県横須質市 

/\イランド 3-9-6 

P 239 ㈱ メディアショップ 

〒 ハイランド 

「I Oh! X 係 


► 当社は X - 68000 の販売腰定店です< 


































































































































❺為®秋葉原 


ve おなじみの 


7 / 15 - 8/20 


さらに金利が安くなった•グ超低金利クレジット 


x - i ターボ z/zn 


(送料 ¥2,000) 



12回. 

► 24 回- 

► 36 回- 

► 48 回- 

► 60 回 • 


4.5% 
…9.5% 
13.0% 
17.0% 
22 . 0 % 


❿お近くの方はお 
•本体単品で特 
•ビジネスソフト定 



X 68000 ACEI HD ] (送料 ¥2,000) 


® セツド 

CZ -611 C + CZ -611 D + M -2 HD (10 枚） 

定価¥ 544,800岭 P & A 超特価(価格はお電話下さい。） 


12回37,000」24回 Jl 9,30 Oj 36回」13,30 Oj 48回丄10,300 60回8,600 
⑧セット： 

CZ -611 C + CZ -60 1 D + M -2 N D ( 10枚） 

定価¥519,600岭 P & A 超特価(価格はお電話下さい。） 


112回 134,800 

|24回 | 

[1 8,200136回 112,500 

48回 

9,700 

60回 

8,100 


余 X - 68000 セットでお買い上げの方に源平討魔伝¥ 7,800 をプレゼント致します。 
糸チルトスタンド ( CX 6 ST ¥ 5, 800) 必要な方は¥ 5,000 加算じ CT さい。 


X 68000 ACE 


(送料 ¥2,000) 


® セッド 

CZ -601 C + CZ -611 D + M -2 HD (10 枚） 

定価¥ 464，800岭 P & A 超特価 ( 価格はお電話下さい。） 


12回 

31，300 

24回 

16,400 

36回11,300 48回 

8,700 

60回 

7,300 


⑧セット： 

CZ -601 C + CZ -60 1 D + M -2 H D ( 10枚） 

……定価¥ 439，600岭 P & A 超特価(価格はお電話下さい。） 


12回 

29,600 

24回 

15,500 

36回 

10,600 

48回 

8,200 

60回 

6,900 


※チルトスタンド ( CZ -6 STI ¥5,800) 必要な方は¥ 5,000 加算じ TT さい。 

※ル 68000 セツトでお買し、上げの方に源平討魔伝¥ 7,800 をプレゼント致します ） 


ソフト コーナー 


(送料 ¥1,000) 


※チルトスタンド ( CZ -6 STI ¥5,800) 
必要な方は¥5,000加算じ T 
下さい。 


® セット： 

X .1 ターボ Z ( CZ -880 C + CZ -880 D )+ M -2 HD 
(10 枚)+ジョィカード+ゲームソフト耀 

……定価¥ 327,800岭超特価 ¥180,000 

Il 2 回 H 5,60012徊|8,20013晒]5,6001 站回卜，300160回13.6001 

• NEW Z - BASIC ( CZ -141 SF ¥ 18,800) 必要な 
方は,¥15,000加算し TT さい。 

ッド. 

XI ターボ Z H ( CZ .881 C + CZ -880 D ) + M -2 HD 
(1 敝)+ジョィカード+ゲームソフト 
定価 ¥ 289，6004 P & A 超特価(雛は Tel 下さい。） 


12 回 

18,200 

24 回 

9,500 

36® 

6,500 

48 回 

5,100 

60 回 

4,200 


X - 68000用 

® CZ -213 MS(MUSIC PRO -68 K ). 定価¥18,800岭特価 ¥16,000 

® CZ -214 MS(SOUND PRO -68 K ). 定価 ¥ 15,800岭特価 ¥13,500 

© CZ -212 BS(BUSINESS PRO -68 K ). 定価¥68,000岭特価 ¥57,000 

© CZ -211 LS(C compiler PRO -68 K ). 定価¥39,800岭特価 ¥31,500 

⑥ Z’s STAFF PRO -68 K (シャフト) . 定価¥58,000岭特価 ¥46,000 

© Kamikaze (神風)(サムシンググッド) " 定価¥68,000岭特価 ¥49,000 

◎ ビジネス AD 68 K (マッシュシステム) . 定価¥ 98,000岭特価 ¥78,500 

⑭弥生(日本マイコン販売) . 定価¥80,0004特価 ¥64,000 

© CP / M -68 K (ニューウエイブ) . 定価¥110,000岭特価 ¥88,000 

X -1 シリーズ 

③ SHOGUN (サムシンググッド) . 定価¥34,800岭特価 ¥25,000 

®SAMURAI (サムシンググッド) . 定価¥19,800岭特価 ¥15,200 















































































































書留でお送りください。(プリンター•フロッピーの場合、本体使用機種名を明記のこと） 
〔銀行振込でお申し込みの方〕 

•銀行振込ご希望の方は必ずお振込みの前にお電話にてお客様のご住所•お名前 • 
商品名等をお知らせください。 

(電信扱いでお振込み下さい。） 

〔クレジットでお申し込みの方〕 

♦電話にてお申し込みください。クレジット申し込み用紙をお送りいたしますので、ご記入 
の上、当社までお送りください。 

參現金特別価格でクレジットが利用できま t ; 残金のみに金利がかかります。 

•1 回〜 60 回払いまで出来ます> 但し、 1 回のお支払い額は 3,000円 以上。 



侏忒会社ピー•アンド•エー T:::， 9 :。。 

〒124東京都葛飾区新小岩2丁目7番地1号 （但 lpm8:oo 迄） 

Q 03-651-0148 ⑽說 


651-0141 


マイコン 

ビデオ 

ビデオテープ 


超低金利クレジット率 


回数 

1 

3 

6 

10 

12 

15 

18 

24 

36 

48 

60 

利率 ㈤ 

1.5 

2.0 

3.0 

4.5 

4.5 

7.5 

9.0 

9.5 

13 

17 

22 



12回 

12,600 

24回 

6,600 

36回 

4,500 

48® 

3,500 | 


-一(送料¥1,000) •その他の周辺機器はお電話下さい, 


® CZ-8BSI (FM 音源ボード） . 定価 ¥ 23,800岭特価 ¥19,000 

B CZ-8RLI (デ_タレコーダ） . 定価¥ 24,800岭特価 ¥20,000 

◎ CZ-8AV2( カラーイメージボード D ). 定価¥ 39,800岭特価 ¥31,000 

©CZ-8BRI (立体映像セット) . 定価¥ 29,800岭特価 ¥23,000 

⑥ CZ-8DT2 (パーソナルテロッパ) . 定価¥ 44 . 800 4 特価 ¥35,000 

0CZ-6VTI (カラーイメージ ユニット) . 定価¥ 69,800岭特価 ¥55,000 

◎ CZ-6EBI (拡張 I/O ボックス） . 定価¥ 88,000畤特価 ¥69,000 

⑭ AN.160SP (アンプ 内蔵 スピーカーシステム）.. 定価¥ 59,800岭特価 ¥47,000 


アフターサービス 万全 

全商品保証付。專門の祖当者がお客様の立塌で対応します。 

初期不良、輸送トラブル etc . 

万が一初期不良、輸送トラブルが発生しました際には、即交換させていただきます> 


I定休日/毎週水曜日=第3水曜•木曜は連休とさせていただきます(祭日の場合は翌日になります) 


立寄り下さい。専門係員が説明いたしま丸 
価で受付しま尤詳しくは電話にてお問合せ下さい。 
価の20%引き OK/ TEL ください。 




舀口陧頤 一 


_★頭金なし/★即日発送 


起低金利クレジット OK// 1回〜60回払いまで OK. グ 


X-ltwin (送料 ¥2,000) 


X-1G モデル30 (送料¥2,000) 



④セット： 

X-ltwin (CZ-830 + RF コンノ く一夕 
一 （AN-58C)+M-2D(10 枚〉+ジ 
ョイカード+ゲーム3種 

……定価¥102,7804超特価 ¥77,000 


[12 回 [6,700[24 回 [3,500 j 

® セッド 

X-ltwin (CZ-830C+ CZ-830D)+ 
M-2D (10 枚)+ジョイカード+ゲ 
—厶3種 

定価¥197,800岭超特価 ¥142,000 


[12 回 112,3001^^6,4001】晒14,400 _ 回 ^,400」 



® セット： 

X-IG モデル30 (CZ-822+ RF コンバー 
ター （AN-58C) + M-2D (10 枚）+ ジ 

ョイカード+ゲーム3種 . 

•••定価 ¥120. 980岭超特価 

¥62*000 

12111 [5 ,300 [200] 3,300 ] 


⑧セット： 

X-IG モデル30 (CZ-822C + CZ-820 
D) +M-2D(10 枚）+ジョイカード+ 
ゲーム3種 . 

定価¥197,800岭超特価 ¥98,000 


8,500 [2 個] 4.400 136回 1=3.000 


全セットにケーブル、用紙付（送料¥ 1 ， 000 ) 


通イ言モデムコーナー（送料¥ 1 , 000 ) 


⑥ CZ -8 PK 6 

定価159,000 


ット : CZ-8PC2" 


.•定価¥ 69,800岭超特価 ¥55,000 




® CZ -8 PK 5 

定価129,000 

特価 ¥69,800 

(用紙1000枚付送料無料） 


12回4,600 

18回3,200 


⑧セッド CZ.8PK7 … 

. 定価 ¥122,0004P&A 超特価 

| 12回8，100 

24回 | 4,200 

30回 | 3,500 

©•fe ツト: CZ8PK8 … 

. 定価 ¥ 152,000_P&A 超特価 

12回10，100 | 24回 | 5,300 

36回 | 3,600 

©• fe ッド CZ8PK9 … 

. 定価 ¥89,8004P&A 超特価 

12回 6,000 

24回 3,100 



® PV - A 1200 MKII (：^7). 
⑧ PV - A 2400 MNP (アイワ） • 
© MD -1 200 All (オムロン）.. 
@ MD - 240 0 B (オムロン)•.… 
⑥ SR -120 S (エプソン）…… 
( DSR -240 AT (エプソン) 


•定価¥ 26 . 800岭特価¥21，《 
-定価¥ 59,800岭特価 ¥44，C 
•定価¥ 24,800岭特価¥19，¢ 
•定価¥ 49,800岭特価¥37,_ 
• 定価 ¥ 29,800■►特価¥23，1 
-定価¥ 59,800峰特価¥47,1 


ック（送料無料） 


カラービデオプリンター（送料¥1,000) 


(g セット： CZ6PVI" 


•••••: 定価 ¥ 198,000峰超特価 ¥155,000 


12回 

13,400 

24回 

7,000 

36回 

4,800 

48回 

3,700 : 

1 


カラーイメージスキャナ（送料¥1,000) 


iwl 


®3 段 

875( H ) 

X 580( D ) 
X 610( W ) 


¥ 8,500 



⑧4 段 
1245(H) 

X 600( D ), 
X 614( W ) 

¥ 13 , 500 , 


W 

w 


©5 段 
1280( H ) 
X 600( D ) 
X 620( W ) 

>¥ 16,500 



® セット: CZ .8 NSI -- 


〔現金一括でお申し込みの方〕 

定価¥ 188,000峰超特価¥145,000 •商品名およびお客様の住所•氏名•電話番号をご記入の上、代金を当社まで、現金 



〔振込先〕住友銀行新小岩支店 
当 _ No . 263914 ㈱ ピー •アンド •エー 


通信販売お申し込みのご案内 


>&4紗7超特価セールでご奉仕// 






























































































































































20 M ノ M トメ、ードティスタ搭載、 

クリエイテ^ブワークステーション X 68000 力 I 
いま熱い 


^-y°X68000ACE\UD\ 

本体+キーボード ( CZ -611 C - GY ) 標準価格¥399,丽 


CZ-600C を下取りした場合縣価给_ 



• 68000搭載•最大12バイトの大容量メモリ參 20 M バイトハードディスク内蔵參高解度自然色^;ラ:^ 
イツクス•フレンドリ ー OS Human 68 K 搭載等、先進機能満載。……豊富な周辺機器がサボート 


鱗遍 


セツト大特価/ 


•本体+キーボード ( CZ -600 E ) 標準価格 ¥ meee - 
lv «i iv^oiin nnn # .15 型カラーデイスプレイテレビ (cz - 600 DE ) 標準価格¥4班 see - 
ス八リ年 d 4 U ， UUU / •チルトスタンド ( CZ -6 ST 1 E ) 標準価格 ¥•§ 細 ■ 


高度なパフォーマンスを秘めて、新登場/ 

12 MHz の高速80286 CPU 、 高速グラフィック LSI 搭載。 

A 辟書による高度な日本語処理、 MS-DOS V 3.1 o 


リアルな映像と音が削造力を刺激する、 


モチル 







パソコンテレビ兄 / t ur わ oZ 
本体+キーボード ( CZ -880 CI 
播準価格 ¥218.000 


• 16 ビットパーソナルコンピュータ MZ -6551 
(1.2 MB FD 2 基搭败)播準価格 V 430.000 
參16 ビット/、•ーソナルコンピュータ MZ -6556 
(1.2 MB FD 2 基、 20 MB HDt * 搭載)摞準 価格 Y 650.000 

•..下取り価 i 格、及び特価につきましては、電話でお問い合わせください。 



下取り釀問わず/サービス大特価¥1脚 Off 


• アナログカラーイメージホード内蔵 #4.096 色対応ニューテロッパ概能 _8 重和音ステレオ FM 音源 
搭魷參マウス標準装備 #JIS 第 1/ 第 2 水準漢字 ROM 実装 _ システム、ユーサー辞害装備 # IM ハ 
イト 5 インチフロッピー 2 基搭敝 


お買い上げの方にプレゼント 



#モデムユニット（シャープ CZ -8 TM 1 ) 




新製品/ 


•ブロの枠を越え、スケジュール管理機能、 
アドレス管理機能等を搭載。 


ノートワープロ 

シヤーブ THE BRAIN(wv-500) 縣小売価格¥13_〇今特価¥プ25,000 


MBIT 

アイビット電子株式会社 

〒192東京都八王子市北野町 560-5 



ぐ 0426_45-3001~3 

FAX.0426-44-6002 

镰営業時間:10:00〜19:〇〇 
镰電話受付：20:00迄可 
•定休日：日曜日(祭日営業) 


安ぐ迅速にお届 


★送料はご ii : 义の阶にお叫い〇わせドさい。 

敕の1相ん\は•すべて糾仪拙•きです* 

★化权の而品は光分 1 11.なしてありますが.ご i I 文の!?;1 
は、の碓涊の I .ゾ W 贪ノ:衍または、銀む似込で 
お中し込み卜さい。令商, Vi クレジットで (> 扱ってお *) it 
★お11|し込みの阶は必ず也 ft を叫 “ l ! して卜さい.， 
★ m ね,、二 uj れの節はご•括拟ドさい。 

富士銀行八王子支店（普）1752505 


全通販 
国值売 

北海逍から沖縄まで 


価莫寒ソ rf ツ io セ■少 

いま御使用のパソコンを高価下取りの上、 MZ -650□モデル50、シャ I ブ X 6 BOO □ ACEIHI □ I 'またはパソコン 
テレビ xlturboz を PV ビットならではのサ—ビス大特価でお届けします。 









































■富士通 FM 周辺機器(約 150 機種)ご希望の方に特価リスト差し上げま1~〇(切手 70 円を添えてお申し込み下さい〇) 


他にもカラーモニター各種在庫あります> 


m □ □ 



m シャープ Cu14BD ( 14型） 
アナログ2000/4000 
定価 ¥64.800 

特価' 


參シャープ CZ-820DTV 付 

特価 ¥39,800 


ープ CZ870D*TV 付 
( 14型）2000/4000自動切換 
定価 ¥109.8004 

特価 ¥69,800 


•シャープ CU-14GEC14 型） 
定価 ¥49. 800•セ 

特価¥之9,谷00 



►富士通ゼネラル DM-405 
(MSX2、FM-AV2 対応） 
定価 ¥67.800 呤 

特価 ¥36,000 


■ 


-- 一 ■.パ 

►シャープ CZ-600D 
(15 型〉 TV 付 
定価 ¥129. 000兮 

特価谷00 


Qmm 

•^(74 m c ) z88 ° d •益 r モ，ク _ ュ。文字 me 

定価 V 109.800 . ：> 定価 ¥41.咖~* 特価¥69,800 


(12 型）モノクロ .4050文字 
定価 ¥41. 800— 

特価¥87,800 525,000 



シャーブモニター 

MD-12P1 (グリーン） 
MD-12P2( モノ ク〇) 

定価 ¥39.800-* 

特価 ¥之石,000 


_ 


，シャープ CLM4AD 
(M 型）ドットピッチ0.310 
200 M00 デュアルスキャン 

定価¥84,800呤 
特価 


特価¥6分,石00 

■ 

定価¥113,000今 

特価 ¥78,000 


© ©©❿ シャープ X 1 G 六賺 


定価合計 ¥189.380 

大特価¥39,800/ 


1 X 1 G 本体 ( CZ -820 C ) 定価 ¥69.800 
D 3 インチフロッピー (300 F ) 定価¥ 79.800 
③インターフェース (8 B 01) 定価¥ 14.800 
43 DISC BASIC (8 W 301) 定価¥7,000 
⑤ TV 用アダプター ( AN 58 C ) 定価 Y 2.980 
1' 3インチ DISK ソフト5本定価¥15.000 

士ご希望のかたには回路図盖し上げます„ (台数に限りあり） 

※ソフトにつきまじ C は 各種 本が出版されております. 

糸家庭用の TV にそのまま使えます) （5 インチフロッピーセットもあります〇) 

バラ売りもします/ (修理代より得/) 

マニュアル +New BASIC V.2.0 
¥3,500 



xi シリーズ共通キーポ-•ド，カセットコントロール付 
C2-800C. 802C、 811 C、812C、820C、822C, 830C 
はもちろん CZ-801C、803C、804C も OK。 

※ターボシリーズも使用可、、但し漢字入力 
キーなどはありません-. 


BASIC を初めて学ばれる方/ 
* テープ版マニュアルは 

CZ-820C のものです。 


本体 ¥10.000 

參取找.ケープル付。 

CZ- 咖 C、801C 
803C、804C の予 *( 二/ 

JOY 力ー ド ¥1.600 

CZ-8NJ1 とまったく 
同じものです。 


S 倒の XHIZBI 赚&安綱憧〇 


本誌発売時には、下記価格表よ D 、 さらにお求めやすい価格に変更され C いる®合があります> 


本体 

•シャープ CZ -820 CX 1 G . ¥69,800兮 ¥19. 800 

參シャーフ YOOC +^ CH ^ STl セット ¥ 504,600今 ¥ 340,000 
• シャープ CZ -601 CX 68000 ACE . .¥319,800 -)• 超特価》 
• シャープ CZ -611 CX 68000 ACE HD ¥ 399,8004超特価》 

• シャープ CZ -822 C (本体) . ¥69,800 

•シャープ CZ -881 C ( X 1 ターボ Z ). 超特価 a 

❿シャープ CZ -830( X 1 ッイン)+カラー TV モニター…¥110,000 

•シャープ CZ -811 C . ¥89,800->¥19,000 

•シャープ CZ -803 C . ¥ 119,800今 ¥29,800 

•シャープ CZ -880 C . ¥21 8,0004 -¥ 100,000 

• シャープ MZ -2861+1 P -1252 -¥383,000今 ¥245，000 

參シャープ MZ -55 n . ¥ 峄 ¥45.000 

•シャープ MZ -5521. ¥388,000今 ¥65,000 

•シャープ MZ -6551. ¥ 430,00 (H 超特価〇 

•シャープ MZ -6556. ¥ 650,000呤超特価〇 

•シャープ MZ - 2520 . ¥ 159,800吟 ¥78,000 

•シャープ MZ -2531. ¥ 198,0004 ¥120,000 

•富士通 FM 77 AV 20-2. ¥ 168,0004 ¥89.800 

•富士通 AV 40 EX . ¥ 168,000-1>¥ 126.000 

•NEC PC -9801 VX 4. ¥ 643,000呤 ¥380,000 

• NEC PC 98 XA 2. ¥695,000呤¥170,000 


拡張機器他 

• シャープ CZ-8TM1 (モデム)……¥29,800今 ¥9,800 
參シャープ MZ-lE29a s >^- プル付）¥ 17,800吟 ¥9,800 

•シャープ XI 用ジョイカード . ¥1,500 

•シャープ CZ 8 EA / U 320 KB ポード） .. ¥88,000今 ¥20,000 
•シャープ CZ-8EB-3G 器 U.. ¥ 33,800今 ¥28,000 
•シャープ CZ -8 EP(xi 拡張ポート）..¥ Iし800今 ¥9,000 
• シャープ MZ -1 U 01 (2000 用拡張) • ¥ 37,000今 （在庫 切れ） 
• シャープ MZ -11103(700 用拡張) • • ¥ 35 , 〇〇〇呤 ¥ 15,000 
•シャープ MZ -11105(5500 用拡張） _• ¥ 12,000呤 ¥8,500 
♦シャープ MZ - lU 09(25 OO 用拡張）…¥ 9,000呤 ¥7,200 

•シャープ 1 R 01+1 R 02 X 2. ¥55,000今 ¥12,000 

♦シャープ MZ-1E 24232 C カード..¥ 丨9,800今 ¥ 16,800 
•シャープ CZ-8BK3(5 鸽 D …¥ 13,800今 ¥11,700 
•シャープ CZ-8BK 4( 麟……¥6,800今 ¥5,700 
• シャープ MZ-lMOK^ 11 セッサ —）. ¥ 69 , 000今 ¥35 , 000 


•シャープ MZ 8 BC 04($! i B ブル) …¥ 18,000 今 ¥8.000 
• シャープ MZ -8 BI 04( GPiB カード ). -V 45,000 ={>¥18. 000 
• シャープ MZ -1 R 09(5 OT ) ……¥35,000^ ¥25,000 
•シャーフ。 MZ -1 R 10(^ f O M ) ¥ 30,000今 ¥ 12,000 
•シャープ MZ -1 R 11 (造は M ) ……V 80,000今 ¥40,000 
•シャープ MZ -1 R 18( ふ^^ M )..... ¥ 18,000=>¥12,000 
• シャープ MZ -1 R 19 (造晃字 ROM ). ¥ 35,000今 ¥ 15 . 000 
• シャープ MZ -1 R 24( 辞窨 ROM) …¥ 22,000今 ¥ 10,000 
•シャープ MZ -1 R 26 A は¥ 15,000今 ¥12,800 
•シャープ MZ -1 R 27 A (泛梦朴…)..¥ 13,000呤 ¥10,000 
•シャープ MZ -1 R 28 AQ ^ 2 恐 M )... ¥ 13,000=>¥10,000 
• シャープ MZ -1 R 29 想 • • ¥ 32,000今 ¥ 10,000 
參シャープ MZ -1 R 37(^?| ルル)…¥ 35,800呤 ¥28,000 
•シャープ MZ - lT 02( gi 党? コ -ダ-) ¥ 19,800 今 ¥8,500 
參シャープ MZ -1 T 03(¥±|^_ ダー）¥ 12,000呤 ¥8,500 
參シャープ CZ 8 BGR 2( xi 夕ーボ10用 ) ¥ 14,800呤 ¥4,000 
• シャープ CZ -8 BS 1 (冗“ポート). .¥ 23,800今 ¥ 19 . 500 

•シャープ CZ -51 F (ターボ増設)同等品 . ¥25,000 

• シャープ CZ -52 F ⑻ F 增拉)同等品 . ¥22,000 

• シャープ MZ - 2000 /2200/80 B /1500/700 用 . 

. ¥23,500今¥18,000 

•シャープ MZ -1 E 15( 巧ィス) .¥ 35,000今 ¥28,000 

參シャープ X 1、 MZ 用マウス . 特価¥4,800 

參シャープ MZ -1 X 29( 光学マゥス)……¥ 13,800->¥11,000 
參シャープ MZ -1 M 08( ボイスポード). •¥ 10,000¥6,000 

• シャープ MZ - 2000/22000キーポード . ¥ 10.000 

• シャープ MZ - 3500キーボード . ¥10,000 

• シャープ MZ - 5500キーボード .¥10.000 

• シャープ XI シリーズ用キーボード .¥10.000 


プリンター 

•シャープ MZ -1 P 27( 水平プリ>外 • ¥ 268,000今 ¥214,400 
• シャープ MZ - lP 28(80 fti プリン外 •¥ 148,000^¥118,400 
参シャープ MZ -1 P 290 挪プリンタ) •¥ 168,000^¥134,400 

• シャープ MZ -1 P 17(? H 莕プリンタ） 

. …¥85,800呤 ¥39,800 

• シャープ MZ-6P 1 シート) . ¥ 95,000 呤 ¥35,000 
•シャープ CZ-8PD2( ドットカンタート.¥ 79,800 今 ¥25,000 
• シャープ CZ-8PD3( ドットカンター} •• ¥ 59,800 今 ¥19,800 
參 シャープ CZ-8PK5(80 桁） ■•…¥ 129,000 今 ¥69,800 
•シャープ CZ-8PK6(i 30 桁)…¥ 159,000 今 ¥89.800 


•シャープ CZ -8 PC 2(5^ JI ) ……¥ 69,800今 ¥55,000 

參シャープ CZ -8 NS 1 (イメージスキャナー) 

. ¥ 188,000今 

•シャープ JX - 100、200(カラースキャナー） 入荷予定/ 

•日立 MP - K )53(^^ ノンター） •• ¥ 315,000今 ¥ 158,000 

フロッピーディスク 
1•シャープ CZ -503 F (^^；^¥ 49,8004 ¥34.〇5〇1 

•シャープ CZ -503 ば:^ ースなし) . ¥30,000 

參シャープ匸ア-见之ド纪ヒ奴と多ム# 99,800今¥75,000 
• シャープ CZ -300 F . ¥13,000 


ソフト 

•シャープ CZ -21 LLS ( C コンパイラ)…¥39,800今¥35,800 
• シャープ CZ 141 SF ( newbasic ) ¥ 18,800=<>¥16.000 
• シャープ MZ -2 Z 01 3は忍 os ) …¥ 25,000今 ¥21,000 
• シャープ MZ -2 Z 017(|^, C3 ) .•…¥ 20,000今 ¥ 17,000 
•シャープ¥ 12,000今¥6,000 

• シャープ MZ -2 Z 0640^ 6 ^) • ¥69,800=> ¥59,500 

♦シャープ MZ -1 Z -005. ¥ 25,000今 ¥21,500 

• シャープ MZ-2Z023 臨^， c ).. ¥ 50,000今 ¥42,500 
參 シャープ MZ-2Z025(；i^!^g 本〉 ¥ 49,800=>¥ 15,000 
• シャープ MZ-2Z01 4 ( today ) …¥ 68,000今 ¥ 15 , 000 
參 シャープ MZ5Z01 3 ( 通價ソフト）… • ¥ 6 , 500 => ¥ 2 ， 000 

•シャープ 6 F 03( QD ディスク) . 10枚 ¥4. 000 

•シャープ MZ .1 E 26 は:^^•ュニ)..¥ 24,800今 ¥13,000 
•シャープ MZ -6 Z 010( R トフ忍).…¥ 10,000今 ¥8,500 
•シャープ MZ -1 M 01 (2000/2200 用) . 特価 ¥8,500 

SHARP ポケットコンピュータ 

• PC 1360 (本体) . ¥ 29,800呤 ¥ 19 . 800 

• PCE 20 CK 本体) . ¥22,000今 ¥17. 800 

• PC - E 500( 本体) . ¥ 28,800 4' ¥24,800 

拳 GE -150 (力，^ .¥ 49,800-^ ¥10.000 

• C 旁52(デ-?レコーダ）.. . ¥ 19,8004>¥9,800 

•プロク;ラムモジュール(故 Wi )，. ¥ 50,000咔 ¥10.000 
•プログラムモジュール gtis 9 ) ¥ 35,000 ^¥6.500 
• ジ护-プ CE -140 P カラープリンタ¥ 4 3,000呤¥20,000 

ボケ i ン総合カタログ並びに特価表を塞し上げま 
切手¥70を同封の上、当社へお申込みください。 


MBIT 

アイビット電子株式会社 

〒1犯東京都八王子市北野町 560-5 


C0426-45-3001^3 

FAX.0426-44-6002 

傷営業時間:10:00〜19:00 
• 電話受付:20:00迄可 
•定休日：日曜日(祭日営業) 


より安く、迅速にお届 


★送 n はご n sc の wt にお叫い介わせドさい.， 

★褐敉の ifti,V •は.すべて糾品，保, ill , m _ r > です。 
★祀敉のは允分⑴ X5X てありますが、ご n 文の称 
は.介外の確此の■-•、たは.銀“伥込で 
お屮し込みドさい-セトク レジ ットて6拽っておりよ丈 
★お1 1 a 込みの陬は必ず ;ii 浓リ-を i« |此してドさい。 
★ i ^ iVkiVi W れの節はご斿供ドさい, 

富士銀行八王子支店（普）1752505 


全通販 
国信売 

北海逍から沖縄まで 


※掲載されている商品は全て新品保証付きです。 























































































COMPUTER 
BANK 


安心と信頼のシステムで新時代を切り開く 


68000 


M ついにベールが剝された/〃 68000 CPU 搭載。ひとつひとつのス 
ペックに新鮮な驚きがある。未体験の機能美が創造力を刺激する。 


• 機能美あふれるハイコンパクト設計。 

• 32ビットへの移行がスムースに行える将来性を見越し 
た68000 CPU を採用。 

• メインメモリは、大容量 IM バイトを標準装備（最大12 

M パイト)〇 

• クロックは 10 MHz のハイスピード〇 
• アート心を躍らせるグラフィックスは、65.536色を最大 


☆注文 No . A -0813 

SHARP CZ -61 1 C 
SHARP CZ -60 ID 

標準価格合計 

現金特別価格- 


¥399.800 
¥119.800 
¥519.600 
-¥ 50^^600 

d お支払例 

① ¥6, OOOX 60 回〔ポーナス〕¥ I 9,000 X 丨〇回 

② ¥9,200 X 36回〔ボーナス〕¥ 29,000 x 6回 
@¥9,200 X 60回〔ボーナス〕無し 


512 X 512 モードで同時発色の上、新開発スフライト 1 C 
採用で緻密でスムースな動きの本格 G . G が楽しめる。 
• ステレオタイプの8オクターブ8重和音 FM 眘源を採用 
し0_ • R 2 チヤンネルのオーディオ出力を使えば、ダイナ 
ミックなシンセサイザーサウンドの世界が拡がる。 

• もちろん JIS 第い第2水準漢字は標準実装、日本描 
処理機能は強力。 


☆注文 No . A -0814 

SHARP CZ -60 IC 
SHARP CZ -601 D 

標準価格含計 

現金特別価格- 


お支払91 

① ¥4,8 OO x 60 回〔ポーナス〕¥ 18,000 x |〇回 

② ¥9,000 x 30回〔ボーナス〕¥30,000 x 5回 

),300 


③ ¥9，; 


) X 48 回〔ボーナス〕無し 



籲どこよりもお得な离額下取り実施中ガ籲今す ぐ ぉ電話下さい 


n 


''マルチアーテイストマシン〃 


• NEW Z-BASIC ( CZ -8 FB 03) の搭載で4096色マ 
ルチモード、64色2画面合成、8重和音 FM 音源、ビデ 
オデジタイズ機能などをフルサポートされています。 

• 内部は、さらにバンク RAM を 64 K パイトを追加し、512 
KB パンクメモリを標準でサボートされました。 

- a 雑な入力も簡単に操作できるマウスを標準装備。 

• 大容置、 1 M パイトディスクドライブ2期内蔵 ( 、 


☆注文 No . A -0815 

SHARP CZ -88 ICBK 
SHARP 〇 Z -880 DB 

標準価格合計 

現金特別価格- 


¥179.800 

¥109.800 

¥289.600 


‘お支払供 

① ¥5,000 x 36回〔ポーナス〕¥ 15,00 ox 6回 

② ¥8,900 X 丨8回〔ボーナス〕¥ 30,000 X 3回 

③ ¥8,800 x 30回〔ボーナス〕無し 


•とこよりもお得な离額下取り実施中//籲今すぐお《話下さい 



twin 、、 HE システム〃 

(PC Engine ) 搭載で楽しさ2倍 


• HE システム (PC Engine ) を内蔵してゲーム櫬とパ 
ソコンのあいだを埋めたニューモデル。 Joy 力ードも棵 
準装備。 

• HE システムモード • X - 1モード•又、同時に両方を動 
作可能。 

_ 5インチ dSOK バイトディスクドライブを1基搭載：スー 
パーインボーズ檐能内蔵、 


¥ 99.800 
¥ 79.800 

¥179,600 

■¥uar€eo 


☆注文 No . A -0816 
SHARP CZ -830 CBK 
SHARP CZ -820 DB 

標準価格合計 

現金特別価格- 

わ 取!主31 

'お支払 例 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 
① ¥5,200 X 丨6回〔ボーナス〕¥23,000 x 2回 
©¥8,900 X 丨2回〔ポーナス〕¥ 10,000 X 2回 

③ ¥ 8,100 X 16回〔ポーナス〕無し 


•どこよりもお得な离顴下取り実施中ガ •今すぐお 電話 下さい 




☆注文 No . B -0823 

” P 4 ピン 80 桁、 J 旧第 1 •第 2 水準漢字実装。 

八ガキ印字可能な S 5 速コンパクトブリンタ" 




☆注文 No . B -0824 

”24 ビン 136 桁、 JIS 第 1 •第 2 水準漢字実装。 

八ガキ印字可能な离速ビジネスブ U ンタ w 



sharp CZ -8 PK 5 

現金特別価格- 

v ? お支払倒 

©¥7,400 x |〇回〔ポーナス〕無し 

©¥3,300 x 24回〔ボーナス〕無し 


¥129.000 

-¥69,800 


sharp CZ -8 PK 6 

現金特別価格- 

お支払供 

©¥9,500 x 1〇回〔ボーナス〕無し 
©¥3,000 x 36回〔ポーナス〕無し 


¥159.000 

-¥89.800 


☆注文 No . B -0825 

”24ドット熱転写カラー漢字プリンタ〃 

SHARP MZ - IPI 7 ¥79.800 

CZ 用ケーブル ¥ 7.800 

摞準価格合計 ¥86.600 

現金特別価格- ¥42. 800 

:お支仏例 

©¥7,400 x 6回〔ボーナス〕無し 
② ¥3,800 x 12回〔ボーナス〕無し 



U . 巳.クラブ制度1 

当社で商品をお買い上げの方全興に、 C . B . クラブ 
カードを無料でお送り致します，この力ードをお 
持ちの方なら次の買い換え時や、周辺機器の購入 
時に会買特別価格でご購入になれます。 

会 興 専用ホットライン 003(797) 1444 



ショール- 


み★改装中の為、休業中です。 

〇中古パソコン展示即売 

〇レンタル • U —ス用 PC -9801 展示 
〇ビジネスソフトのデモ実施 


.慕. 

1霧!翻严 1 因 





大特価に 


大特価に • 



話題の新製品が全国どこでも鼋話で翼えるガ 

> i; ^9 f ; .f > V •f ; 私 -** ^ 驊考， X. f y f. • ^ i -T \ 



























































SHARP 

CZ - B 11 G ( x - if / io ) 





¥ 89, 800 岭 ¥ 12,000 



SHARP 

CZ -812 C ( x - if/ 20 ) 
v 139,000 ^^ 42, 000 


SHARP 

CZ -820 CE ( x-ig モデル io ) 
¥69,800 岭尹 i 6 , 800 顿關 
X-IG モデル 10 RF コンバータセツト 

(本体+ AN -58 C ) IJi 品同後] 

¥72,780 岭 ¥ 19,600 
X -1 G モデル10デイスブレイセツト 

(本体 + CU - I 4 GB )^ H ^1 

V 119,600-^y 46,600 


SHARP 

CZ -822 C 巳 ( x い 0 モデル 30 ) 

¥ I 18,000蛉 f 59,800疆 gil] 

X -1 G モデル30ディスブレイセツト 

(本体 + CU - I 4 GB ) 新品同様 

¥ 167,800岭 ¥ 89,600 
X -1 G モデ WTV ディスプレイセット 

(本体+ TV ディスプレイ） 

v 197,8004 ¥ 94,600 


SHARP 

CZ -880 C 巳 「Mill 様1 

( X-l Turbo Z 本体） 

¥ 218,000^ ¥ 102,000 
CZ -880 DB 曝 H 核 j 

V 109,800畤¥谷6,〇〇〇 

セツト価格 

¥ 327,800 岭 ¥ 188,000 



I ■ 


SHARP 

CZ -820 DE-Bra 

(14 インチ2000字 RGBTV) 
¥79,800 峰 ¥ 39,800 


SHARP 

r ^- APKFi l 新品同様 I 
( io インチ漢字プリンタ） 
v 129,000 -^^69,800 

CZ-8PK61MSS] 

(15 インチ漢字プリンタ） 

¥ 159,000 -►¥'89, 800 


SHARP 

MZ -1 P 17( E * B ) 關 

(色、グレー•ブラック） 

(80 桁カラー漢字熱転写プリンタ） 

me , soo ^ ¥ 42,800 

(XI用ケーブル付） 

¥ 76 , 600 ^^ 46,800 
(MZ- 2500用ケーブル付） 


SHARP 

本体 

CZ -8 IIC ( X - IF / I 0). ¥ 89,000蛉ゲ 

CZ -812 C ( X -1 F model 20). ¥ 139,800岭ゼ 

CZ -822 C ( X-IG model 30). ¥ 118,000岭ギ 

CZ -850 C ( X - ITurbo/model 10). ¥ 168,000岭 F 

CZ -852 C ( X - lTurbo/model 30).¥ 248,000岭ゼ 

MZ -253 l ( MZ -2500 V 2).¥ 198,800岭ゼ 

テイスブレイ 

14 M - IIIC ( 1 4' カラー1000文字） . ¥ 67,800岭ゼ 

CU -14 F 丨 （14 •カラー2000文字) . ¥ 64,800岭尹 

CU - I 4 A 2( I 4 •カラー4050文字) . ¥ 99,800岭 ％? 

CU - I 4 AD ( I 4 •カラー4050文字） . V 84,800岭ゲ 

CZ -811 D ( 14•カラー2000文字 RGBTV ). V 89,800岭ゲ 

CZ -830 D ( 14•カラー4050文字 RGBTV 〉. V 98,000岭ギ 

MZ - ID 05( 1 4" カラー2000文字) . V 69,800岭ゲ 

MZ -1 D 丨 I ( 1 2' カラー4050文字) . ¥ 113,000岭ギ 

MZ - 1022 (14 •カラー2000文字) . ¥ 108,000岭ゼ 

テイスクドライブ•プ 1 J ンタ•他 

〇 Z -50 IF (5*"2 D 、2 ドライブ） . ¥ 129,800岭ギ 

CZ -502 F ⑽ D 、2 ドライブ) . ¥ 99,800岭ゼ 

CZ -503 F (5_2 D 、 丨ドライブ） . ¥ 49,800岭ゼ 

CZ -800 P ( 10•ドットプリンタ) . ¥ 142,8004ゼ 

CZ -8 IP (ミニサイズプリンタ） . ¥ 34,800岭デ 


12,000 

42,000 

48,000 

25,000 

58,000 

88,000 


15,000 

18,000 

48,000 

48,000 

32,000 

62,000 

18,000 

42,000 

45,000 


55,000 

55,000 

32,000 

15,000 

10,000 


CZ -8 PP 2( カラープロッタプリンタ)® U . ¥ 54,800岭ゲ 15,000 

CZ -8 PD 200 •ドットプリンタ) . V 79,800岭ゼ 28,000 

CZ -8 PD 3( I 0 •ドットプリンタ) . ¥ 59,800岭ゲ 28,000 

〇 Z -8 PC 1(80 桁 24 ドット漢字熱転写プリンタ）…. ¥ 69,800岭ギ 35,000 
CZ -8 PNI (80 桁 24 ドット漢字熱転写プリンタ）…. ¥ 134,800畤ゲ 32,000 

MZ -80 P 6(80 桁ドットプリンタ） . ¥ 155,500岭ゲ 18,000 

MZ - IP 06(80 桁漢字プリンタ) . ¥234,000岭ゲ 45,000 

MZ-I P09(mz-i500 用 カラープロッタプリンタ )1 新品| . ¥ 47,600 峰# 25,800 

MZ - IPI 7(^^>-)[ Wi ]. V 76,600岭ギ 42,800 

MZ -1 P 17 . ¥ 76,600蛉 ¥ 46,800 

CZ -8 BM 2( X-I シリーズ用マウスインター■フェイス） ¥ 19,800岭ギ 10,000 

GZ -8 RB ( X-I シリーズ用 ROM BASIC ). ¥ 19,800岭ギ 10,000 

CZ -8 SS 2( システムスタンド) . ¥ 5,500蛉ギ 4,000 

* SHARP X-l シリーズ特選極上品コーナー* 

CZ -820 CE ( X -1 G /10) 1 W 高商孫 1 . V 69,800岭ゼ 16,800 

CZ -822 CB ( X - IG /30 ) fW 品同様 I . V 118,000 4ギ 59,800 

CZ -880 CB ( X -1 Turbo Z ) !新 品同様 I . ¥218,000峰 ¥ 102,000 

*SHARP ディスプレイ特選極上品コーナー* 

CU - I 4 G 04 •カラー2000文字)匱！] . ¥ 49,800岭ギ 29,800 

CU - I 4 A 4(1 4’’ カラー 4050 文字) I 新品 I . ¥ 89,800岭ゼ 49,800 

CZ -820 D (ばカラ-2000文字 RGBTV )! 新品同様 | . ¥ 79,8004ゲ 39,800 

CZ-880DB05 •カラ- 4050 文字 RGBTV ) 爾品同様 卜…¥ 109,8004 ギ 86,000 
CZ-600D (Is •カラ- 4050 文字 RGBTV )! 新品同後)…… ¥ 129,800 岭ゲ 88,000 


全商品保証付6 ヶ月の保証期間だから安心です。 

クレ ジヅ トで OK カレッジクレジットも取扱います。 

全国料酉 2 送 全国どこでも配達料はいただぎません。 

日曜配達可 留守の多い方でも安心です。 

高額下取り 少ない予算で買いかえもラクラク。 

高額買取り 電話1本で即、現金お支払い。 

代金弓 1 換元システム 商品到着時の代金支払いで OK 。 

ポーナスー括払し、 商品は即お手元へ、お支払いはボーナス時に。 


•電話一本で高額下取り、即商品はお手元へ./ 
•あなたの不要になったパソコンを電話一本で 
査定し買取ります。 

•掲載の商品以外も取り扱っておりますので 
お気軽にお電話下さい。 


▼本社注文デスク 

03( 797 ) 1SS1 




株式会社パシフィックコンピュータバンク〒150東京都渋谷区渋谷1 -6-8 井上ビル営業時間/ AM 9:30 〜 PM 9:30 年中無休 



ソ n ンが鼋話 


超匾良中古 
































































































CZ -8 ST 1 (角度自由自在、調節 ok !) 
源平討魔伝 .. 

スペースハリアー . 

マンハッタン•レクイエム . 

CZ -8 NJ 1 (ジョイカードプレゼント!） 


g¥54M00 峰 i IPL 超特価 

¥2,700 x 72回 ポーナス 2.0 万 X 12 回 

※その他のクレジットについてはお問い合せください。 
X 0801 をシステム UP / 


アクセス NO.X0803 

CZ-213MS(MUSic PRO 68K) . ¥ 18.800 

CZ-214MS(S0UND pro 68K) .¥ 15.800 

CZ-8PC2(I0" カラー熱転写 B5 〜 B4 ハガキ可、全角半角文字） ……¥ 69.800 
A 4 カット紙 (mo 枚） . ¥ 470 

CZ - BNJ 1 (ジョイカ-ドプレゼント!） . ¥ 0 


铿 ¥617,670 峰 

1 IPL 起特価 

¥3,000 x 72回 

ポーナス 2. 38万 XI 2回 


※その他のクレジットについてはお問い合せください。 


SHARP 



XI -s 8000 


NO.X0805 


g ¥862,400 峰 i ¥556,500 


CZ-6D0C(65536 同時発色、ソフトくグラデウス〉付、ステレオ 音源） 

CZ -601 D (0.39 ミリ、アナ〇妁モート•オート スキャン> . 

VC - DS 1 000 (S デジタル.ノイズワイパー +S-VHS 装備） . 

CZ -8 VPI (ビデオマノけプロセッサ） . 

CZ -6 VTI (カラーイメージユニット、テロッパー檄能付き） . 

3 M プランクデイスケット (5"2HD*I0 枚) . 

初期不良期間 (ワイト•にけ月問交換システム!） . 

安心の 3 倍保証 (IPL 保 旺 書付#) . 


.¥369.000 
¥119,800 
•¥ 220,000 
•¥ 59.800 
.¥ 69.800 
¥ 24.000 
¥ 0 

•¥ 0 


¥ 3,000 


標準価格¥862.400 


X 72 回ボ-ナス4.02万 X 12 回 


¥ 5,000 ><72 回 

ボーナス2.82万父12回 

¥ 7,000 X 48 回 

ボーナス 3.88万父8回 

¥ 10,000 X 36 回 

ボ-ナス 4.45万父6回 



NO.X0801 


I IPL 超特価 I 


CZ-600C(65536 同時発色ッフト<グラデウス〉付、ステレオ 音; S) … ¥369,000 

CZ -601 D ( o .39 ミリ、アナログ 3 モードオートスキャン） . ¥119.800 

3M ブランクデイスケット (5”2HD*I 〇枚) . ¥ 24.000 

初期不良期 (ワイドに|ヶ月閗の交換システム!） . ¥ 0 

安心の 3 倍保証 (ipl 保 K 書付き） . ¥ 0 

標準価格 ¥512.800 


¥2.200 


X 72 回 ポ-ナス 2.0 万 X 12 回 


¥ 3,000 ><48回 

ポーナス 2.8万父8回 

¥ 4,900 幻6回 

ポーナス 3.075 X 60 

¥ 10,000 ><24回 

ポーナス 2.64万父4回 




RRANGE/ 

目的に合わせて 
自由にアレンジ// 


X 0801 にゲームを添えて 


アクセス NO.X0802 



XI 68000 ACE 


NO.X0811 


§¥823,670 峰 _ ¥574,000] 


CZ -601 C (CPU 68000, 2M パイト、65536同時発色） . 

CZ-601D(O.39 ミリ、アナログ3モードオートスキャン) . 

VC - DS 1000 (S デジタル.ノイズワイパー +S-VHS 装備） . 

CZ -6 VT 1 (カラーイメージユニット、テ〇ッパー榱能付#) . 

CZ-8PC2(IO" カラー熱転写 B5 〜 B4 ハガキ可、全角半角文字） • 

3M ブランクデイスケット (5”2HD*I0 枚) . 

A4 カット紙 (100 枚） . . 

電話帳電卓*贈呈 (t« 税^.スヶジ2-ルメ . 

初期不良期間 (ワイドに I ヶ 月間交換 システム!） . 

安心の 3 倍保証 (IPI •保証 害付き） . 


-¥319,800 
•••¥119.800 
•¥ 220.000 
-¥ 69.800 
¥ 69.800 
..¥ 24.000 
••¥ 470 

■¥ 0 
¥ 0 
¥ 0 


¥ 3,000 


標準価格 ¥823,670 


X 72 回ポ-ナス 4. 2万 XI 2回 


¥ 5,000 ><72 回 

ボーナス 3.0 万 X 12 回 

¥ 8,000 ><48 回 

ポーナス 3.55万父8回 

¥ 9,600 ><36 回 

ポ-ナス 5.0万父6回 



. 全国無料配達. 

mmsmm 

I 還 ¥646,370 峰 i ¥487,600 

CZ -601 C ( CPU 68000 バイ h 65536同時発色） . ¥319.800 

CZ -601 D ( o .39 ミリ、アナロ灼モードオートスキャン) . . . ¥119.800 

CZ -6 ST 1 (角度 自由自在、 謂 節 0 K !) . ¥ 5,800 

CZ -6 BE 1 A 0 MB 增設 RAM ボード） . ¥ 35.000 

CZ -2 11 LS ( ccompiler ソフト開発を効串良くサボート} . ..¥ 39.800 

XE -1 PRO (ジョィステック） . ¥ 9,500 

源平肘 魔 伝 ... ¥ 7.800 

マンハッタン•レクイエム . ¥ 7,800 

スペースハリアー . ¥ 6,800 

CZ -8 PC 2( I(T カラ-熱転写 B 5 〜 B 4 ハガキ可、全角半角文字）……¥ 69.800 

3 M ブランクディスケット (5"2 HD * io 枚) . ¥ 24,000 

A 4 カット紙 (_ 枚） . ¥ 470 

電話帳電卓* 贈呈 . ¥ 0 

初期不良期間 (ワィドに I ヶ 月間交換 システム!） . ¥ 0 

安心の3倍保証 (IPL 保 1¢香 付き） . ¥ 0 

標準価格 ¥646. 370 


¥ 3,000 


X 72 回ポ-ナス3.3万><12回 


¥ 5,000 ><72 回 

ボーナス 2.1 万 X 12 回 

¥ 6,800 X 48 回 

ポ-ナス 3.0万父8回 

¥ 10,000 X 36 回 

ポーナス 3.15万父6回 


争日曜 • 祭日指定配達 . 

[§¥688,070 4 | IPL 起特価 ] 

CZ -601 C (CPU68000、2M パイト、65536同時発色） . ¥319,800 

CZ -601 D (0.39 ミリ、アナ□灼モードオートスキャン） . ¥119,800 

CZ -21 1LS(Ccompiler ソフト開発を効率良くサポート) . ¥ 39.800 

CZ -213 MS (MUSIC PRO 68K) . ¥ 18.800 

CZ -214 MS (SOUND PRO 68K) . ¥ 15.800 

AN -160 SP (アンプ 内藏 スピーカ-システム 2 本姐） . 13,800 

CZ -8 PC 2( ぼ•カラー熱転写 bs 〜 B 4 ハガキ可、全角半角文字）……¥ 69.800 

3 M プランク デイ スケット ( s ”2 hd * io 枚) . ¥ 24.000 

A 4 カット紙 (mo 枚） . ¥ 470 

電話帳電卓*贈呈 ( tetfio 人分、スヶジュ-ルメ ¥ 0 

初期不良期間 (ワイドに|ヶ月間交換システム!） . ¥ 0 

安， 己、 の 3 倍保証 ( ipl 保証書付き）」 . ¥_0 

標準価格 ¥688. 070 


¥ 3,000 


X 72 回 ボーナス 3.63万父12回 


¥ 5,000 X 72 回 

ボーナス 2. 42万 XI 2回 

¥ 7,000 X 48 回 

ポーナス 3.33万><8回 

¥ 10,000 X 36 回 

ボーナス 3.72万麵 


超低金利 


組合せ自由 


全国無料配送 



CZ -600 C ( 6 » 36 同時 発色、 ソフトくグラデウス>付、ステレオ 音源） … ¥369. 000 

CZ -601 D ( o .39 ミリ、アナ a グ 3 モードオートスキャン） . ¥119,800 

VC - N 35( 簡車操作の ファミリービデオ） . ¥ 75.000 

3 M ブランクディスケット (5.2HDI0 枚） . ¥ 24.000 

初期不良期間 (ワィドにIヶ月の交換システム!） . ¥ 0 

安心の 3倍保証 (ipl 保 t [害付#) . ¥ 0 

標準価格 ¥587. 800 


¥ 3,000 


X 72 回ポ-ナス 2.0 万 X 12 回 


¥ 3,000 ><48 回 

ポ - ナス 3.5万父8回 

¥ 6,000 ><36 回 

ボ-ナス 3.23万父6回 

¥ 10,000 X 24 回 

ポーナス 3.98万父4回 




愚 ¥396,4。。 • 

CZ-881C (ビデ相镰秘.ス••パ-* C4- ズ、ブ^ウス W... 

CZ-BB0D(ir カラ- tv リモコ寸4050文字〉.… 

VC-N35(W 堆*作のファミリービデオ） . 

イース II . . . 

3M ブランクディスケット (5"2HD*I0 枚) . 


| ¥274,300] 


. ¥179.800 

.¥109.800 

………¥ 75,000 
………¥ 7,800 
. ¥ 24.000 

初期不良期間 (ワイドに 丨ヶ月 W の 交換 システム!） . ¥ 0 

安心の3倍保証 (ipl 保 li 書付き） . ¥ 0 

標準価格¥396,400 


¥ 1,400 


X 72 回ポ-ナス 2.0 万 X 12 回 


¥ 3,000 ><48 回 

ポーナス 2.18万乂8回 

¥ 5,000 X 36 回 

ボ-ナス 2.13万父6回 

¥ 9,100 X 24 回 

ポ-ナス 2.0万父4回 




RRANGE/ 

目的に合わせて 
自由にアレンジ// 


X 0817 を S-VHS ビデオに変えて 


アクセス NO.X0818 


VC - DS 1 000 (s デジタル.ノイズワイパー + s-vhs 装備） . ¥220,000 


漂 ¥541 ， 400 峰 

s ¥358,000 

¥2,900 x 72 回 

ボーナス 2.0 万 XI 2 回 


※その他のクレジットについてはお問い合せください。 



f ¥587,800 • 霞 ¥365,800 


できうる限りの誠意と責任をもって - IPLo 


ボーナスフェア 
実施 7/18( MON ) 〜 8/18( THU ) 

Chance 期間中、システムお H い上けの方、先 

1 澜200名様に、電話帳電卓をフレゼン 
卜（霉話番号•スケジュールを記情、 
10桁電卓機能付） 

Chance 期間中、デスクをお買上けの方全員 

2 に、 A-300( 厢稿用スタンド¥ 8.000) を 
フレゼント 

Chance 期間中、シャーフ製品をシステムてお 
苗上けの方全貝に CZ-8NJ1 (ジョイ 


※今回掲載の製品は、7月18日より8月18日までの期間に限らせていただきます, 


50,000人もの人々が体感した安心感。’ 
-信頼の IPI - ワイドサポート 


ス NO.X0817 


ス NO.X0804 


0 0 0 0 0 
0 0 0 0 
8 8 8 8 
5 7 6 7 















































































































































































50,000 人もの人々が体感した安心感。 
信頼の I P & ワンタッチワイドサポート 


•業界初、 IPL でこそ成し得た 3 倍保証。 

メーカー保証12ヶ H の商品なら36ヶパの保証とグッと長期問の保証を実施。末 
長く安心してご利用いただけるよう、 IPL が成し得たワイドなサポート体制。 

籲 IPL だからこそ初期不良への保証も万全。交換期間も 1 ヶ月ともっとも昆期間です。 

こんな I こかかる修理費用 

• プリンタヘッド交換¥29,500以上/98シリーズメインボード交換¥21,600 • 

I 以上/ドライブ交換¥13,200以上 : 


X PRO SHOP+RO STAFF 


当社は 、 SHARP 認定 iT 680000 X PRO SHOPTto 
PROSTAFF がサポートさせていただきますので、パソコンライフ拡げて 
下さい0 


安心の 
3倍保証 


m 

株式会社•アイビーエル 

〒2481» 倉市® ノ下 4-1-12 

S ノ下ビル 

»會 市® ノ下 3-4-23 :ift 品管II部 



比べてほしいから、ご紹介しま す。 
さらにお買得 IP & クレジット 


#ステップアップクレジットがおトク。 

まず月々1，000円からスタートして2年後から3,00014ヘアッブ〇ボーナスも1平後 
1万円 〇 3年後3万円。また夏のボーナスを貯金して冬のボーナスも1半後1"|リ。 
3年後3万円、また夏のボーナスを貯金して冬のボーナスのみ年训のお女払い 
も OK 。 さらにお支払い间数も1间払いから最長 72 M までご fi 由に,没定が" f 能です。 

•追加 購入 もクレジットだから便利。 

追加購人も m 祯えもご利用中の IPL クレジットを H 々俺か1,0001リずつの,调怯で OK 。 

•ボーナスフェアを実施中//お買得感をじっくり比べて下さい。 


本社 04 B 7-24-7511 


I Order Telephonei 


大阪 0 B -311-273 B 


，銀座 03 - 541-3058 


03-470 -00 B 1 籲ネし幌 011- B 21-1444 


•仙台 QE 2- SBB -0531 


►広島 08 E - SS 3-7 BB 1 


，福岡 09 S -4 B 1-2 B 44 


•商品管理部 g|^ a の 日為 せ 04B7-g4-1154 / 癱こ 注文お問合せ 04B7_gfl-115fl / 鲁 メンテナンス部 益卜初 4 の不臂蟲 g ra 04B7-g4-0453 

•FAXgig 為把り #? g □ グ M67-g4-0561/ •タイムリーボックス 袈綠魏 g§CM67-g4-0941/ ♦下取りホットライン 0487_M_g040 

本社：〒248鎌倉市雪ノ下 4-1-12 雪ノ下ビル電話受付： AM 10:00 〜 PM 8:00 水曜日定休 


商品管理部：〒248鎌倉市雪ノ下 3-4-2 


電話受付： AM 10:00~ PM 8:00 水曜日定休 




TOPICS 


日本テレビ系火曜サスペン 
ス劇場「ハネムーン」/テレビ朝日土曜 
ワイド劇場「黒い仮面の美女」。「日時 
計館の美女」又、フジテレビ系列、月曜 
ドラマランドなど他多数の番組で使用 
するコンピュータプロクラムを IPL が制作。 


令初期不良交換期間1ヶ月4 



NO.X0814 


g ¥567,400 峰 i IPL 起特価 | 


CZ -601 C ( CPU 6800 0、2 M パイト、65536同時発色）. 
CZ -601 D ( o .39 ミリ、アナ a ダ3モードオートスキャン） • 

CZ -6 ST 1 (角度自由自在、明節 0 K !) . 

源平討魔伝 . 

マンハッタン•レクイエム . 

スペースハリア-... ... 


•….… ¥319.800 
.…… ¥119.800 
.….…¥ 5.800 
.•……¥ 7,800 
….…¥ 7,800 
‘•……¥ 6.800 

CZ -217 AS (ッインピーシユ-ティングゲーム〉 .. ¥ 7.800 

CZ -222 AS (アルカノド.リベンジ.オブ.ド-(プロックゲーム)） . ¥ 7.800 

3 M プランクデイスケット (5,2 hd * io 枚) . ¥ 24.000 

CZ -8 NJ 1 (ジ3インカードプレゼント!) . ¥ 0 

初期不良期 PbI (ワイドに|ヶ 月間交換 システム!） . ¥ 0 

安心の 3 倍保征 (ipl 保 害付き） . ¥ 0 

標準価格 ¥507. 400 


¥ 3,000 


X 72 回ポーナス 2. 13万 XI 2回 


¥ 5,000 ><48 回 

ボ-ナス 2.5万父8回 

¥ 6,000 X 3 回 

ポーナス 3.48万父6回 

¥10,000 X 24 回 

ポ-ナス 4』万父4回 


輸送上のトラブルにも対応 



KK 日日 000 aceEB 


ス NO.X0807 


§¥742,670蜂 i IPL 起特価 I 


CZ -611 C (20 MHDD 塔載、65536色発色、 FM 8 音源内蔵) .¥399.800 

CZ -6 11 D(o . 31ミリ、アナ□グ3モート.才ートスキヤン） .¥145.000 

CZ -6 ST 1 (角度自由自在、 M 節 ok !) ... ¥ 5.800 

CZ -211 LS(Ccompiler ソフト開発を効率良くサポート) . ¥ 39.800 

Z，sSTAFF PRO 6 BK (グラフィックツール） . ¥ 58.000 

CZ -8 PC 2( io ••カラー熱 fe 写 B 5 〜 B 4 ハガキ可、全角半角文字）……¥ 69.800 


¥ 5-000 x 72 回 

ポ-ナス2.82万父12回 

¥ 6,000 ><60 回 

ボーナス3.15万父1〇回 

¥ 8,000 ><48 回 

ボ-ナス 3.3万父8回 




RRANGE/ 

目的に合わせて 
自由にアレンジ// 

X 0807 のプリンターを変えて 


アクセス 

NO.X0808 

CZ -8 PK 7( 10”ハガキ、封®可、トラクター^、オートバックアウト可）…¥122,000 

還 ¥794,870 

峰 

1 IPL 起特価 

¥3,000 x 72回 

ボーナス 4. 43 万 XI 2 回 


※その他のクレジットについてはお問い合せください。 



ス NO.X0809 


§¥907,200峰義 IPL 起特価1 


••¥399.800 
••¥145.000 
"¥ 5.800 
-¥ 35.000 
••¥ 39.800 
••¥188.000 

CZ -8 PC 2( I 0 ••カラ-熱転写 B 5 〜 B 4 ハガキ可、 全角半角 文字）……¥ 69.800 

3 M プランク デイ スケット (5"2 HD*ID 枚) . ¥ 24.000 

電 S 舌 帳 電卓*贈呈 (《8«5 M 、スゲジュ-ルメみ1_) . ¥ 0 

初期不良期間 (ワイドに I ケ月間交換システム!） . ¥ 0 


CZ -611 C (20 MHDD 塔戴、65536色発色、 FM 8 音源内蔵〉 

CZ - B 11 D (〇 • 31 ミリ、アナ a グ 3 モードオートスキャン} . 

CZ —6 ST 1 (角度自由自在、明節 ok !). 

CZ -8 BE 1 A(imb 增設 ram ポ ー K ).. 

CZ -211 LS(C compiler ソフト開発を効率良くサポート) •••"• 
CZ -8 NS 1 (フル於 -M ズ-ム 後?;色ずれの 少ない 81 次方式 ソフト 似 ••••. 


3 M プランクデイスケット (5”2HD*I0 枚) . ¥ 24.000 

A 4 カット紙(|〇〇枚） . ¥ 470 

電話掁電卓*贈呈 ( t » 科 (Atw •ジュ-ルメ . ¥ 0 

初期不良期間 （ワイドに 1 ヶ 月間交換 システム!） . ¥ 0 

安* こ、 の 3 倍保証 (ipl 保 li 書付き） . ¥ 0 

安心、の 3 倍保証 (ipl 保証害付き） . ¥ 0 

wo CfXfX 標準価格 ¥907.200 

X 72 回ポ-ナス5.0万 X 12 回 

¥ 5,000 ><72 回 

ボ-ナス 4.1 万 X 12 回 

WO 標準価格 ¥742,670 

¥ 8,000 ><72 回 

ボーナス 2.3万父12回 

T \5 5 UUv/x 72111 4.03万父12回 

¥10,000 X 48 回 

ボーナス 3.8675 x 80 




RRANGE/ 

目的に合わせて 
自由にアレンジ// 

X 0809 のプリンターを変えて 


アクセス NO.X0810 


CZ-8PK9(24 ビン 80 桁漢字プリンタ、ハガキ可、トラクタ付） . ¥ 89.800 


還 ¥927,200峰 

1 IPL 起特価 

¥ 5,000 x 72回 

ボーナス 4. 3 万 XI 2 回 


お申し込みはアクセスナンパーでどうぞ。 


IPL 超特価システムはさらにおトクなシステム。お電話でお問合せください。 


※その他のクレジットについてはお問い合せください 

I 組み台~せ自由] 


July.l 日〜 Au 吕 _1 已 




























































































































Joshin Computer Store 




京都寺町店 

京都市下京区寺町通仏光寺下ル恵美須之町549番(〒600) 

a (075)341-3571 


京都の人も, 


V ソ3ンなら, 


3FI 


京都最大の中古 S コーナ_&セ5ナー 


当ての機種が思わぬ価格で—お買得品満載の中古品コーナー。さらに、パソ 
ンラックや専門窖籍コーナーも充実。 


2F 


ビジネスパソコンのフロア 


32ビット • 16ビットパソコンはもちろん、周辺機器、アクセサリーからビジネスソフト 
まで、何でも揃5情報戦士のためのフロア。話題のバソコン通信コーナーもご利用くだ 
さい。 


1F 


ワープロとホヒーのフロア 


ワープロ、 PPC 、 FAX と、オフイスから害裔まで大活躍の電子文具のコーナーと、パ 
ソコンのもう一つの楽しみ、ゲー厶ソフト、 MSX 、 B ビットパソコンのホビーコーナー。 
見て回るだけでも楽しめます。 




圈 



« 9月以降のスケジュールは受付にお間い合わせください。 


日程 

セミナーテーマ 

時間 

7/23出 

財務管理/きよみずソフト「ワンタッチマスタ ーj 

PM2:00〜3:00 

販売管理/ OBCrTOP 販売管理エキスパート j 

PM2:00〜3:00 

7/24旧） 

日本語ワープロ/管理工学研究所「新松」「桐」 

PM2:00〜4:00 

7/30出 

表計算/ロータス 「Lotus 1-2-3」 

PM2:00〜4:00 

7/31旧） 

データベース/アスキー 「The CARD2j 

PM2:00〜4:00 

8/6出 

英文ワープロ/高電社 「KOA-Techno-Matej 

PM2:00〜4:00 

8/7(0) 

日本語ワープロ/日英ワープロジャストシステム 「duetj 

PM2:00〜4:00 

8/13出 

財務会計/ PCArPCA 会計」 

PM2:00〜4:00 

8/21( 日） 

財務会計/ミルキーウェイ「二代目大番頭 j 

PM2:00〜4:00 

8/27出 

財務管理/きよみずソフト「ワンタッチマスター j 

PM2:00〜3:00 

財務会計/ OBCrTOP 財務会計エキスパート」 

PM2:00〜3:00 

8728(B) 

ワープロソフト/ d 日ソフト「コラージュ j 

PM2:00〜4:00 


常設無料セミナースケジニ 


. 一 J レ (7 月〜日月) 


楽しさいっぱい京都寺町店のフロアあんない 










































































近鉄難波駅 y 


H 近鉄日本橋职> 



大阪の人も 

です0 


0 


マッキントッシユフ I ア JIP 

7 ップルコーナー、アップルマッキントッシユフエアを開催 。 M 
5ぇてぉります。 HHI 


アッブルマニア待望のアップルコーナー、 
マックのソフトを多数揃えております。 


ビジネス7ンのためのフェアを連日關催 

有名ソフト八ウスによるビジネスソフトフェア/ os . 言語開催。さらに、毎週土 •日に 
は、株式に関するあらゆる情報が一堂にごらん頂ける通信による株価分析フェアと、 
JSP ホットライン•パソコン通信フェアを実施しています。 


3F 


32 06ビット機に校って 


ビジネスパソコン、パソコンパーツ、プリンター、八ードディスク、各種周辺 】 
堂に集結。 NECr 新 jPC -9801 勢揃いフェアや、コン 
も開催。 



日本橋最大のワープロ売場誕生 

ワープロ売場では、ポータブルからデスクトップまで、日本橋最大の展示台数を 
誇ります。また、フルカラーコピーサービスもお気軽にご利用下さい。 


:充実の品揃え 

ディスク'各種周辺臓まで一 
ピュータ、ミュージック実演会 

TF 


サイズ 

B 5. A 4 

B 4 

A 3 

フノレカラー 

300円 

400円 

500円 




大阪市浪速区難波中 2-1-17 

^(06)634-3111 


.卜8月以降のスケジュールは受付にお問い合わせくたさい 


日程 

セミナーテーマ 

時間 

7/23出 

POP 作成ソフト/ソフトプロ 「 POP 名人 j 

PM 1：00~4：00 

POP 作成ソフト/ダイナウェア 「PIX SPOTj 

PM 1:00〜4:00 

7/24(0) 

デスクトップパブリッシングソフト/モーリン「言図 j 

PMr .00~3-.00 

デスクトップパブリッシングソフト / d 日ソフト「コラージュ」 

PM 3:00〜5:00 

統合型ソフト/ヴァル研究所「ファラオ11 j 

PM 1:00〜2:00 

表計算/口ータス「ロータス1-2-3」 

PM 2:00〜3:00 

7/30(±) 

CAD ソフト/デザインオートメーション 「CAD PAC 98 j 

PM 1:00 〜 3:00 

CAD ソフト/オートデスク 「AUTO CADj 

PM 3:00〜5:00 

株価分析/ダイッー 「Z - Chart IH j 

PM 〗： 00 〜 2:00 

グラフソフト/ダイナウェア「チャート UP 」 

PM 2:00〜3:00 

データベース/ダイナウェア 「 UP クリッパー」 

PM 3:00〜4:00 

7/31旧） 

CAD ソフト/東京コンピュータ 「Generic CADj 

PM 1： 00—4： 00 


常設無料セミナースケジュール (7 月) 


Joshin Computer Store 


情報満載、コスモランドのイベントあんない 


阪神高速 


_島館— 
高別 


日本橋职 >• 


，日本橋筋 


地下鉄堺筋線 




























































































パソコン通信 


^ «剛 g でもお申し込みいだだけます。 


|1^メ■ル細 


■シンブルで使いやすいパソコンラック•テスク•チェアー 



パソコンラック S チェアーセット 
ラック 寸法/幅600_3 段 棚 
ラック：エレコム DS-10 
チェアー：コイス SL- 395 
メーカー 標準価格合計44.000円 
セッ ト特 ffi 23,00 OR 

•シートカラー①爾色②茶色 



•uumjm 


パソ5忍シス■テム▼デス為 
エレ 3 ム ER-1200 C 

j&p 特価 29,000円 

幅120 ox 高さ650〜1180奥行750議 




エレコム 

PD-02 

メーフ J — 欉準 <1格43.000円 

J & F 3 特砸19,800円 

コード落とし付 



福640% x 高さ1305% x 奥行700% 


エレコム 

PD -99+ FO -60 E 

セット 
襻準®格合 8 t 51.500 円 

J&P 特価33,000円 

トレー：!ニット （ FO -60 E ) 

をセツトしてお得。 

幅900% x 高さ1280% x 奥行7_ 


B 3 SI 



パ j コンチェ 1 ァー 
コ^^ 

キヤスタラ付 
メー Jfeap ®5§ i 2. 

j&'P^Sfeooi 


ち/一トカラー'^ 
①爾色②茶色 


,000円 

1円 


■パソコングッズ 


'Wr 


QA 電源タップ 

ナショナル WCH 4511 

ノイスフイ』しター篥中スイッチ付 

J&P 特価6,980円 


エレ @«450 
j & p 特価3,300円 

原稿か見やす<場所を 
とりません。 



5 インチケース 
100枚収納可 
j & p 特価 2,000円 


3.5 インチケー 
80 枚収納可 

J&P 特価2,000円 


PS -80 
10インチブリンタスタンド 

J&P 师格 3,400円 

※フリンタ別売 


■ポヶコ^^^ Q 3 S 

圆 PC - E 500 


PC - E 200 fj&P 特®24,800円 

J&P 特価17,800円充実の 124 関数機能、最大 96K 
Z80CPU 採用で高速演バイトまで増設可能。 

箅を実現。 24 桁 4 行表示 40 桁 4 行表示 


さあ始めよ5パソコン通信 

■ X -1 通«セツト 




モデム： CZ -8 TM 2 
JSP HOTLINE ： 


スタータキツト 


通信速度 30( H 凹 0 bps 

橡準 ffi 格合射52.800円 

tz ット腿49,800円 








モデム:アイワ PV - A 1200 MKII 通價ソフ ト： SPS 

JET ターボターミナル JSP 

HOTLINE : スタータキ ット通信速度300* 1200 bps 

頟準涵格合針39,600円 tz ット ffi 格 39,600円 


■電子手帳 


シャープ PA - 7000 
J&P 特 1117»800 円 

これ1台で、電卓•電 S 
檨 • スケジュール•メモ 
• カレンター供能があり 
ます。別売のモジュール 
を使うことにより、溪字 
辞■や英和 • 和英の B 职 
«としても使えます。字 
生、技術者からビジネス 
マン我で«広<お使いい 
だだけます。 BCTH 


ran 

1 C 力ード （ PA - 7000用） 



OPA -7 C 1 英和•和英 カード 
© PA -7 C 2 漢字辞霤 カード 
© PA -7 C 3 6 ヶ田語会話 カード 
❹ PA -7 C 4 カラスケ 歌詞 カード 
© PA -7 C 10 電話帳 •住所録カード 
© PA -7 C 11 販売管理 カード 
© PA -7 C 12 技術計算 カード 

周辺機器 

OCE -152 データ レコー ダ 
© CE -50 P フリン タ 
© CE -200 L 通信用 ケーフル 


6,300円 

9,000円 

6,300円 

9,000円 

9,000円 

9,000円 

6,300円 


9,800円 

17,800円 

2,500円 


■〈 X -1/ ターポオブシヨン> 

BS 1 H 



QBEI 


マウス 

シャープ〇 Z -8 NM ? 

J&pffi 格6,800円 

X -1 .MZ 用7ウス 


シャーフ CZ - 阳 V 2 

j & p ® 格39,800円 

通*を@在に修正 • 
加工で*ます 
画理 ツール • 

グラフイツクソフト 

向 油 


■ XB 的00オプション™ 

' OCZ -6 BE 1 

巳增股メモ 1 」 

35.000円 

© CZ -6 BE 2 

2 M 巳增股メモ 1 」 

79.800円 

© CZ -6 BE 4 

4 M 巳增股メモリ 

138,000円 

0 CZ -6 BU 1 

ユニバーサル1/〇ボード 

39,800円 

© CZ -6 BG 1 

GP - 旧ボード 

59.800円 

© CZ -6 BF 1 

RS -232 C 埋股2チャンネル 

49.800円 

© CZ -6 BP 1 

68881数値演算ブ□セッサボード 

79.800円 

© CZ -6 EB 1 

拡張 I / O ボックス4ス□ット 

88,000円 

■ブ 1 J ンタオプション ESI 

❶ MZ -1 C 48 

X -1 シリーズ用フ 1 J ンタケーフル 

6.800円 

© MZ -1 C 35 

MZ - 2500/2200/2000用ケーブル 

6.800円 

© MZ -1 R 29 

MZ -1 P 17 C 巳)用第2水準 ROM 

14,800円 

❹ CZ -8 PC 1-3 

CZ -8 PC 1 用第2水準 ROM 

9.800円 


■テイスケツト 

マクセル 

OMD 2- D (10 枚） 
© MD 2- DD (10 枚） 
© MD 2-256 HCK 10 枚） 
© MF 1- D (10 枚） 
© MF 2- D (10 枚） 
© MF 1- DD (10 枚） 
© MF 2 - DD (10 枚） 
© MF 2-256 HD (10 枚） 


KilWM 


1,900円 

2,400円 

2,500円 

4,500円 

4,500円 

4,500円 

5,000円 

8,300円 






卿 




JSP 才 U ジナル 
MD -2 D (20 枚) 

3,000円 



E^gg 

MD -2 HD (10 枚） 

2,100円 


MF -2 DD (10 枚) 

4,000円 











































































ビン 7 





*京《渋谷区邁玄坂 2 丁目 28 番 4 号（干 150 

»( 03 ) 496 - 4141 < 水曜定休〉 


ブロ野球フアン 


ワールドゴルフ II 



注文 to 

X 8-26 

適珩《種 

X -1 シリーズ 

ソフト八ウス 

テレネット 


響の裏校野球かスタートす 
る*で冬眠でもしよラと考 
えていた野球フアンのあな 
だ。さあ、この厲新しい球 
_で白球に«けた男たちの 
ドラマを味わつてみて<だ 


¥7,800(5,2 D ) 



注文 N 0 

X 8-27 

a 拓》禰 

X -1 ターポ 

1ソフト八ウス 

日本テレネツト 

1 — k ： rkJ — 


K . 卜ーナメントモード）全72 
ホール構成。 トーナメントモ 
—ドでは、 BtlOO 人のライバ 
ルゴルファーが e »。 あらゆ 
る角 K からゴルフのおもし 
ろさを*底的に分析し、そ 
れをシ S ユレー ト。ゴ)レフゲ 
一6の*高》作品./ 

¥7,800(5,2 d > 


注文 Nq 

タイトル 

ソフト八ウス 

適応機種 

メディア 

価格 

X 8-28 

レ 

リク 

ス 

ボーステ VC 7 

X -1 シリーズ 

5,2 D 

¥7.500 

X 8-29 

信長の野望(全国版） 

光栄 

X -1 シリーズ 

5 ”D 

¥9.800 

X 8-30 

アルバト□ス 

B 本ルネ' 

X -1 シ U - ズ 

5 ”D 

¥8.800 

X 8-31 

殺 

意の接 

吻 

リバ- UI //7 卜 

X -1 シ IJ ーズ 

X 68000 

5〃2 D 

¥5.800 

X 8-32 

棋 

太 

平 

S - P-S 

X -1 シリーズ 

5 ガ 2 D 

¥6.500 


レジェンド 


醅猿と的 ttl ジンギスカン 



注文 to 

X 8-33 

適邱機稽 

X -1 シリーズ 

ソフト八ウス 

クエイ サー ソフト 


人の心の光と!■を罚るク U スタ 
ルを妖精ア 1 J ーナか«つて地上 
に落してし5つた。そのクリス 
タルを手に入れたのは古しえの 
時代に神々をち*ほそうとした 
大 II 王ガウディアであつた， 

¥7,800(5,2 d ) 



注文 No 

X 8-34 

適応微權 

MZ -2500 

ソフト八ウス 

光栄 


「雇き*と白き叱饞」の壮大《スI-一 
U-CflOA, モードでは W 舄隊 
■P 弓矢 K なと«し< 加叉5れ C«H 
部隊 1 〇輅奪、莳 M、 》伏勖 S などの 
新コ7ンドも加わつて、よ 0* 鼸な 
««ガ*しめるシ5ュレーシ3ンゲ 
ームとして期用で8る • 

¥9,800(3 5* dd ) 


注文 Nq 

タイトル 

ソフトハウス 

適応 檄播 

メディア 

価格 


X 8-35 

ウィザード 1 」一3 

アスキー 

X -1 ターボ 

5"2 D 

¥9.800 

X 8-36 

サジ U 

日本ルネ〜 

X -1 ターボ 

5"2 D 

¥7.800 

X 8-37 

魔界 復活 

ソフト WING 

X -1 ターボ 

5,2 D 

¥7.800 

X 8-38 

ダ•ビンチ 

HAL 研究所 

XI シリーズ 

5 y 2 D 

¥6,800 

X 8-39 

ディーヴァ 

T&E 

XI シリーズ 

5〃2 D 

¥7.800 


注文 Nq 

タイトル 

ソフトハウス 

適砸 機擂 

メディア 

価格 

X 8-40 

U バイパー 

アルシスソフト 

MZ - 2500 

3.5 "DD 

¥6.800 

X 8-41 

ウイバーン 

ア JI / S / スゾ7卜 

MZ - 2500 

3.5 "DD 

¥6.800 

X 8-42 

殺人クラブ 

リバ- ~ tl ル 

MZ - 2500 

3.5 〃DD 

¥7.800 

X 8-43 

ドルアーガの塔 

デンバ 

MZ - 2500 

3.5 〃DD 

¥6.800 

X 8-44 

スペース八 1 J ア 

電波 新閜社 

X 68000 

5"2 D 

¥6.800 


ZlsSTAFF PRO B8K 




[ 

■ li 



i^gni 


UM # 塵纜スプレルシ ーh 


RK 刀の累 W しさ C 加えて、*霣《貶ち 
PROtt«U *« な カラー チェンジから、 
モサイク変換、ソフトフスーカス》て、 
しっくりと手の込んだ作品を描<ことか 
5]晚てある。 


〈特長〉 

•一度に 160* でウインドウを； T— フンで S* す， 

* 7ウス充全対®の _* なオペレーシ3ン， 

• Kamlkaza (神 ffl) はワーフ□以上の««力を待 5* す • 

データを7ラフ化す2> ことかで S* す„ 


¥58,000•品卜沿ス ¥68,000•觀鍈 


ツド） 



.:<ゼ!:1 





フウスでお絵かき、グラフ ィツ 
クソフト 

(5*2 D ) ¥20,000 


注文 NO 

タイトル 

ソフト八ウス 

適 S 機種 

メディア 

価格 

X 8-49 

C comoller 

シ v - プ 

X 68000 

5 V 2 D 

¥39.800 

X 8-50 

MUSIC 

シ f ブ 

X 68000 

5 W 2 D 

¥15.800 

X 8-51 

サウンド PRO 68K 

シャーフ 

X 68000 

5 V 2 D 

¥15.800 

X 8-52 

LINKS 68K 

シャーフ 

X 68000 

5 V 2 D 

¥19.800 

X 8-53 

日本語 MY CARD.XIt 

アバ□ン 

X 68000 

5〃2 D (2) 

¥58.000 


キ《」卜り嫌< 


•記載以外のパーツのご注文ち承ります。 

詳し <はお電話にてお問い合わせ下さい。 

g ⑽ )496 —4141 定休：毎週水曜日 ■ 


I おところ 



注文 N 0 

数量 

金 額 



X 8 - C ) 


円 




X 8 - ( ) 


円 

TEL — 

( 

」— 

合計 


円 

おなまえ 



お手持ちのバソコン 

様 



お申込み先： 東京都渋谷区道玄坂2丁目28 番 4号 （〒150) JWI > 渋谷店メールシヨツビンヴ係 


右の注文霪にご希望商品の注文 NQ 
および必要事項ご記入の上、現金 
書留にて qJ & IP 渋谷店までお申し 
込み<ださい。現金受領後、発送 
いたします。 

また、 J&P HOTLINE 会員の方 
は、シヨツビンク■コーナーでちお 
申し込みいただけます。 


お申し込み方法 


■ビジネスソフト 


- 68000 対応コーナ_ 


■) C ホビーソフト 


■ビックヒツトソフト 


Personal Computer Store 


メールシヨツピンク©お申し込みは 


全国無料配達 


渋谷店で承ります> 


現金書留申込み用紙 


























































































































































ASSESS 


forAX 68000 



XI エミュレータは XI シリーズのアプリケーションソフトを X 680 ◦□上で実行して頂く 
ためのソフトウェアエミュレータです。 XI のアプリケーションを完全にソフトウェアのみ 
でエミュレートしているため、実行速度は平均3〜5倍程度遅くなりますが、今まで XI 上 
でお使い頂いていたアプリケーションが Human 6 日 k 上でお使い頂けます。 

X 6 日000では XI ソフト （5”2 D ) のメディアを取り扱うことができませんので、付属の 
専用ケーブルを接続して XI ソフトを Human 6 日 k のディスク上にファイル転送し、その 
ファイルを參照してエミュレートを行ないます。 Human 6 日 k 上に仮想的に XI のドライ 
ブを作りますので、 XI で使用しているイメージのままお使い頂けます。 

XI と X 6 日〇〇〇間のファイル転送用ユーテイリテイを用意しておりますのでたんにファ 


* プロテクトの施してあるソフトは実行できません 
* 一部サボートしていない機能があります 
* 原理上実行できないソフトもございます 


イルコンバータとしてもお使い頂けます。 

mttamm xi シリーズ用実行可能アプリケーシヨンソフト mmmmm 

• BASIC # CP/M •XILOGO 

• LISP •COBOL •FORTRAN 

• PASCAL #C • FORTH …… etc 


ミユレータ細, 800 



■ C0NQERT0-X68K 


定価 ¥99,800 


CONCERTO - X 6 日 K は、 X 6 日000上で MS - DOS のアプリケーションをお使 
い頂くための MS - DOS エミュレータです 。 NEC V 30 CPU を使用した専用八一 
ドウエア (DOS Engine ) が付属しており、八ードウエアによる高速実行を実現して 
います。 

MS - DOS ソフトの DOS Engine 上での実行の管理、およびそれからのコール 
を専用エミュレーションソフトがサポートし、特定機種用と限定されていない MS-DOS 
( V 巳 「 Ml ) 用のソフトが XB 80 ◦□上でお使い頂けます>また、 MS - DOS ( Ver 2.11) 
をお持ちの方は、それに付属の COMM AND . COM を起動することにより MS-DOS 
上で作業しているのと同じイメージで、つまり X 6 日0◦□を疑似的に MS - DOS マシ 
ンとして使用することができます。 CONCERTO - X 6 日 K は X 6 日000の世界をよ 
0 一層広げることをお約束致します。 


MS - DOS 用実行可能アプリケーシヨンソフト ) 


• MS - C ( Ver 4.00) 

• MS - FORTRAN ( Ver 3. l 3.4.0 l ) 

• MS - PASCAL ( Ve 「3 •⑶ 

• MS - LINK ( Ver 8. Dl .2.20,2.44) 

• MS - BASIC ( Ver 5.27) 


• Lattice C ( Ver 2. i 8,3. lO ) 

• Qputimizin 呂 - C ( ve 「2.?0 F ) 

• TURBO PASCAL ( Ve 「 2.00巳. 3.01 A ) 

• Plink 86( Verl .46) 

• etc . 


DOS Engine 



( V 30 CPU ボード） 


(特長） 

♦日 MHz の V 30 を使用 
拳メモリは 512 KByte 搭載 
春オプ シヨンで8087 N DP 実装可能 

* ボードは本体より 12 cm 程度大きくなりますその部分にはカバーがつきます 



* MS - DOS はマイクロソフト社 ， CP M はデジタルリサーチ社の商標です。 

COMMAND . COM は MS - DOS に標準のコマンドプロセッサで1•。上記のソフトウェアは各社の商播です= 
* 製品の仕様、名称は予告なく変更する場合もございますのであらかじめご了承ください。 


囍アクセス 


〒丨01東京都千代田区神田神保町卜64 
神保町協和ビル 7 F 
003(233) 0200代 FAX . 03 (291)7019 












夏の旅行は、 


:おまかせ 


■どこへ行こうか？行き先もワープロで調べます。/ 

參旅行情報參日本のまつり參映画（東京，大阪）拳コンサート 
■もう、時刻表はいりません？/*交通情報(新幹線.航空時刻表） 
■泊まり先だって 、 HOT LINE で探せます。/ホテルガイド 

暑中見舞いもエレクトリカルに/ 

■通信仲間みんなに一気に送信//電子メール（グループ 
送信等多機能） 

■手紙もワープロで書く時代です。/ワープロ文例集 
■仲間づくりも簡単に//独自の構成の BBS と多彩な SIG 

夏をのりきるスタミナ料理。 

■ SHARP •サンヨ_ • 日立、各社の知恵を絞って/電子レンジ教室 
■経済料理ならおまかせ//ワンボイントクッキング 
■食の話題もいろいろあります/ /生活情報「遊 ing 」 

ボーナスは、賢く増やして、上手に使う。 

■上場企業の動きを毎日お届け/ /野村証券情報(会社ニユース） 
■株価を分析、手がたくかせごう // CUG 「 Z チャート研究会」 

* 専用ソフトが必要です。 

■お家にいながらにして、お贈りものを//オンライン 
ショッビング(中元商品） 


東京 • 大阪 • 名古屋/礼幌•苫 d 、牧/青森 
山形•新潟•仙台•水戸•土浦•大宮•鹿 
島•立川•船橋•千葉•川崎•横浜•横須 
賀•平塚•甲府•靜岡•金沢•京都•神戸 • 
岡山•松江•広島/徳島•高松/福岡•長 

崎•鹿児島 _ 

山 IJmrgl 翯 gMM 旭川•函 
館/八戸•秋田•盛岡•米沢•福島•郡山- 
いわき •宇都宮 •前橋 •高崎 •太田•熊谷 
八王子•長野•松本•上田•諏訪•沼津* 
浜松•富山•高岡•石川•福井•岐阜•豊 
橋•大垣•津•四日市•大津•奈良•堺•貝 
塚•和歌山•尼崎•姫路•米子•福山•津 
•呉•山口 •徳山 • 下関 • 宇部/新居浜 • 
佐賀•久留米•熊本 



先 

〒556大阪市浪速区日本橋5~6-7 
上新電機料式会社 

J&P HOT LINE 事務局 J _ 

TEL (06)632-2521 

■幸 I 佣料金 U ： ついて 〃 

入会金/3,000円 (スタ-タキノト I * 入の^金から充当されます J 
接続料/ 3 分あたり 20円 (舰料金はお近くのアクセスポイント 

までで ok です。） 

スタータキ ッ ト申込書 


參パソコン通信ネットワークサービス 



匪 


^万全のサポート体制で全国をネットするパソコンの大型専門店 也 チ I ーン 


渋谷店 
町田店 
八王子店 
テクノランド 
メディアランド 
:]スモランド 
ワープ□ランド 
ビジネスランド 
阪急三番街店 
高砖店 


栗京脑 Sg 鼓齡了目?8番4号 
栗京8町田市森野1丁目39番16号 
栗? J 八王子币綱1番1号八王子そごう不 
大阪市浪速区日本播5 丁目6番7号 
大阪汚浪賴日额订目8番26号 
大阪币浪速区難液中2 丁目1番17号 
大阪市浪速区日本播4 丁目9番15号 
大阪市北区梅田 1-1-3 大阪關第3ピル B ? 
大阪币北区芝田卜 1-3 阪急三番街 B 1 
禺摊市高砖明11番16号 


» 03： 496 4141 
〇 0427 23-1313 
a 0426 26-4141 
〇 06) 634-1211 
〇 06) 634-1511 
n 06) 634-3111 
〇 06) 634-1411 
a 06) 348-1881 
a 06) 374-3311 
〇 0726185-1212 


くずは店 
千里中央店 
摂津»田店 
寝屋川店 
藤井寺店 
岸和田店 
京都寺印店 
京都近鉄店 
姬路店 
和歌山店 


枚方币桷葉花圈明丨5番2号 
舯币紆千里サン:5ウン 3 F 
高拥市大畑町2 4 - 10 
谨屋川市緑町4 -20 
藤幷寺市岡2 了目1番33号 
岸和田市土生印2 4 5レ3 
京稠驗寺下 
京8市砸烏廳下ル東劇謂 
Mil 末1丁目11樹麵ピル 1 F 
和取山市元寺町4 丁目4番地 


〇 0720)56-8181 
a 06 834-4141 
a 0726)93-7521 
» 0720； 34- 1166 
a 0729 38-2111 
0 .0724 37-1021 
a 075 341-3571 
a 075 341-5769 
n mm - m \ 

a 0734,2 8 144! 


お 

名 

前 


お番 

屯 

K 号 

() 

所 

〒 

お込 
申品 

スタータキット（ソフトなし） 

V 3.0 C 0 


夏をホントに楽しみたいなら、ぜひ1台ワープロを用意し 
てホシイ。旅に、料理に、株式にと、使って便利な情報が、 
指先一つで手に入るから。タイピングなんて知らなくて 
いい。データをフロッピーに貯めこめば、編集.印刷だって 
思し、のまま。自分専用の情報がァッと言う間に組み立てら 
れる。ワープロ通信なら、「使えるネット」の J&P HOT 
LINE 。 この夏、休みは知的にすごしたい。 





300 bps サボートポイン 


1200 bps /300 bps サボートポイン 


73? 

0かま龙た 


※通信可能のワープロ機種についてはお近くの j & p まで、お気軽にご相談ください。 





































SHARP 41 ^ 






new z - basic 搭載 mmm 


多色グラフィッ久カラー画像デジタイズ、ステレオ FM 音源、バンクメモリ 
対応などクリエイティブワークを強力にサボートする AV 指向の高水準 


巳 ASIC です。グラフィック用関数、 X 68000 と命令コンパチの拡張 MML 


をはじめ使い込むほどに凄さがわかるパワフルな BASIC を搭載しました。 


先駆の AV アート機能 ■■■1 

量子化、モザイク、反転などトリック取り込み処理をサポートしたカラー 
画像デジタイズ機能標準装備。さらに、クロマキー合成、インターレース 
スーパーインポーズ、 4,096 色対応ニューテロッパ機能、 8 重和音のステ 
レオ FM 音源。先駆の Z アビリティがパソコンクリエイターを魅了します。 
• メインメモリ 128KB 標準実装 （NEW Z-BASIC で最大 576K バイト 
までサボート）した大容量設計 • 1M バイトフロッピ ー2 基搭載 • JIS 
第 1/ 第 2 水準準拠漢字 ROM 、 「システム•ューザー辞書」標準装備參マ 
ウス標準装備 ♦ X 1ターボシリーズの豊富なソフト資産が活用できる 
コンパチブル設計*多彩な通信ツール+のサポートでパソコン通信に 
対応•ドットピッチ 0 . 31 議の高精細 カラー ディスプレイテレビ* •別充 


本体+キ ー ボ ー ド 

CZ -881 C - BK (ブラック） 

標準価格179,800円 

14型カラーテ V スプレイテレビ 

CZ -880 D-BK (ブラック） 

標準価格109,800円 

14型カラーテ V スプレイテレビ 

CZ -830 D-BK (ブラック） 

標準価格 

98,000円 

チノレトスタンド 

CZ -6 ST 1- 巳（ブラック） 

標準価格 

5,800円 


※写真のディスプレイは CZ -880 D です., 



H _ T 5 f ii — y 心イ+ •お問い合わせは…シャーフ ㈱ •取子機器事業本部システム機器営業部〒545大阪市阿倍野区長池町22番22号 0(06)62 卜1221(大代表） 

電子機器事菜本部テレビ事檠部第4商品企画部〒162東京都新宿区市谷八锱町8番地 0(03)260-1161( 大代表） 


T 491 0217908548 雑誌 02179-8 




















